Range S
18.05.2004 11:29:43
Der
ich hab ein Problem und als absoluter VBA-Laie dreh ich hier langsam am Rad ;)
Also ich hab nen Button (siehe unten), der soll bei Klick die Werte aus den Zellen a6 bis d6 eines Tabellenblattes in eine neue Zeile eines zweiten Tabellenblattes kopieren. Vorher soll eine leere Zeile in dem zweiten Blatt erzeugt werden, damit auch wirklich nur die Werte kopiert werden, und keine Formeln usw. ...
Nun spricht mein Excel aber zu mir, wenn ich auf den Button klicke, daß die "Select-Methode des Range-Objektes" nicht ausgeführt werden konnte. Dabei wird auf die Zeile 'Range("a4:d4").Select' verwiesen.
Kann mir da jemand helfen?
Liebe Grüße, Jörg
Private Sub CommandButton2_Click()
Sheets("Statuslist").Select
Range("a4:d4").Select
Selection.Insert Shift:=xlDown
Range("A4").Select
Sheets("New Entry").Select
Range("A6:D6").Select
Selection.Copy
Sheets("Statuslist").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Font.Bold = False
Range("D4").Select
End Sub