Excel Makro if

Computer: Software & Programmierung Office Software
1

Hallo Excelperten,

bin gerade am schreiben eines Makros mit der if Funktion.
Folgendes soll dies ausführen.

Steht in der Zelle C24 ein Wert (z.B. 5), dann soll ein bestimmtes Arbeitsplatz gedruckt werden:

Wo ist der Fehler? (Der Druckbefehl ohne if funktioniert einwandfrei)

If C24 > 0 Then
Sheets(„Formblatt für Expo 3“).Select
ExecuteExcel4Macro „PRINT(1,1,FALSE,2,TRUE,FALSE)“
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
End If

Danke um Eure Hilfe
Florian

2

Hallo Florian,

in Excel VBA musst du die Zell-Adressen anders schreiben:
Statt nur C24 muss es heißen Range(„C24“) oder Cells(24,3).

Gruß, Andreas

3

Hallo,

so kannst du es auch schreiben:

If _Activesheet._Range("C24") \> 0 Then Sheets("Formblatt für Expo 3").Printout(_From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName_)

Dann sparst du dir das Hin- und Herspringen zwischen den Blättern. Die kursiven Teile mußt du nicht mit benutzen.

LG

4

Hallo nochmal,

danke für Eure Antworten, jedoch funzt etwas noch nicht:

If ActiveSheet.Range(„C22“) 0 Then
Sheets(„Formblatt für Expo 1“).Select
ExecuteExcel4Macro „PRINT(1,1,FALSE,2,TRUE,FALSE)“
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
End If

If ActiveSheet.Range(„C23“) 0 Then
Sheets(„Formblatt für Expo 2“).Select
ExecuteExcel4Macro „PRINT(1,1,FALSE,2,TRUE,FALSE)“
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
End If

If ActiveSheet.Range(„C24“) 0 Then
Sheets(„Formblatt für Expo 3“).Select
ExecuteExcel4Macro „PRINT(1,1,FALSE,2,TRUE,FALSE)“
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
End If

Obwohl die Zellen C22 und C23 mit Zahlen gefüllt sind, werden mit die Blätter nicht ausgedruckt. Die Zelle C 24 ist leer und darf nicht ausgedruckt werden.

Danke für Eure Hilfe
Florian

5

Hallo nochmal,

hat sich erledigt. Ich habe die Zelle C24 inder falschen Tabelle abgefragt.

Gruß
Florian