Anzeige
Archiv - Navigation
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler in Code (Worksheet vs Activesheet)?

Fehler in Code (Worksheet vs Activesheet)?
16.11.2006 11:01:26
steve
Hallo!
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler in Code (Worksheet vs Activesheet)?
16.11.2006 11:34:03
steve
Fehler gefunden...
Anzeige

218 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige