Liebe Kollegen,
habe folgenden Code um Dateien zu erstellen - der Name Agenturnamenverkettet zeigt auf das Statusblatt und die Range D3 bis D96 - jetzt benötige ich in dieser Schleife Zugriff auf 2 Spalten links von diesem Namen also B3 bis B96. Ich muss diese Werte auslesen.
Danke
Martin
For Each Zellinhalt In Range("Agenturnamenverkettet")
Worksheets("Statusblatt").cboAgenturnummer.Value = Zellinhalt
Dim strDateiname1 As String
Range("a2:G52").Select
Dim strFileName As String
'PDF erstellen
strFileName = strFolder & Zellinhalt & " " & Format(Now, "DD.MM.YYYY") & ".pdf"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next Zellinhalt