39 Aufrufe
Gefragt in Tabellenkalkulation von czerno Einsteiger (30 Punkte)
Hallo liebe Community,

ich habe folgendes Problem, wofür ich keine richtige Lösung in Excel bzw. VBA finde.

In den Feld J2 ist eine Zelle, welche einen Wert hat z.B. die Nummer 1. Dieses Feld dient als Suchbegriff für einen Sverweis. Es wurden je Menge SVerweise verwendet.

Nun habe ich in den Feldern J3 und K3 einen Zahlenbereich stehen.

Sprich J3 die 1 und K3 die 16.

Jetzt möchte ich folgendes tun:
Ich möchte, dass ein Makro automatisch die Zahlen nacheinander einträgt, berechnet und dann das aktive Tabellenblatt druckt.

Sprich J2 eintragung 1
Tabellenblatt berechnen
Tabellenblatt ausdrucken
J2 Eintragung 2
Tabellenblatt berechnen
Tabellenblatt ausdrucken

und so weiter bis zur 16. Sprich das er 16 Zahlen nacheinander einträgt und dann berechnet und druckt.

Ich bin schon seit tagen am rätseln und probieren doch scheinbar ist das zu hoch für mich.

Kann mir hier jemand helfen?

Vielen lieben Dank im Vorfeld euch!

Grüße

Czerno

3 Antworten

0 Punkte
Beantwortet von beverly_ Einsteiger (81 Punkte)
Hi,

das wäre eine Möglichkeit:

Sub Drucken()
    Dim intZaehler As Integer
    If IsNumeric(Range("J3")) And IsNumeric(Range("K3")) Then
        For intZaehler = Range("J3") To Range("K3")
            ActiveSheet.PrintOut
        Next intZaehler
    End If
End Sub

Bis später, Karin
0 Punkte
Beantwortet von czerno Einsteiger (30 Punkte)
Hallo Karin,

vielen Dank für die schnelle Antwort.

Wenn ich den Code austeste, dass druckt er mit die Anzahl nur und setzt nicht die Zahlen ein.

Grüße

Czerno
0 Punkte
Beantwortet von beverly_ Einsteiger (81 Punkte)

Hi,
ergänze die Zeile

Range("J2") = intZaehler

Bis später, Karin

...