Hilfe bei Suchmaske

[franken]

hallo liebes Forum 

ich habe folgendes Problem
die beigefuegte Datei hab ich hier im Forum gefunden 
und waere fuer mich eigentlich gut fuer meine private 
aufnahmenverwaltung 

da ich mich in vba usw ueberhaupt nicht auskenne 
haette ich folgende frage


 im tabellenblatt uebersichtsliste gebe ich meine aufnahmen ein 
und wenn ich dann in das Blatt suche gehe gebe ein was ich suche
wenn ich dann auf Eingaben löschen gehe bleiben aber ab Zeile 101 die 
letzten Ergebnisse aus der suche stehen 

Vielleicht hat jemand einen tip das dann eben alles leer ist

da ich den Verfasser nicht mehr weiß ich hätte ihn angeschrieben
braeuchte ich eure hilfe 

danke sehr 

gruss frank

[Klaus-Dieter]

Hallo,

dann musst du im Quelltext eben den Bereich anpassen.

Code:

Public Sub Bereich_loeschen()
'Bereich eventuell anpassen
With Worksheets("Suche")
.Range("A6:IV100").ClearContents ' hier den Wert 100 entsprechend vergrößern, oder dynamisieren.
.TextBox1.Value = ""
.TextBox1.Activate
End With
End Sub

[franken]

Danke
hat funktioniert
 
Danke klaus-Dieter