VBA Excel, Daten aus einem Arbeitsblatt in ein anderes einfügen, Makro starten, nächste...

Hallo Claus

Ich präzisiere:

In der Tabelle1 befindet sich der zu kopierende Datenbereich. Das Makro (für kopieren und einfügen) befindet sich ebenfalls in diesem Arbeitsblatt. Diese Daten werden im Arbeitsblatt DB eingefügt. Dieses enthält bereits Daten, und die zu kopierenden Daten
sind unten, anschliessend einzufügen. Das Makro für den 1. Teil Kopieren der Daten markiert und kopiert korrekt. Beim 2. Teil Einfügen der Daten habe ich das Verhalten in meiner Frage oben dargelegt. Mit .Range("A" & iRow).Select
möchte ich, dass nach dem Einfügen der Cursor in die nächst leere Zeile in der Spalte A von Arbeitsblatt DB springt. Dies geht jedoch nicht.

Private Sub CommandButton2_Click()

'1. Kopieren der Daten

Dim LRows As Long 'Spalte, in der die letzte Zeile ermittelt werden soll

With Sheets("Tabelle1")

LRows = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 'ermitellt letzte Zeile

.Range("A2" & ":R" & LRows).Copy

End With

'2. Einfügen der Daten

Dim iRow As Long

With Sheets("DB")

iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

.Range("A" & iRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

.Range("A" & iRow).Select

Application.CutCopyMode = False

End With

End Sub

Dölf

Können Sie mir bitte noch mitteilen wie ich diesen Befehl in mein Excel-Dokument einbauen und dann verwenden kann?
Ist dieser Befehl sowohl für Office 2016 als auch für die (neuere) Microsoft-365-Version einsetzbar?

Technische Details:

Unterhalb einfügen geht generell nicht. Das Makro kann jedoch von der aktiven Zelle die nächste Zelle darunter ermitteln und über diese eine Zeile einfügen. Das geht bei allen Versionen.

Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte

Wählen Sie "Code anzeigen"

Klicken Sie im Menü auf Einfügen \ Modul

Fügen Sie den folgenden Code ein

Schließen Sie den VBA-Editor

Drücken Sie Alt-F8

Wählen Sie das Makro aus

Klicken Sie auf Ausführen

Andreas.

Hallo Karin,



öffne Excel und drücke Alt+F11. Nun bist du im VBA-Editor. Wähle dort Einfügen => Modul und kopiere den Code in das Codefenster.

Zurück in Excel kannst du nun das Blatt mit deinen Daten anwählen und über Entwicklertools => Makro das Makro anwählen und ausführen.

Sollte die Entwicklerregisterkarte bei dir nicht sichtbar sein, blende sie über Optionen => Häufig verwendet ein.

Falls du das nicht magst, kannst du auch über Ansicht => Makros => Makros anzeigen gehen.

Kommst du mit dieser Beschreibung nicht klar, lade ich dir gerne eine Mappe hoch.



Mit freundlichen Grüßen

Claus

Das OLE-Objekt stellt eigenen Code zur Verfügung (Events) und damit diese funktionieren können müssen die Objekte in das VBA-Projekt eingebunden werden. Daher muss das VBA-Projekt danach neu kompiliert werden.

Die Standard-Einstellung der VBA-Editor ist Kompilieren bei Bedarf und im Hintergrund, d.h. sobald das nächste Makro nach dem Einfügen der ActiveX-Textboxen gestartet wird, wird das Projekt neu kompiliert und als Folge wird das global deklarierte Array neu
initialisiert.

Andreas.

Hallo,

bei mir funktioniert das ohne Probleme.

Das Makro wird nur ausgeführt, wenn die Mappe geöffnet wird. Hast du die Mappe nach dem Einfügen des Codes gespeichert und geschlossen? Beim nächsten Start sollte dann das Scrollen auf diesen Bereich beschränkt sein.

Claus