Clever-Excel-Forum

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

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

Danke
hat funktioniert

Danke klaus-Dieter

franken

Klaus-Dieter

franken