Makro, Wert aus zelle auslesen
20.07.2006 22:57:36
Reinhold
ich habe folgendes einfache Makro, das den Inhalt der Zelle X4 der Tabelle 1 der entsprechenden Mappe (ganze Zahl) hocjzählt und dann druckt. Das ganze geschieht dreimal.
Sub HochUndDrucken()
For i = 1 To 3
Sheets("Tabelle1").Select
[X4] = [X4] + 1 'Rechnungsnummer 1 hochzählen
ActiveWindow.SelectedSheets.PrintOut _
Copies:=1, Collate:=True 'Drucken
Next i
End Sub
Wie kann ich erreichen, dass das x-mal geschieht, wobei der Wert x einer Zelle (z.B. A1 der Tabelle 2 der entsprechenden Mappe) entnommen wird?
Vielen Dank in Voraus - Reinhold
Anzeige