VBA: Datum / Tag erkennen
23.02.2015 14:12:08
Burghard
ich möchte Zeilen von einem Tabellenblatt in ein anderes rüberkopieren. Die zwei Kriterien sind in Spalte A. Das Problem ist nur, dass ich beim Tabellenblatt "abc" in Spalte 1 ein Datum habe, dass so formatiert ist: "TTT. TT.MM.JJJJ" . Ich möchte in meinem Makro, dass alle Zeilen mit "Sa" oder "So" in das Tabellenblatt "xyz" rüberkopiert werden. Mein Makro funktioniert nicht, weil Excel das Datumsformat nicht als "Sa ..." bzw. "So ..." beim Tabellenblatt "abc" erkennt. Gibt es dazu eine Lösung? Hilfe wäre nett. Mein Makro:
Sub Test()
Dim ws1 As Worksheet, ws2 As Worksheet, n As Long, pos As Long
Set ws1 = Worksheets("abc")
Set ws2 = Worksheets("xyz")
pos = 2
With ws1
For n = 1 To .Cells(65536, 1).End(xlUp).Row
If .Cells(n, 1) Like "Sa*" Or _
.Cells(n, 1) Like "So*" Then
.Cells(n, 1).EntireRow.Copy Destination:=ws2.Cells(pos, 1)
pos = pos + 1
End If
Next n
End With
End Sub
Grüße Burghard