MSCom
Neuer Benutzer
Threadstarter
- Dabei seit
- 20.09.2016
- Beiträge
- 1
Hallo
Ich habe im Range A:R Zeilen mit Daten. Es können eine Zeile oder mehrere Zeilen sein, je nach Anzahl der zu erfassenden Daten.
Das Kopieren der Datenzeilen stellt keine Probleme.
Einfügen will ich sie mit nachstehendem Makro in einem anderen Datenblatt "DB". Wenn die zu kopierenden Datenzeilen markiert und kopiert sind, werden sie korrekt in die nächst leere Zeile im Datenblatt "DB" eingefügt.
Trotzdem habe ich zwei Probleme:
1. Wenn nichts markiert und kopiert ist und versehentlich Private Sub CommandButton2_Click() angeklickt wird, stürzt das Makro ab.
Wie kann dies verhindert werden.
Mein Makro:
Private Sub CommandButton2_Click()
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
Application.CutCopyMode = False
End With
End Sub
2. Ich möchte, dass nach dem Einfügen der Cursor in die nächst leere Zeile in der Spalte A springt. Dies möchte ich mit
.Range("A" & iRow).Select, welches sich zwischen With Sheets("DB") und End With im obenaufgeführten Makro befindet machen.
Das geht nicht bzw. das Makro stützt ab.
Wie kann ich den Cursor in die nächst leere Zeile in der Spalte A bringen.
Ich habe im Range A:R Zeilen mit Daten. Es können eine Zeile oder mehrere Zeilen sein, je nach Anzahl der zu erfassenden Daten.
Das Kopieren der Datenzeilen stellt keine Probleme.
Einfügen will ich sie mit nachstehendem Makro in einem anderen Datenblatt "DB". Wenn die zu kopierenden Datenzeilen markiert und kopiert sind, werden sie korrekt in die nächst leere Zeile im Datenblatt "DB" eingefügt.
Trotzdem habe ich zwei Probleme:
1. Wenn nichts markiert und kopiert ist und versehentlich Private Sub CommandButton2_Click() angeklickt wird, stürzt das Makro ab.
Wie kann dies verhindert werden.
Mein Makro:
Private Sub CommandButton2_Click()
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
Application.CutCopyMode = False
End With
End Sub
2. Ich möchte, dass nach dem Einfügen der Cursor in die nächst leere Zeile in der Spalte A springt. Dies möchte ich mit
.Range("A" & iRow).Select, welches sich zwischen With Sheets("DB") und End With im obenaufgeführten Makro befindet machen.
Das geht nicht bzw. das Makro stützt ab.
Wie kann ich den Cursor in die nächst leere Zeile in der Spalte A bringen.
