Ich habe eine Tabelle im Register1 die folgendermaßen aussieht:
01.01.2006 WertA
01.01.2006 WertB1
01.01.2006 WertB2
...
02.01.2006 WertA
02.01.2006 WertB1
02.01.2006 WertB2
...
Jetzt möchte ich Werte anhand des Datums in ein anderes Register überführen.
Mein Code funktioniert, wenn alles im gleichen Register ist (Activesheet) aber nicht, wenn ich es mit "Worksheet" probiere.
wo liegt der Fehler bzw. muß ich das Register immer erst aktivieren?
Code
######################
Sub Werteauswahl()
Dim Sp%, LR&, i&, j&, k%
Sp = 1 'Spalte A
LR = Worksheet("Wert1").Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
' LR = ActiveSheet.Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
Datum = ActiveSheet.Cells(2, 6)
j = 1
For i = 2 To LR
If Worksheet("Wert1").Cells(i, 1) = Datum Then
' If ActiveSheet.Cells(i, 1) = Datum Then
ActiveSheet.Cells(j, 3) = Worksheet("Wert1").Cells(i, 2)
' ActiveSheet.Cells(j, 3) = ActiveSheet.Cells(i, 2)
j = j + 1
End If
Next i
End Sub