Office: VBA - Makro If-Anweisung in Abhängigkeit von Zellenert

Hallo Zusammen,

ich habe bereits ein Makro, welches mir von einem Tabellenblatt eine PDF erstellt.
Nun möchte ich das ganze auch mehrsprachig gestalten und komme mit der IF-Abfrage nicht zurecht bzw. erstellt er mir jedes mal das Deutsche-PDF.
Hat jemand eine Idee?

Code:
Sub pdf_erstellen()

'
' pdf_erstellen Makro
'


Dim myPath, myFileName As String
myPath = ThisWorkbook.Path

' Abfrage Englisch
If ActiveSheet.Range("B72") = "WAHR" Then

myFileName = ThisWorkbook.Sheets("Datenerfassung").Range("M22") & ".pdf"
Sheets("Timesheet").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myPath & "\" & myFileName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True, From:=1, To:=1, _
OpenAfterPublish:=True

ElseIf ActiveSheet.Range("B73") = "WAHR" Then

' Abfrage Spanisch
myFileName = ThisWorkbook.Sheets("Datenerfassung").Range("M22") & ".pdf"
Sheets("HojaDeHoras").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myPath & "\" & myFileName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True, From:=1, To:=1, _
OpenAfterPublish:=True

ElseIf ActiveSheet.Range("B71") = "WAHR" Then

' Ansonsten Deutsch

myFileName = ThisWorkbook.Sheets("Datenerfassung").Range("M22") & ".pdf"
Sheets("Stundenzettel").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myPath & "\" & myFileName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True, From:=1, To:=1, _
OpenAfterPublish:=True

End If

End Sub


Vielen Dank im voraus!

Grüße

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

 

Hallo,

das Problem waren die "WAHR" gewesen. Mit der Abfrage true funktioniert es.

 

Probleme machen mir nun noch die IF-Abfragen.

Es gibt drei Auswahlmöglichkeiten deutsch (B71), englisch (B72) und spanisch (B73).
Sollte keines aktiv sein, möchte ich das deutsch genommen wird...

Aktuell kann man nur eine Version selektieren, danach wird die IF-Abfrage beendet.



' Abfrage Englisch
If Range("B72").Value = True Then

--> Englische Version erstellen

' Abfrage Spanisch
ElseIf Range("B73").Value = True Then

--> Spanische Version erstellen

' Ansonsten Deutsch
ElseIf Range("B71").Value = True Then

--> Deutsche Version erstellen

End If


End Sub

 

Hallo,
dann mach doch aus dem ElseIf ein einfaches Else

Code:

If Range("B72").Value = True Then    'Englisch
...
ElseIf Range("B73").Value = True Then   'Spanisch
...
Else   ' Ansonsten Deutsch
...
End If

 

@Doming Bin gestern noch selbst drauf gekommen. Trotzdem danke für den Tipp!