Meine Tabelle:
fängt bei Zeile A15 an und hört bei n45 auf!
A +B sind leer
Ab C sind Werte enthalten!
Ich überprüfe, ob Werte ab Zelle(15,3) stehen, ermittle wieviel Spalten ich brauche! Diese werden in Word generiert! Ich schaffe es leider nur nicht, dass die Werte jeweils in eine eigene Spalte geschrieben werden! Bei mir steht bis jetzt z.B. in Zeile C in Word (Wert1,2, und 3)!! Mein Verschachtelung stimmt überhaupt nicht!
Mein Makro:
k = 3
Do While Cells(31, k).Value ""
k = k + 1
Loop
l = k - 3
m = k - 2
For n = 1 To l
For j = 2 To m
With oWord.Selection
.Tables(1).Columns(j).Select
For i = 30 To 45
If Not IsEmpty(ActiveSheet.Range(Cells(35, 2+n)) Then
zelle = Stringändern(ActiveSheet.Range(Cells(i, 2 + n)).Value)
oWord.Run macroname:="autonew.dateneinfügen", varg1:=zelle
.MoveDown unit:=wdLine, Count:=1
End If
Next i
End With
Next j
Next n
Vielleicht kann mir jemand helfen! wäre klasse!