Excel Makro zum Suchen von Spalten und exportieren in CSV

Option Explicit

Private Sub CommandButton1_Click()
    bolAbbruch = True
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    Set Startdatum = TextBox1
    Set Enddatum = TextBox2
    bolWeiter = True
    Unload Me
End Sub

Option Explicit
Public Startdatum As Date
Public Enddatum As Date
Public bolAbbruch As Boolean
Public bolWeiter As Boolean


Sub suchen()
 Dim ws As Worksheet
 Dim letztezeile
 Set ws = Worksheets("Output")  
 Dim SpalteExport As String
 Dim s As Object
 Dim e As Object
 Dim SpaltenExport As Integer

 
 Eingabe_range.Show
 If bolWeiter = True Then

 'Workbooks.Open Filename:="D:\Documents\Documents\uni\master-thesis\Prognose\probe\Materialverbrauch_probe"  
 'Sheets("Tabelle1").Select  

    letztezeile = ws.Range("A1").End(xlToRight).Column  
    With ws.Range("a1:nl1" & letztezeile)  
    Set s = .Find(Startdatum, LookIn:=xlValues, LookAt:=xlWhole)
    Set e = .Find(Enddatum, LookIn:=xlValues, LookAt:=xlWhole)
    If Not s And e Is Nothing Then
    MsgBox "Werte sind vorhanden in der Startspalte " & s.Column & " und Endspalte " & e.Column  
 
    SpaltenExport = s.Column
 
 
 
    Else
    MsgBox "Wert ist nicht vorhanden!"  
    End If
 
    End With
 Else
 Exit Sub
 
 
 End If
    
 End Sub