10.11.2020, 21:57
Guten Abend miteinander
Ich habe eine Frage bezüglich der Identifikation von Zellen:
Gibt es eine Möglichkeit Zellen zu bestimmen ohne die Zellnummer zu verwenden?
Der Hintergrund ist folgender:
Ich benutze ein Makro zum Exportieren des Sheets als pdf. Im Speichernamen des pdf ist der Inhalt einer Zelle eingefügt (Name des Benutzers durch eine Dropdown Liste). Durch den Aufbau der verschiedenen Blätter (Grafiken) kann ich aber die Zelle des Benutzernamens nicht bei jedem Sheet an die gleiche Stelle setzen. Ich müsste also für jedes Blatt ein eigenes Makro erstellen. Mein Ziel wäre es, dass ich dem Makro quasi sagen könnte "Finde die Zelle in der die Namen aufgelistet sind und füge diesen Inhalt ein"
Bis jetzt sieht das so aus:
Sub pdfExportieren()
Dim Fahrzeug As String
Fahrzeug = Range("X13").Text
Dim Speicherpfad As String
Speicherpfad = "/Users/xxxxx/OneDrive - xxxxx/Attachments/" & Range("G42").Value & "/"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:=Speicherpfad & Range("X16").Value & Fahrzeug & "_" & Format(Now, "dd.mm.yyyy _
hh_mm")
End Sub
Die Zelle G42 enthält die Namen, aber sie ist nicht in allen Sheets gleich.
Besten Dank für eure Hilfe
Nico
Ich habe eine Frage bezüglich der Identifikation von Zellen:
Gibt es eine Möglichkeit Zellen zu bestimmen ohne die Zellnummer zu verwenden?
Der Hintergrund ist folgender:
Ich benutze ein Makro zum Exportieren des Sheets als pdf. Im Speichernamen des pdf ist der Inhalt einer Zelle eingefügt (Name des Benutzers durch eine Dropdown Liste). Durch den Aufbau der verschiedenen Blätter (Grafiken) kann ich aber die Zelle des Benutzernamens nicht bei jedem Sheet an die gleiche Stelle setzen. Ich müsste also für jedes Blatt ein eigenes Makro erstellen. Mein Ziel wäre es, dass ich dem Makro quasi sagen könnte "Finde die Zelle in der die Namen aufgelistet sind und füge diesen Inhalt ein"
Bis jetzt sieht das so aus:
Sub pdfExportieren()
Dim Fahrzeug As String
Fahrzeug = Range("X13").Text
Dim Speicherpfad As String
Speicherpfad = "/Users/xxxxx/OneDrive - xxxxx/Attachments/" & Range("G42").Value & "/"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
FileName:=Speicherpfad & Range("X16").Value & Fahrzeug & "_" & Format(Now, "dd.mm.yyyy _
hh_mm")
End Sub
Die Zelle G42 enthält die Namen, aber sie ist nicht in allen Sheets gleich.
Besten Dank für eure Hilfe
Nico