Bei Eingabe letzte Zeile per Code kopieren II

Hallo Reinhard, Hallo Thomas;

Ich habe mir jetzt mal den ganzen Verzeichnisbaum von meiner Frage angesehen, danke das du mich noch mal auf die Problemen von Helfer hingewiesen hast.
Jetzt noch einmal eine Frage zu deinem Code.
Kann ich da auch Steuern das z.B. nur Spalten B bis H kopiert werden, oder z.B. Spalte B bis H und T bis X kopiert werden?
Und kann man die Zeilen nach unten begrenzen? oder auch in Blöcken wie z.B. von Zeile 6 bis 15 und dann wieder von 22 bis 35. Das sind alles nur Beispiele, aber wie schon geschrieben, würde mir das bei vielen Arbeitsmappen helfen.

Grüezi Küchenjunge

Schade, dass DU einen neuen Beitragsfaden beginnst - so geht der Bezug zum bisher erarbeiteten Stand verloren, besonders für die Mitleser :frowning:((

Ich habe mir jetzt mal den ganzen Verzeichnisbaum von meiner
Frage angesehen, danke das du mich noch mal auf die Problemen
von Helfer hingewiesen hast.
Jetzt noch einmal eine Frage zu deinem Code.

…wen genau sprichst Du hier an…?

Kann ich da auch Steuern das z.B. nur Spalten B bis H kopiert
werden, oder z.B. Spalte B bis H und T bis X kopiert werden?

Ja, das ist möglich…

Und kann man die Zeilen nach unten begrenzen?

…auch das ist machbar…

oder auch in
Blöcken wie z.B. von Zeile 6 bis 15 und dann wieder von 22 bis
35. Das sind alles nur Beispiele, aber wie schon geschrieben,
würde mir das bei vielen Arbeitsmappen helfen.

…und auch hier kann ich zustimmen, ebenfalls beispielhaft gesprochen.

Das alles ist nur eine Frage der konkreten Fragestellung oder (wenn Du dich selbst damit befassen willst) der Einarbeitung ins Objektmodell von Excel.
Letzteres scheint mir in deinem Falle mehr als angebracht, wenn es dir bei vielen Arbeitsmappen helfen soll.


Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Hallo Thomas,
entschuldige das ich ein neuen Artikel angefangen habe, aber ich dachte, wenn der Beitrag ins Archiv versetzt wird ist er schon abgearbeitet behandelt.

…wen genau sprichst Du hier an…?

Dich, den deinen Code habe ich eingesetzt. Der Code läuft sehr gut.

Kann ich da auch Steuern das z.B. nur Spalten B bis H kopiert
werden, oder z.B. Spalte B bis H und T bis X kopiert werden?

Wenn du mir in deinm Code vielleicht die Eingaben verändern kannst?

Ja, das ist möglich…

Und kann man die Zeilen nach unten begrenzen?

…auch das ist machbar…

oder auch in
Blöcken wie z.B. von Zeile 6 bis 15 und dann wieder von 22 bis
35. Das sind alles nur Beispiele, aber wie schon geschrieben,
würde mir das bei vielen Arbeitsmappen helfen.

…und auch hier kann ich zustimmen, ebenfalls beispielhaft
gesprochen.

Das alles ist nur eine Frage der konkreten Fragestellung oder
(wenn Du dich selbst damit befassen willst) der Einarbeitung
ins Objektmodell von Excel.
Letzteres scheint mir in deinem Falle mehr als angebracht,
wenn es dir bei vielen Arbeitsmappen helfen soll.

Hast du hier ggf Tipps, in was für Büchern ich meine Nase mal stecken sollte.

Sonnige Grüsse vom
Küchenjunge


Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Hallo KJ,

Kann ich da auch Steuern das z.B. nur Spalten B bis H kopiert
werden, oder z.B. Spalte B bis H und T bis X kopiert werden?

Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Column \> 1 Or Target.Cells.Count 1 Then Exit Sub
With Target
 If .Row \> 5 Then
 .Offset(-1, 1).Resize(1, 7).Copy .Offset(0, 1)
 .Offset(-1, 19).Resize(1, 5).Copy .Offset(0, 19)
 End If
End With
End Sub

Und kann man die Zeilen nach unten begrenzen? oder auch in
Blöcken wie z.B. von Zeile 6 bis 15 und dann wieder von 22 bis
35.

Das verstehe ich nicht so ganz.

Gruß
Reinhard

Hallo Reinhrad,

Und kann man die Zeilen nach unten begrenzen? oder auch in
Blöcken wie z.B. von Zeile 6 bis 15 und dann wieder von 22 bis
35.

Das verstehe ich nicht so ganz.

Also das ich nur die Zeilen von Zeile A5 bis zur Zeile 25 kopieren kann. Danach erst einmal schluß.
Und wenn ich dann wieter unten wieder bei der Eingabe von der Zeile 30 bis Zeile 50 tätige, die kopierei wieder aufgeführt wird.

Gruss Kj

Gruß
Reinhard

Also das ich nur die Zeilen von Zeile A5 bis zur Zeile 25
kopieren kann. Danach erst einmal schluß.
Und wenn ich dann wieter unten wieder bei der Eingabe von der
Zeile 30 bis Zeile 50 tätige, die kopierei wieder aufgeführt
wird.

Hallo KJ,

Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Column \> 1 Or Target.Cells.Count 1 Then Exit Sub
With Target
 Select Case .Row
 Case 5 To 25, 30 To 50
 .Offset(-1, 1).Resize(1, 7).Copy .Offset(0, 1)
 .Offset(-1, 19).Resize(1, 5).Copy .Offset(0, 19)
 Case Else
 'nix
 End Select
End With
End Sub

Gruß
Reinhard

Grüezi Küchenjunge

entschuldige das ich ein neuen Artikel angefangen habe, aber
ich dachte, wenn der Beitrag ins Archiv versetzt wird ist er
schon abgearbeitet behandelt.

…wen genau sprichst Du hier an…?

Dich, den deinen Code habe ich eingesetzt. Der Code läuft sehr
gut.

OK, gut wärs dann aber, den Code hier nochmals in deinen Beitrag zu stellen, dann ist (auch) allen anderen der Zusammenhang klar.

Reinhard hat dir ja inzwischen eine mögliche Lösung gezeigt.

Das alles ist nur eine Frage der konkreten Fragestellung oder
(wenn Du dich selbst damit befassen willst) der Einarbeitung
ins Objektmodell von Excel.
Letzteres scheint mir in deinem Falle mehr als angebracht,
wenn es dir bei vielen Arbeitsmappen helfen soll.

Hast du hier ggf Tipps, in was für Büchern ich meine Nase mal
stecken sollte.

Hmmmm, Bücher sind immer sehr persönlich gefärbt - dem einen sagt dieser Stil zu, dem anderen ein anderer.

Die zwei wichtigsten Tasten im VBA-Editor ist F1 für die Kontexthilfe (Cursor in einen Begriff stellen und F1 drücken) und F2 für den Objekt-Explorer (dort dann suchen nach deinem Begriff).
Das hilft am meisten an Infos zum akutellen Problem zu kommen.

Dann lies in Foren und NG’s mit und versuche die Vorschläge selbst umzusetzen. Dadurch lernst Du am schnellsten/meisetn von aktuellen Problemen anderer.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -

Hallo Thomas, Hallo Reinhard,

Danke noch einmal wieder für die umfassende Hilfe.
Wenn ich Euch und dieses Brett nicht hätte, müsste ich sicherlich noch mehr unmengen an Blöder arbeiten mit Listen usw. machen.