Hi.
Folgendes Problem:
Ich möchte per Makro von Tabelle1 A1:E1 die Daten copieren und
in Tabelle2 ab der 10 Zeile einfügen (so weit so gut)
Aber jetzt soll das makro beim nächsten aufruf, die Daten nicht in die 10 Zeile, sondern in die 11, danach in die 12 und so weiter (Also immer um 1 tiefer) hineinschreiben.
Wie geht das?
Und wie setze ich den Wert danach wieder auf 10 (Wenn ich von vorne Anfangen möchte?)
Danke
Hi!
Wie wärs mit einem Hilfsfeld zb in Tabelle1 Feld F1 ?
Da schreibst Du 10 hinein und im Makro liest Du den Wert aus,
setzt ihn als Variable für die zu kopierende Zeile, erhöhst den
wert um 1 und speicherst ihn wieder im Feld F1 ab.
Grüße
Gerald
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo.
So ähnlich habe ich es mir auch gedacht, aber ich habe keine Ahnung, wie das Makro aussehen soll.
Vieleicht könntest du mir da weiterhelfen?
Währe dir sehr dankbar.
BYE
Hi!
Wie wärs mit einem Hilfsfeld zb in Tabelle1 Feld F1 ?
Da schreibst Du 10 hinein und im Makro liest Du den Wert aus,
setzt ihn als Variable für die zu kopierende Zeile, erhöhst
den
wert um 1 und speicherst ihn wieder im Feld F1 ab.Grüße
Gerald
Es würde in etwa so aussehen…
den Code in ein neues (leeres) Makro kopieren.
aufrufen kannst du ein makro zB mit Alt+F8, dann kommt die liste
mit allen makros, die aktiv sind.
mußt aber vorher 10 in die zelle F1 hineinschreiben…!
Gruß
Gerald
Hi!
Wie wärs mit einem Hilfsfeld zb in Tabelle1 Feld F1 ?
Da schreibst Du 10 hinein und im Makro liest Du den Wert aus,
setzt ihn als Variable für die zu kopierende Zeile, erhöhst
den
wert um 1 und speicherst ihn wieder im Feld F1 ab.Grüße
Gerald
Sheets("Tabelle1").Select
Range("A1:E1").Select
Selection.Copy
zeile = Cells(1, "F").Value
Cells(1, "F").Value = zeile + 1
Sheets("Tabelle2").Select
Range("A" & zeile).Select
ActiveSheet.Paste
DANKE.
Werde es morgen gleich mal ausprobieren.
Nochmal Danke.