Hallo zusammen,
ich bin in Excel VBA ungefähr so fit wie Google es ermöglicht. Hier komme ich nicht weiter und bitte um eure Hilfe.
Ziel: Ein Druckbereich ist in der Regel im Tabellenblatt "Liste A1:C349" angelegt. Wenn eine bestimmte Zelle aber "ACHTUNG" enthält, dann soll der Beginn des Druckbereiches flexibel anfangen. Der Startwert steht in Tabellenblatt "Sonderliste aa:1". Das Makro läuft aber nicht.
Dim PA As String
PA = Range(Sheets("Sonderliste").Cells(27, 1).Value, Cells(3, 349)).Address
If Sheets("deckblatt").Range("C18").Value "Achtung" Then
Sheets("Liste").PageSetup.PrintArea = "$A$1:$c$349"
Else: Sheets("Liste").PageSetup.PrintArea = PA
End If
Danke
MArco