ich stehe irgendwie auf dem Schlauch und hoffe ihr könnt helfen. Es soll einfach nur geprüft werden of eine Datei vorhanden ist. Wenn diese NICHT vorhanden ist, soll eine bestimmte Excel Tabelle geöffnet und in dieser nach der ersten freien Zelle gesucht werden. Ich dachte ich läge hiermit richtig:
Private Sub CommandButton3_Click()
Dim lngLast As Long
strFileName = "Gutschriften"
If Dir(ThisWorkbook.Path & "\" & strFileName & "_" & Format(Date, "dd.mm.yyyy") & "_OPEN" & ".xlsx") = "" Then
Workbooks.Open (ThisWorkbook.Path & "\test.xlsx")
lngLast = Cells(Rows.Count, 4).End(xlUp).Row + 1
MsgBox "Erste freie Zelle in Spalte D ist in Zeile: " & lngLast
Else
MsgBox "gibts"
End If
allerdings wird damit im workbook gesucht in dem ich die suche gestartet hab und NICHT in der neu geöffneten datei :(