Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle zeilen von spalte K ein "VV"steht löschen

Forumthread: alle zeilen von spalte K ein "VV"steht löschen

alle zeilen von spalte K ein "VV"steht löschen
12.12.2003 10:04:50
peter
Hallo Excels,
wer kann mir beim Umbau dieses Makros helfen.


Sub allemitVV()
Dim intRow As Integer
intRow = 2
While Cells(intRow, 11).Value <> ""
If Cells(intRow, 11).Value = "VV0340" Then
Rows(intRow).Delete
Else
intRow = intRow + 1
End If
Wend
End Sub

Diese Zeile muss so geändert werden, dass alle Zeilen gelöscht werden wenn der Eintrag in Spalte K mit "VV" beginnt.
If Cells(intRow, 11).Value = "VV0340" Then
Gruss
Peter
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle zeilen von spalte K ein "VV"steht löschen
12.12.2003 10:13:37
Mac4
Hi,

probiers mal so:

If Left(Cells(intRow, 11).Value,1) = "VV" Then

Marc
AW: alle zeilen von spalte K ein "VV"steht löschen
12.12.2003 10:29:28
peter
Hi Marc,
ich habe dein Zeile in meinen Code kopiert aber leider werden dann keine Zeilen gelöscht.
gruss
peter
AW: alle zeilen von spalte K ein "VV"steht löschen
12.12.2003 10:37:22
Mac4
Hallo Peter,

vieleicht habe ich es auch auf den Augen. Was soll als erstes Zeichen Stehen? Ein W wie Walter oder sind das in Deinem Beispiel 2 V's VV?

Marc
Anzeige
AW: alle zeilen von spalte K ein "VV"steht löschen
12.12.2003 10:43:32
WernerB.
Hallo Peter,

wie geht es damit?

Sub allemitVV()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 11).End(xlUp).Row
For i = laR To 2 Step -1
If Left(Cells(i, 11).Value, 2) = "VV" Then
Cells(i, 11).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige
DANKE EUCH BEIDEN KLAPPT SUPER!
12.12.2003 11:04:35
peter
:)
;

Forumthreads zu verwandten Themen

Alle Leerzeichen bis rechts von Ziffer löschen
Ziffer

Hallo Freaks,
ich habe in der Spalte B 1700 Zeilen, die mit Artikelbezeichnungen folgenden Musters befüllt sind:

Mein Ziel ist es, alle Leerzeichen bis auf zwei nach der letzten Ziffer und dem ersten Buchstaben zu löschen. Also ab der 11 Stelle bis zur 16 Stelle alle Leerzeichen bi...
13.12.2008 21:41:36
Thread-ID: 1032708
3 Beiträge
Anzeige
Parallele Installation von Excel 2003 und 2007
Excel

Hallo zusammen,
bei einer parallelen Installation von Excel 2003 und Excel 2007
startet beim Doppelklick auf eine Excel-Datei immer Excel 2007.
Hat jemand eine Idee, wie man es erreicht, dass Excel 2003 startet beim Doppelklick
auf eine Excel-Datei?
Das ändern im Explorer un...
30.01.2009 23:27:12
Thread-ID: 1045561
19 Beiträge
Alle Teiler einer Zahl
Alifa

Hallo Forum,
vielen Dank an alle Helfer! Wenn ich selber nicht mehr weiter gekommen bin, habe ich meine letzte Hoffnung in dieses Forum gehabt. Ich befinde mich in Eurer Schuld!
Ich wünsche allen in Zukunft die beste Gesundheit und viel Erfolg.
Alifa
23.12.2012 15:51:06
Thread-ID: 1291987
2 Beiträge
Wie Länge einer Zahl bestimmen?
Fabe

Wie kann ich die Länge einer Zahl bestimmen?Gemeint ist im konkreten Fall die Anzahl der Ziffern von der ersten bis zur letzten von null verschiedenen Ziffer einer Zahl. Dabei dürfen Kommas nicht berücksichtigt werden.
Bsp: 2,98 hat die Länge 3
2,90 hat die Länge 2
3,00 hat d...
23.08.2002 21:03:33
Thread-ID: 152166
10 Beiträge
Alle Dateien von Ordner öffnen
Philip

Hallo !in 1 Ordner habe ich 50 Excel Dateien.
Ich möchte 1 Zusammenfassungstabelle erstellen (Ergebnise).
Dafür sollte meine Macro die erste Datei öffnen (von die 50), ein Blatt "A" kopieren, mein "Ergebniss-Datei" wählen und "einfügen Werte", die Quelle Datei schließen und nächste Datei...
01.09.2002 14:09:06
Thread-ID: 155063
2 Beiträge
alle x in einer Zeile zählen
nilo

Hi,
ich versuche in einer kompletten Zeile 1 die x zu zählen, sobald mehr als ein x eingetragen wurde soll ein Fehler erscheinen.
Sollte man dazu sowas in der Art nutzen:
ActiveSheet.Range.End(xlUp).Row.Value("x").Count
Das ist sicherlich falsch, aber Count gibt mir doch die Sum...
19.12.2017 11:00:42
Thread-ID: 1598010
9 Beiträge
bei öffnen von Datei alle menüs ausblenden
Ben

Hi,
ich suche eine Möglichkeit, möglichst alle Leisten und Menüs auszublenden. Also mehr als "Ganzer Bildschirm" bietet. Ziel ist es, daß man die Datei nicht sofort als xls entlarvt! Kann man zB eine exe Datei erstellen? Vielen Dank.
Ben

25.02.2003 12:14:45
Thread-ID: 224016
2 Beiträge
möchte von allen blättern mit Buttons auf eine VBA
Michael
Hallo,
ich hoffe ich nerve euch das letzte mal für heute abend
ich möchte gerne aus allen blättern meiner arbeitsmappe mit buttons auf einen VBA sub zugreiffen.
wie kann ich das schaffen ohne den sub in jedes blatt zu kopieren?
Gruß
Michael
05.03.2004 20:47:33
Thread-ID: 393280
2 Beiträge
Mit einer Zahl die Anzahl Spalten bestimmen
Erich

Hallo EXCEL-Freunde,
ich möchte eine Summenbildung ab der Spalte C nach rechts variabel gestalten,
indem ich durch eine Zahl bestimme wieviele Spalten summiert werden sollen:
Ergebnis  ABCDEFGHIJKL1Spalten:10 <---- = variabel       &nb...
27.02.2005 15:09:26
Thread-ID: 577664
8 Beiträge
Mit einer Zahl die Anzahl Zeilen bestimmen
Müller

Hallo,
am 27.02., 15:40:39 hat Hübi eine Frage über "Mit einer Zahl die Anzahl Spalten bestimmen" beantwortet.
Ich hätte jetzt gern die Formel(n) für "die Anzahl Zeilen". Hilft mir jemand ?
Gruß EM
01.03.2005 09:02:30
Thread-ID: 578629
5 Beiträge
Löschen von allen Dateien, aber mit Ausnahmen?
allen

Hallo, ich schon wieder!
Ich möchte in meinem TEMP-Ordner sämtliche Temp-Dateien löschen, die älter als 3 Tage sind, allerdings soll es einige wenige Ausnahmen geben. Diese haben immer in der Namensbezeichnung ein "office" stehen, also zB "nmkoffice1.tmp" oder "jhuoffice98.tmp". Diese Datei...
19.05.2006 12:48:58
Thread-ID: 765891
4 Beiträge
Anzeige
Alle Werte Filtern abgesehen von dem in C26
dem

Hallo Zusammen!
Wie muss ich dieses Macro verändern, das er mir alle Werte Filtert abgesehen von dem Wert in C26?
If ActiveSheet.Cells(8, 3) "" Then
ActiveSheet.Range("C26").AutoFilter Field:=3, Criteria1:=ActiveSheet.Cells(8, 3).Value
Exit Sub
End If
Danke für eure Hil...
11.07.2007 17:37:00
Thread-ID: 886346
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige