|
Hallo zusammen
ich habe in einem Arbeitsblatt Zellen, die ich mittels des Eingabe Button in ein anderes Arbeitsblatt speichern möchte. Nach Eingabe sind gewisse Zellen wieder leer. Ich habe mittels Macro Recorder dieses erstellt. In dem Arbeitsblatt Aufmaß soll in der Zeile A7 der erste Eintrag abgelegt werden.
Dies funktioniert alles auch soweit bis auf, bei erneuter Eingabe wird die es in A7 überschrieben und nicht wie ich es möchte in die nächste Zeile A8 eingetragen.
Habe keine Ahnung von VBA, bin froh, dass ich das schon mal so umsetzen konnte.
Vielleicht kann mir ja jemand helfen, wie ich meine Wünsche realisieren kann.
Hier das Macro
Sub Schaltfläche1_Klicken()
'
' Schaltfläche1_Klicken Makro
'
'
Range("D5:H5").Select
Selection.Copy
Sheets("Aufmaß").Select
Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hauptübersicht").Select
Range("F5:H5").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
Vielen Dank schonmal im Voraus
Gruß
Reiner
|