Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalte prüfen und Daten löschen

Spalte prüfen und Daten löschen
walter
Guten Tag allerseits,
ich habe eine Spalte, AY, da sollen die Zellen überprüft werden.
Und zwar stehen verschiedene Texte und Zahlen drin.
Es kann aber sein das in Zellen folgende Werte drin stehen nach die
gesucht werden sollen.
LP010112, es soll immer nach "LP" gesucht werden, die Daten sollen drin bleiben
alle anderen Texte sollen gelöscht werden.
Wenn also:
LP030112
LP030112
ENDMWer lkih.aeql.rafw.000
LP030112
LP030112
im letzten Schritt sollen die Buchstaben LP gelöscht werden und aus den nächsten
6 Ziffern soll das Datumsformat hinterlegt werden.
LP030112 =030112 03.01.12
ich hoffe ich habe es Richtig erklärt,
mfg Walter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spalte prüfen und Daten löschen
21.01.2012 15:04:50
Hajo_Zi
Walter Walter,
für die Auswahl benutze Autofilter enthält nicht LP, und lösche alle sichtbaren.

brauch das als Makro
21.01.2012 15:26:51
walter
AW: Spalte prüfen und Daten löschen
21.01.2012 15:11:10
Josef

Hallo Walter,
ungetestet.
Sub deleteValues()
  Dim rng As Range, rngDel As Range
  
  With ActiveSheet
    For Each rng In .Range("AY2:AY" & .Cells(.Rows.Count, 51).End(xlUp).Row)
      If rng Like "LP*" Then
        rng = CDate(DateSerial(Mid(rng, 7, 2) * 1, Mid(rng, 5, 2) * 1, Mid(rng, 3, 2) * 1))
      Else
        If rngDel Is Nothing Then
          Set rngDel = rng
        Else
          Set rngDel = Union(rngDel, rng)
        End If
      End If
    Next
    .Range("AY2:AY" & .Cells(.Rows.Count, 51).End(xlUp).Row).NumberFormat = "dd.mm.yyyy"
  End With
  
  If Not rngDel Is Nothing Then rngDel.ClearContents
  
  Set rng = Nothing
  Set rngDel = Nothing
End Sub




« Gruß Sepp »

Anzeige
Geil das funktioniert !!!!! -)
21.01.2012 15:28:13
walter
Hallo Josef,
einwandfrei !!!
Tausend Dank !
Hallo Hajo,
danke auch für den Tip !!!
mfg walter mb

251 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige