Bestimmte Bereiche finden und an eine vorhandenes

Computer: Software & Programmierung Office Software
1

Hallo liebe Excel- gemeinde.
Ich bitte man wieder um Hilfe.
Ich gebe in einem Arbeitsblatt meine Monatsdaten. Der Bereich fängt immer bei „A 42:I 42“ und wird nach unten weitergeschrieben. Wieviel Zeilen es sind ist unbekannt, also bis eine Leerzeile auftaucht. Jetzt habe ich eine Jahresübersicht in eine anderen Arbeitsmappe. Ich möchte per Code, das der Bereich also A42:…?? markiert wird und unter die letzte Eingabe des letzten Monats in den Jahres- Arbeitsmappe einfügt wird.
Kann mir hier jemand helfen, denn ich drücke mich meist umständlich aus.

2

Ich gebe in einem Arbeitsblatt meine Monatsdaten. Der Bereich
fängt immer bei „A 42:I 42“ und wird nach unten
weitergeschrieben. Wieviel Zeilen es sind ist unbekannt, also
bis eine Leerzeile auftaucht.

Hallo KJ,

das ist mir nicht eindeutig genug. Bedeutet Leerzeile danach kommt die ganze Spalte runter nix mehr, oder gibt es noch Einträge darunter, also unter der Leerzeile?

Gruß
Reinhard

3

Hallo Reinhard,
genau bis zu ersten Leerzeile. (z.B. A:154).Danch kommt für diesen Monat keine Eintragungen.
Also müßte der Bereich von A42:V153 sein.

4

genau bis zu ersten Leerzeile. (z.B. A:154).Danch kommt für
diesen Monat keine Eintragungen.
Also müßte der Bereich von A42:V153 sein.

Hallo KJ,

wieso jetzt V, vorher war es I?

Sub tt()
Dim wksQ As Worksheet, wksZ As Worksheet, ZeiQ As Long, ZeiZ As Long
Set wksQ = Workbooks(„Mappe1.xls“).Worksheets(„Tabelle1“)
Set wksZ = Workbooks(„Mappe2.xls“).Worksheets(„Tabelle1“)
ZeiQ = wksQ.Cells(Rows.Count, 1).End(xlUp).Row
ZeiZ = wksZ.Cells(Rows.Count, 1).End(xlUp).Row
wksQ.Range(„A42:V“ & ZeiQ).Copy Destination:=wksZ.Range(„A“ & ZeiZ + 1)
End Sub

Gruß
Reinhard

5

genau bis zu ersten Leerzeile. (z.B. A:154).Danch kommt für
diesen Monat keine Eintragungen.
Also müßte der Bereich von A42:V153 sein.

Hallo KJ,

wieso jetzt V, vorher war es I?

Sub tt()
Dim wksQ As Worksheet, wksZ As Worksheet, ZeiQ As Long, ZeiZ
As Long
Set wksQ = Workbooks(„Mappe1.xls“).Worksheets(„Tabelle1“)

Wie muss es heißen, wenn ich die Activesheet meine??

Set wksZ = Workbooks(„Mappe2.xls“).Worksheets(„Tabelle1“)

Wie muss es heißen, wenn die Datei in „c:\daten\archiv\Jahr.xls“ heißt

ZeiQ = wksQ.Cells(Rows.Count, 1).End(xlUp).Row
ZeiZ = wksZ.Cells(Rows.Count, 1).End(xlUp).Row
wksQ.Range(„A42:V“ & ZeiQ).Copy Destination:=wksZ.Range(„A“ &
ZeiZ + 1)
End Sub

Gruss Kj