VBA - mit Sverweis Zeile markieren und löschen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] VBA - mit Sverweis Zeile markieren und löschen

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

Autor

Nachricht

Simon
Newbie
Newbie

Anmeldedatum: 01.07.2008
Beiträge: 4

Verfasst am: 01.07.2008, 20:50

Nabend,
ich hab in VBA folgendes Problem: Ich möchte gerne per VBA einen Wert in einer Tabelle suchen und daraufhin die komplette Zeile, in der sich der Wert befindet löschen.

Code:

Public Sub c_loeschen()
Dim Sendung As Integer
Dim Nummer As Integer
Nummer = InputBox("Bitte Wert eingeben")
sendung = WorksheetFunction.VLookup(Nummer, Sheets("Tabelle1").[b4:c200], 2, False)
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
End Sub

Gelöscht wird allerdings nur die zuletzt markierte Zeile.
Ich bin mir sicher, dass der Code falsch ist, mit meiner 2 wöchigen VBA erfahrung ist mir allerdings nichts anderes eingefallen.
Für Hilfe bedanke ich mich im Vorraus.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 01.07.2008, 21:06

Hallo!

Ich verstehe nicht ganz, warum du "VLookup" benutzt...
Wenn du Zeilen löschen möchtest, dann ist es wichtig, dass du dies von UNTEN nach OBEN tust, weil sonst der Zähler durcheinander kommt.
In deinem Fall (ungetestet!) mit einer For-Next-Schleife:

For i = 200 To 4 Step -1
If Cells(i, 3) = Nummer Then Rows(i).Delete
Next i

Dieser Code sucht in Spalte 3 (C4:C200) nach Nummer und löscht diese Zeilen (hoffentlich Very Happy

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

Simon
Newbie
Newbie

Anmeldedatum: 01.07.2008
Beiträge: 4

Verfasst am: 01.07.2008, 21:20

Ich dachte ich könnte die Schleife umgehen, indem ich mit dem Sverweis die Position abfrage.

Die Version ist aufjeden Fall funktionstüchtig.
Vielen Dank

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 01.07.2008, 21:49

Hallo!

Der SVerweis fragt immer nur EINE, nämlich die ERSTE Position ab, dann ist daddeldu.
Daher brauchst du hier schon ein Schleife.

Ps: Um in VBA versetzte Zellen abzufragen, nutzt du am besten die Anwesung ".Offset".

MeinBereich.Offset(x, y)
verschiebt um x Zeilen nach rechts und um y Spalten nach unten.
(bei negativen Werten entsprechend nach links und nach oben).

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
	Spalte überprüfen, bestimmten Text na...	CrazyCat	Microsoft Excel Hilfe	8	27.11.2008, 14:05
	2. neue zeile einfügen wenn darüber text	enzo	Microsoft Excel Hilfe	2	27.11.2008, 12:46
	SVerweis	Pocco	Microsoft Excel Hilfe	6	24.11.2008, 09:47
	Zeile suchen, wenn gefunden zwei Dati...	cyRus-tC	Microsoft Excel Hilfe	2	22.11.2008, 16:11
	Sverweis	alf1957	Microsoft Excel Hilfe	1	20.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