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

Hallo

Wenn Sie das aktuelle Datum mithilfe von VBA in die angegebenen Spalten (A, N, V) und Zeilen (4-999) einfügen möchten, können Sie ein Makro erstellen, um dies zu erreichen. Hier ist ein Beispiel für einen VBA-Code, den Sie verwenden können:
Sub InsertCurrentDate()

Abblenden von WS als Arbeitsblatt
Dim rngA As Range, rngN As Range, rngV As Range, Zelle As Range

Set ws = ActiveSheet
Setzen Sie rngA = ws. Bereich("A4:A999")
Setzen Sie rngN = ws. Bereich("N4:N999")
Setzen Sie rngV = ws. Bereich("V4:V999")

Für jede Zelle in rngA
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngN
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngV
Zelle. Wert = Datum
Nächste Zelle

Ende Sub

Wenn Sie das aktuelle Datum mithilfe von VBA in die angegebenen Spalten (A, N, V) und Zeilen (4-999) einfügen möchten, können Sie ein Makro erstellen, um dies zu erreichen. Hier ist ein Beispiel für VBA-Code, den Sie verwenden können:

Sub InsertCurrentDate()

Abblenden von WS als Arbeitsblatt
Dim rngA As Range, rngN As Range, rngV As Range, Zelle As Range

Set ws = ActiveSheet
Setzen Sie rngA = ws. Bereich("A4:A999")
Setzen Sie rngN = ws. Bereich("N4:N999")
Setzen Sie rngV = ws. Bereich("V4:V999")

Für jede Zelle in rngA
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngN
Zelle. Wert = Datum
Nächste Zelle

Für jede Zelle in rngV
Zelle. Wert = Datum
Nächste Zelle

Ende Sub

Gehen Sie folgendermaßen vor, um diesen VBA-Code in Ihrer Excel-Arbeitsmappe zu verwenden:

Drücken Sie ALT+F11, um den VBA-Editor (Visual Basic für Applikationen) zu öffnen.

Gehen Sie auf "Einfügen" > "Modul", um ein neues Modul einzufügen.

Kopieren Sie den oben bereitgestellten VBA-Code und fügen Sie ihn in das Modul ein.

Drücken Sie STRG+S, um die Arbeitsmappe zu speichern.

Schließen Sie den VBA-Editor.

Jetzt können Sie das Makro ausführen, indem Sie ALT + F8 drücken, das Makro mit dem Namen InsertCurrentDate auswählen und auf "Ausführen" klicken. Dadurch wird das aktuelle Datum in die angegebenen Zellen eingefügt.

Wenn Sie das Makro speziell durch Doppelklicken auf eine Zelle ausführen möchten, können Sie dies mithilfe des BeforeDoubleClick-Ereignisses des Arbeitsblatts tun. Diese Methode erfordert jedoch komplexeren VBA-Code und eine komplexere Anpassung. Lassen Sie es mich wissen, wenn Sie dabei Hilfe benötigen, und ich kann Ihnen weitere Anleitungen geben.

Alles Gute
Segunfunmi

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.

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.