Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle prüfen und Zeile löschen

Zelle prüfen und Zeile löschen
27.08.2006 15:31:51
Harald
Hallo,
ich habe mal wieder ein Problem.
In meiner Spalte steht in Spalte 5 jeweis ein Ausdruck, der aus einer Ziffer (1-4) und einem kleinen Buchstaben (a-e) besteht ( z. B. 3d).
Nun möchte ich in der kompletten Tabelle prüfen, welche Ziffer dort steht.
Wenn es eine 4 ist, soll die komplette Zeile gelöscht werden, andernfalls soll die Ziffer um 1 erhöht werden ( aus 3d soll dann 4d werden).
Wie kann ich das mit VBA erreichen?
m.f.g.
Harald

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle prüfen und Zeile löschen
27.08.2006 15:45:29
Matthias
Hallo Harald,
teste mal dies:

Sub test()
Dim lz As Long, z As Long
lz = Cells(Rows.Count, 5).End(xlUp).Row
For z = lz To 1 Step -1
With Cells(z, 5)
If Left(.Value, 1) = "4" Then
.EntireRow.Delete
Else
.Value = Val(.Value) + 1 & Mid(.Value, 2)
End If
End With
Next z
End Sub

Gruß Matthias
AW: Zelle prüfen und Zeile löschen
27.08.2006 16:00:23
Harald
Hallo Matthias,
vielen Dank - das funktioniert genau so wie ich es mir vorgestellt habe!
m.f.g.
Harald
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige