Wert aus TB / UF in Tabellenblatt H2:H1000 suchen löschen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Wert aus TB / UF in Tabellenblatt H2:H1000 suchen löschen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 107
Wohnort: 67742 Lauterecken

Verfasst am: 31.05.2008, 08:47

Hallo,

Bräuchte eine Anweisung, welche mir in einem Tabellenblatt-X die Spalte H2:H1000 nach einem Wert, der in TB1 einer UF steht, durchsucht und diese Zelle löscht. Löse diesen Vorgang via CB aus.

Gruß Timi

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 454
Wohnort: Fridingen an der Donau

Verfasst am: 31.05.2008, 13:06

Hallo

"der in TB1 einer UF steht, " was soll das bedeuten?

Ansonsten z.B diesen Code in ein Modul:

Code:

Sub durchsuchen()
Dim i As Range
Dim bereich As Range
Set bereich = Range("h2:h1000")
For Each i In bereich
If i.Value = Range("a1").Value Then
i.ClearContents
End If
Next i
End Sub

Löscht aus H2:H1000 alle Werte die in A1 eingegeben werden.

Gruß

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 107
Wohnort: 67742 Lauterecken

Verfasst am: 31.05.2008, 14:14

Hallo

"der in TB1 einer UF steht, " was soll das bedeuten?

bedeutet:

der in TextBox1 einer UserForm steht.

Werde Deinen Vorschlag umgende anpassen und testen!

Vielen Dank!

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 107
Wohnort: 67742 Lauterecken

Verfasst am: 31.05.2008, 14:27

Hallo,

ist nicht so das, was ich bräuchte. Auf jeden Fall funzt's nicht so richtig!

In meinem Tabellenblatt " Gesamtübersicht " stehen in H2:H1000 div. Werte untereinander.
Nun sollte per CommandButton in meiner UserForm dieser Bereich durchsucht werden und die Zelle gelöscht werden, welche in meiner TextBox1 auf der UserForm gerade angezeigt wird.

Bsp.: In TextBox1 meiner UserForm wurde die 120 ausgewählt. Nun müsste im Tabellenblatt " Gesamtübersicht " in der Spalte H2:H1000 die Zelle gelöscht werden, welche die Zahl 120 beinhaltet.

Gruß Timi

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 107
Wohnort: 67742 Lauterecken

Verfasst am: 01.06.2008, 00:48

KORREKTUR; Funktioniert doch!
Hatte kleinen Fehler gemacht!
Hier mein Ergebnis:

Dim i As Range
Dim bereich As Range
Set bereich = Sheets("Gesamtübersicht").Range("h2:h1000")
For Each i In bereich
If i.Value = TextBox1.Value Then
i.ClearContents
End If
Next i

Gruß Timi

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	FINDEN liefert #WERT!	PhoenixTS82	Microsoft Excel Hilfe	1	29.11.2008, 13:41
	Eingabewert in selber Zelle mit feste...	senna94	Microsoft Excel Hilfe	1	28.11.2008, 13:13
	Spalte überprüfen, bestimmten Text na...	CrazyCat	Microsoft Excel Hilfe	8	27.11.2008, 14:05
	Feld B sperren, wenn ein Wert in Feld...	matze63	Microsoft Excel Hilfe	3	26.11.2008, 14:23
	Wert addieren bis höchstzahl erreicht...	Chris100189	Microsoft Excel Hilfe	2	25.11.2008, 14:03

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de