ich bin aufgeschmissen, trotz Forum und Herber CDs.
Ich versuche aus diesen Teilen eine
Sub zusammenzustöpseln, und daran scheitere ich.
Ich habe einen Bereich im 1. AB, in dem formularmäßig Daten eingetragen werden sollen, (B4:B9) _
den ich per Commandbutton in ein 2. AB zeilenmäßig eintragen möchte, um darüber Auswertungen zu fahren. Das klappt irgendwie nicht.
Das ist was ich habe. Hilfe ist sehr willkommen. Vielen Dank!
Sub Testuebertrag()
' Testuebertrag Makro
Dim Zelle As Range, wks As Worksheet
Set wks = Sheets("Liste")
With wks
'Letzte Zeile in Spalte A ermitteln
Set Zelle = .Cells(.Rows.Count, 1).End(xlUp)
'Zeile kopieren und in nächste einfügen
Sheets("Form").Range("B4:B9").Copy
Sheets("Liste").Select
Zelle.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True 'Übertrag der Eintragswerte auf die Listezeile
.Cells(Zelle, 1).Select
Selection.NumberFormat = "m/d/yyyy" 'Formatieren der Datumszeile als kurzes Datum
Application.CutCopyMode = False
Sheets("Liste").Range(.Cells(Zelle, 7)).Value = Date 'Eintrag des Datums
Sheets("Liste").Cells.Columns.AutoFit 'automatisches Anpassen der Spaltenbreite
End With
End Sub