Anzeige
Archiv - Navigation
524to528
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Lösung gesucht

VBA Lösung gesucht
03.12.2004 12:18:15
Josef
Hallo!
Ich habe folgenden VBA Text:

Sub Lösch_Spalte_D_14()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 4).End(xlUp).Row
For i = laR To 1 Step -1
If Mid(Cells(i, 4).Text, 1, 2) = "14" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Wenn in Spalte D an der ersten und 2.Stelle die Zahl 14 aufscheint, dann wird die Zeile gelöscht.
Ich würde jedoch jetzt noch eine Lösung suchen,wenn an der ersten und der 2.Stelle die Zahl 14 in Spalte D aufscheint, dann soll nicht die Zeile, sondern nur die gefundene Zelle in der Spalte D gelöscht werden.
Danke
Josef

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Lösung gesucht
Galenzo
so?
If Mid(Cells(i, 4).Text, 1, 2) = "14" Then
cells(i,4).clearcontents
End If
AW: VBA Lösung gesucht
03.12.2004 12:26:25
chris
Meinst du so ?

Sub Lösch_Spalte_D_14()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 4).End(xlUp).Row
For i = laR To 1 Step -1
If Mid(Cells(i, 4).Text, 1, 2) = "14" Then
Cells(i, 4).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

AW: VBA Lösung gesucht
03.12.2004 12:28:20
Josef
Besten Danke für Eure Hilfe.
Funktioniert bereits.
Danke
Josef

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige