Wenn das nachstehende Makro nicht automatisch bei Veränderung der Zelle B2 aktiv werden soll, sondern bei Klick von Button1, wie müsste der Code denn dann lauten?
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("A6", Cells(Rows.Count, 1)).EntireRow.Delete
If Not Intersect(Range("B2"), Target) Is Nothing Then
If Range("B2").Value "" Then
Call LeseDaten(Range("B2").Value)
Call CloseDB
End If
End If
Application.EnableEvents = True
End Sub
Danke für die Unterstützung im Vorfeld,
LH