mfg Schönegger
mfg Schönegger
'Die erste Zeile bewirkt einen Wechsel zum Tabellenblatt "Daten"
'Die zweite Zeile sucht die erste freie Zelle in der ersten Spalte
'In der dritten Zeile wird diese Zelle mit dem Wert der Eingabezelle B3
'aus dem Tabellenblatt "Eingabe" gefüllt.
'Die Zeilen vier bis sieben bewirken mit dem Offset-Befehl jeweils einen
'Sprung zur nächsten rechts gelegenen Zelle um diese mit dem Wert der Zellen
'B4 bis B7 aus dem Tabellenblatt "Eingabe" zu füllen.
'Die achte Zeile wechselt zum Tabellenblatt "Eingabe".
'Die neunte Zeile löscht die Werte aus den Zellen B3 bis B7.
'Die zehnte Zeile aktiviert Die Zelle B3 um gleich mit einer neuen Eingabe beginnen
'zu können.
Sub Speichern()
Sheets("Daten").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Sheets("Eingabe").[B3]
ActiveCell.Offset(0, 1).Value = Sheets("Eingabe").[B4]
ActiveCell.Offset(0, 2).Value = Sheets("Eingabe").[B5]
ActiveCell.Offset(0, 3).Value = Sheets("Eingabe").[B6]
ActiveCell.Offset(0, 4).Value = Sheets("Eingabe").[B7]
Sheets("Eingabe").Activate
Range("B3:B7").ClearContents
Range("B3").Activate
End Sub
Ich hoffe es hilft dir weiter.
Gruß Dieter
Sub Speichern()
Dim WSE As Worksheet
Dim WSD As Worksheet
Dim Zeile As Long
Dim i As Integer
Set WSE = ThisWorkbook.Sheets("Eingabe")
Set WSD = ThisWorkbook.Sheets("Daten")
Zeile = WSD.Cells(WSD.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 5
WSD.Cells(Zeile, i) = WSE.Range("B" & 2 + i)
Next i
WSE.Range("B3:B7").ClearContents
End Sub
Grüße
Martin