Dim letzte_Spalte As Integer
Dim aktuelle_Spalte As Integer
Dim Anzahl_der_gefuellten_Spalten_Data1 As Integer
Dim Anzahl_der_gefuellten_Spalten_Data2 As Integer
Anzahl_der_gefuellten_Spalten_Data1 = Sheets("deintabellenblattname").Cells(2, Columns.Count).End(xlToLeft).Column
Anzahl_der_gefuellten_Spalten_Data2 = Sheets("deintabellenblattname").Cells(3, Columns.Count).End(xlToLeft).Column
letzte_Spalte = WorkSheetFunction.Max(Anzahl_der_gefuellten_Spalten_Data1, Anzahl_der_gefuellten_Spalten_Data2)
aktuelle_Spalte = letzte_Spalte + 1
ActiveSheet.Cells(2,aktuelle_Spalte) = Data1
ActiveSheet.Cells(3,aktuelle_Spalte) = Data2
WriteAllDigital n
ActiveSheet.Cells(5,aktuelle_Spalte) = n
n = n + 1
i = ReadAllDigital
ActiveSheet.Cells(7, aktuelle_Spalte) = i