vba spalte 4 und 5 statt nur vier

Forumthread: vba spalte 4 und 5 statt nur vier
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: vba spalte 4 und 5 statt nur vier

Benjamin

Hallo zusammen,
ich habe in einer Excelfile folgendes Marko.
Ich habe das damals hier über das Forum bekommen.
Wie kann ich das nun ändern, dass nicht nur spalte 4 sondern auch Spalte 5 bearbeitet wird?
Danke und Gruss
Benjamin

Sub NurText()
Dim lngRow As Long
For lngRow = 1 To Cells(Rows.Count, 4).End(xlUp).Row
If Not IsEmpty(Cells(lngRow, 4)) Then
If IsDate(Cells(lngRow, 4)) Then
Cells(lngRow, 4) = Format(Cells(lngRow, 4), "DD.MM.YY")
End If
End If
Next
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: vba spalte 4 und 5 statt nur vier

welga
AW: vba spalte 4 und 5 statt nur vier

Benjamin

AW: vba spalte 4 und 5 statt nur vier

17.02.2010 15:17:05

welga

Hallo,
vielleicht so:

Sub NurText()
Dim lngRow As Long
For lngRow = 1 To Cells(Rows.Count, 4).End(xlUp).Row
for a=4 to 5
If Not IsEmpty(Cells(lngRow, a)) Then
If IsDate(Cells(lngRow, a)) Then
Cells(lngRow, a) = Format(Cells(lngRow, a), "DD.MM.YY")
End If
End If
next a
Next lngRow
End Sub