|
Hallo ich habe folgendes Makro:
Sub BestellungErstellen()
Dim LastRow, i, sht As Worksheet
With Sheets("Bestellung")
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 43 To LastRow
On Error Resume Next
Set sht = Sheets(.Range("D" & i).Value)
If Err.Number > 0 Then
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = .Range("D" & i) & "," & " " & .Range("E" & i)
'Kunden Name
Range("D1").Select
ActiveCell.Formula = .Range("D" & i)
'Kunden Vorname
Range("D2").Select
ActiveCell.Formula = .Range("E" & i)
'Kunden Schule
Range("D3").Select
ActiveCell.Formula = .Range("AK" & i)
'Kunden Allergie
Range("D4").Select
ActiveCell.Formula = .Range("AI" & i)
'Kunden Tour
Range("E2").Select
ActiveCell.Formula = .Range("B" & i)
'Kunden Kundennummer
Range("E3").Select
ActiveCell.Formula = .Range("C" & i)
'Kunden Menü bestellung über den ganzen Monat
Dim j As Integer
k = 6
S = 5
For j = 6 To 36
Range("C" & k).Select
ActiveCell.Formula = .Range("F" & i) 'Hier muss noch rein, dass die Spalte in einer Variable hochezählt wird
k = k + 1
Next j
End If
Next
End With
End Sub
leider komme ich an der Rot makierten stelle nicht weiter.
Das Makro soll an dieser Stelle aus Tabelle (Bestellung) aus der letzten Zeile die Spalten F bis AJ kopieren und den Wert, sowie den Zellbezug in vorher neu erstellte Tabelle einfügen. Dort dann jeweils in die Spalte C6 bis C36. Also von Tabelle Bestellung F (letzte Zeile) in Tabelle neu C6, für Tabelle Bestellung G (letzte Zeile) in Tabelle neu C7,... usw.
Die Werte übernimmt er allerdings leider nicht den Zellbezug, ich bräuchte aber den Zellbzug da sich die Werte ab und zu ändern können.
Also in der Zelle soll dann so was hinterlegt sein wie =Bestellung(F & letzte Zeile)
Vielen Dank schon mal im Voraus.
|