Office: (Office 2010) VBA Code Zeile von bis kopieren und am Ende einfügen

gelberblizz · 17. Mai 2015

Hallo zusammen,

ich möchte in einer Datei die Zeilen 55 -83 kopieren und immer am Ende einfügen!

Wie kann ich das denn mit einem VBA Code machen? Ich weiß einfach nicht weiter... mein VBA Kurs mit 6 Stunden war viel zu wenig!

Ich würde mich freuen wenn mir hier jemand helfen könnte!

DANKE!
Claudia

:)

chris-kaiser · 19. Mai 2015

Hi,

Code:

Sub itu()
Rows("55:83").Copy Cells(Rows.Count, 1).End(xlUp)(2, 1)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gelberblizz · 19. Mai 2015

Hi,

Danke, leider funktioniert der Code nur einmal und er überschreibt meine ersten Zeilen! Das einfügen soll unbedingt am Ende der Tabelle geschehen!
Könntest Du nochmals schauen?

DANKE
Claudia

chris-kaiser · 19. Mai 2015

hi,

welche Spalte ist gefüllt? Wie wird das ENDE erkannt?

ansonsten versuche
Code:

Sub itu()
Rows("55:83").Copy Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 1)(2, 1)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aloys78 · 19. Mai 2015

Hallo Claudia,

wenn sich die letzte Zeile aus Spalte A ergibt, dann
Code:

Rows("55:63").Copy Rows(Cells(Rows.Count, "A").End(xlUp).Row + 1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ansonsten entsprechend abändern.

Gruß
Aloys

gelberblizz · 19. Mai 2015

Leider geht auch dieser Code nicht!

Schau mal ich habe jetzt die Tabelle angehängt!
Es kopiert einmal alles so wie ich es möchte. Aber wenn ich die nächste Arbeitsfolge einfügen möchte überschreibt es mir alles...

Ich verzweifel wohl noch mit dieser Aufgabe!

aloys78 · 19. Mai 2015

Hallo Claudia,

zum Verzweifeln besteht doch kein Grund.

Verstehe ich das richtig:
- es geht um die Tabelle1
- hier befindet sich Dein Eingabeblock von Zeile 55 - 83.
- auf Tastendruck soll diese Eingabe ab Zeile 84 kopiert werden,
der Eingabeblock wird geleert.
- die nächste Eingabe in 55 - 83 würde dann in Zeile 114 ff kopiert werden usw

Wenn das alles nicht zutrifft, dann geh doch mal auf die Fragen von Chris ein, und definiere die Aufgabenstellung am besten anhand eines Beispiels genauer.

Gruß
Aloys

gelberblizz · 20. Mai 2015

Hallo Aloys,

ja du hast es genau richtig verstanden...

Grüße
Claudia

gelberblizz · 20. Mai 2015

sorry habe gerade festgestellt dass ich den nicht vollständigen Anhang angehängt habe!

Hier die richtige Datei!

aloys78 · 20. Mai 2015

Hallo Claudia,

ja du hast es genau richtig verstanden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann ist das mein Lösungsvorschlag:
Code:

Option Explicit

Sub itu()
Const sEingabe As Long = 55
Const eEingabe As Long = 83
Dim r As Long
Dim nZeilen As Long
nZeilen = eEingabe - sEingabe + 1
With Worksheets("Tabelle1")
For r = eEingabe + 1 To Rows.Count Step nZeilen
If .Cells(r, "B") = "" Then
Rows(sEingabe & ":" & eEingabe).Copy .Rows(r)
Exit Sub
End If
Next r
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

gelberblizz · 20. Mai 2015

Vielen Dank für die Hilfe hier!

Office: (Office 2010) VBA Code Zeile von bis kopieren und am Ende einfügen

VBA Code Zeile von bis kopieren und am Ende einfügen

VBA Code Zeile von bis kopieren und am Ende einfügen

VBA Code Zeile von bis kopieren und am Ende einfügen

VBA Code Zeile von bis kopieren und am Ende einfügen

VBA Code Zeile von bis kopieren und am Ende einfügen - Similar Threads - VBA Code Zeile

VBA Code für Zeilen ausblenden einblenden mit JA/Nein

VBA Code gesucht für Zeilen löschen anhand von Kriterien

VBA - Zeilen je nach Bedingung in neues Tabellenblatt verschieben und löschen

VBA Code - aktive Zeile markieren und kopieren

Jeweils unterschiedliche Anzahl von Zeilen abwechselnd anders einfärben

Code funktioniert nicht in erster Zeile eines Kombinationsfeldes

Spalten in Zeilen umwandeln wenn A1 gleich A2