Sub Daten_zu_Datenbank()
Dim Zelle1 As String
Dim Zelle2 As String
Dim Zelle3 As String
Dim Zelle4 As String
Worksheets("Tabelle1").Select
Zelle1 = Range("B3")
Zelle2 = Range("E9")
Zelle3 = Range("E10")
Zelle4 = Range("B14")
Worksheets("Tabelle2").Select
Worksheets("Tabelle2").Range("A3").Select
If Worksheets("Tabelle2").Range("A3").Offset(1, 0) <> "" Then
Worksheets("Tabelle2").Range("A3").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Zelle1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Zelle2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Zelle3
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Zelle4
ActiveCell.Offset(0, 1).Select
End Sub