Hallo
ja es ist richtig das das Recordete Makro länger, ist mir war jetzt eigentlich auch erstmal wichtig das nur die Zelle D6 mit Zellbezug eingefügt wird.
Allerdings habe ich mich jetzt nochmal selbst an einem Makro probiert, leider klappt es aber immer noch nicht
Hier ist das Makro
Sub Druck()
Dim sht, Druck As Worksheet
For sht = 5 To Worksheet.Count
sht.Activate
--> hier müsste glaube ich noch rein, dass er die Tabellen: Bestellung, MS, LS, Erledigt nicht mit in die Schleife nicht, also die Tabellen ausklammert, wie kann ich das schreiben
Dim Name As String
Dim Vorname As String
Dim Allergie As String
Dim Schule As String
Dim Tour As String
Dim Kundennummer As String
Dim Menü As String
Dim Beschreibung As String
Dim MS As String
Name = Range("D1") --> hier würde ich gerne den Zellbezug zuweisen, kann ich das dann über ="=""&sht.Name""&!D1"
Vorname = Range("D2") --> ... usw.
Allergie = Range("D3")
Schule = Range("D4")
Tour = Range("E2")
Kundennummer = Range("E4")
Beschreibung = Range("D6")
MS = Range("E6")
Worksheets("Druck").Select
Worksheets("Druck").Range("A3").Select
If Worksheets("Druck").Range("A3").Offset(1, 0) <> "" Then
Worksheets("Druck").Range("A3").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Tour
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kundennummer
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Name
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vorname
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Schule
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Allergie
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Menü
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Beschreibung
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = MS
Next
End Sub
|