Zeilennr. als Variable VBA

Set Eingabezeile = Prognose.Sheets("Prognose").Range("a16") 'Zeile mit der ersten Uhrzeit '[Dann werden Werte aus Blatt A kopiert und anschließend Blatt B aktiviert] ActiveSheet.Cells(Eingabezeile.Row, Eingabespalte.Column).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Die Datei wird ab Januar übergeben. Daher sollten nicht alle Änderungen nachgepflegt werden müssen.
Einzelne Änderungen müssen natürlich eingepflegt werden.
Mich ärgert nur, dass es eigentlich gehen müsste...
Hier das Problem:


Set Anfang_Zeitraum = Prognose.Sheets("Prog_Master").Range("a16")
Set Eingabezeile = Selection.Find(What:=Anfang_Zeitraum.Value, after:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
ActiveSheet.Cells(Eingabezeile.Row, PW_Eingabespalte_Tag1.Column).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

sobald Eingabezeile.Row angesteuert werden soll kommt die Fehlermeldung:
Objektvariable nicht festgelegt.
Daher muss es weiter oben an dem "Anfang_Zeitraum.Value" in der .Find-Methode liegen.
allerdings versteh ich nicht was daran nicht funktioniert, da z.B.
hier:

'Tag1 als Zeile definieren
Set PW_Tag1 = Selection.Find(What:=PW_Tag1.Value, after:=OF, LookIn:= _
xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False)

auch der Tag gesucht wird und in

ActiveSheet.Cells(PW_Tag1.Row + 1, PW.Column).Select

als Zeile genutzt wird.
EIGENTLICH müsste es funktionieren o.Ô
außerdem:
wie muss ich Anfang_Zeitraum definieren wenn es 00:15 z.B. ist?
als Range oder Variant?
(PS: die Zuordnung für Anfang_Zeitraum funktioniert prinzipiell. Die Überwachung zeigt einen Wert an. Allerdings wird dieser in der Selection.Find nicht gefunden

Dim Anfang_Zeitraum As Double 'Dim AktiveZeile As Variant Dim Eingabezeile As Variant Set Prognose = ActiveWorkbook Sheets("Prog_Master").Activate Anfang_Zeitraum = Prognose.Sheets("Prog_Master").Range("a16") 'Zeile mit der ersten Uhrzeit! 'NEUE SUCHE PW Datenbasis.Activate Worksheets("Einlesen").Activate ActiveSheet.Range("BQ:cl").Select 'Tag1 als Zeile definieren Set PW_Tag1 = Selection.Find(What:=PW_Tag1.Value, after:=OF, LookIn:= _ xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase:=False) ActiveSheet.Cells(PW_Tag1.Row + 1, PW.Column).Select ActiveSheet.Range(Selection, ActiveSheet.Cells(Selection.Row + 95, Selection.Column)).Select Selection.Copy Windows("Prognose.xlsm").Activate Sheets("PW").Select ActiveSheet.Range("A:X").Select Set PW_Eingabespalte_Tag1 = Selection.Find(What:=PW_Tag1.Value, after:=ActiveCell, LookIn:= _ xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase:=False) Set Eingabezeile = Selection.Find(What:=Anfang_Zeitraum, after:=ActiveCell, LookIn:= _ xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False) ActiveSheet.Cells(Eingabezeile.Row, PW_Eingabespalte_Tag1.Column).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread