habe folgende Formel aus dem Achiv, aber eine kleinen Fehler drin.
?? Name (i) = Cells(i + 1, 2).Value ??
Diese Zeile unterlegt er mir immer ROT,Fehler beim Kompilieren, was ist falsch?
Mfg Peter
Sub SerienbriefExcel()
Dim Anrede()
Dim Name()
Dim Straße()
Dim PLZ()
Dim Ort()
Dim i As Integer
Dim iMax As Integer 'maximale Anzahl Datensätze
Sheets("Tabelle4").Select
iMax = Cells.SpecialCells(xlLastCell).Row - 1
For i = 1 To iMax
Anrede(i) = Cells(i + 1, 1).Value
Name (i) = Cells(i + 1, 2).Value
Straße(i) = Cells(i + 1, 3).Value
PLZ(i) = Cells(i + 1, 4).Value
Ort(i) = Cells(i + 1, 5).Value
'... usw.
Next
Sheets("Tabelle8").Select
For i = 1 To iMax
Cells(10, 2).Value = Anrede(i)
Cells(11, 2).Value = Name(i)
Cells(12, 2).Value = Straße(i)
Cells(14, 2).Value = PLZ(i) & " " & Ort(i)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub