Dringend: Brauche Hilfe bei Makro Schleife
22.05.2018 14:50:21
Sarah
ich arbeite gerade an einer Excel-Mappe mit dem Makro "FBerstellen":
https://www.herber.de/bbs/user/121747.xlsm
Das Makro "FBerstellen" funktioniert soweit perfekt, das Problem ist jetzt nur, dass ich nicht für jede Zeile meines Produktdatensatzes ein Makro schreiben möchte, sondern gerne eine Lösung hätte, die meinen Datensatz Zeile für Zeile durchgeht.
Ich bin ein ziemlicher Anfänger mit Makros. Kann man das vllt mit einer Schleife o.ä. machen?
Hier der Teil des Makros (der fett hervorgehobene Teil), der sich immer wiederholen sollte:
Sub FBerstellen()
If MsgBox("Formblätter Linienkontrolle drucken? Sind alle bekannten Partien eingetragen?", _
vbOKCancel, "Drucken") = vbOK Then
If Sheets("DruckZF").Range("C14").Value > 0 Then
'FB 14 erstellen
Sheets("LK-Blatt").Select
Range("F4").Select
ActiveCell.FormulaR1C1 = "=DruckZF!R[10]C[7]"
Range("A5:B5").Select
ActiveCell.FormulaR1C1 = "=DruckZF!R[9]C[13]"
Range("A5:B5").Select
'14
If Sheets("DruckZF").Range("B14").Value > 0 Then
Sheets("Lk-Blatt").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("DruckZF").Range("B14").Value, Collate:= _
True, _
IgnorePrintAreas:=False
Else
End If
'nur-einseitig
If Sheets("DruckZF").Range("D14").Value > 0 Then
Sheets("LK-Blatt").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=Sheets("DruckZF").Range("D14" _
).Value, Collate:=True, _
IgnorePrintAreas:=False
Else
End If
Else
End If
End Sub
---------------------------Freue mich über jeden Hinweis :-) .
Vielen Dank schonmal.