Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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

240 Forumthreads zu ähnlichen Themen

Pivot: Anzahl verschiedener Werte
Daniel

Hallo Profis,
wie kann ich im Datenfeld einer Pivot-Tabelle die Anzahl verschiedener Werte anzeigen lassen?
Bsp:
Spalte A
A
B
A
C
V
A
Excel zeigt hier im Datenfeld der Pivot-Tabelle (Anzahl) als Wert 7 an.
Ich würde aber gerne nur die Anzahl der versc...
07.01.2009 09:48:00
Thread-ID: 1037453
2 Beiträge
Anzeige
Anzahl unterschiedlicher Werte mit VBA ermitteln
Holger

Hallo Leute,
ich habe jetzt den ganzen Tag Archive studiert, Threads gelesen, gegoogelt... ich finde nicht die richtige Lösung (die ganz sicher total einfach ist).
Ich bekommen eine Liste mit vier Spalten und mehr als 50.000 Datensätzen im folgenden Format:
Verkäufername...... Auft...
12.03.2009 15:00:44
Thread-ID: 1059508
4 Beiträge
Pivottab: Werte als % anzeigen
André

Moin zusammen,
ich habe hier ein kleines Verständnisproblem bei einer Pivot-Tabelle. Muß dazu sagen, daß ich Pivottabellen bisher nur selten verwendet habe.
Die Pivottabelle hat mehrere Spalten, darunter z.B. Verkaufspreis und Rohertrag. Diese beiden Spalten sind jeweils in Euro die Sum...
10.06.2009 15:35:59
Thread-ID: 1080522
7 Beiträge
Anzeige
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Excel Tool zum erstellen einer Top 100 Liste
Stein

Erstmals muss ich mich bedanken, wie schnell mir schon bei Problemen geholfen wurde. Leider hat es nicht geholfen und ich muss ein neues VBA Tool schreiben.
Also wie gesagt möchte ich in Excel ein Formular(Benutzeroberfläche) haben, wo man mehrere Excel Tabellen hinzufügt. Einmal nach Absat...
31.07.2009 14:28:25
Thread-ID: 1092766
3 Beiträge
Anzahl unterschiedlicher sichtbarer Werte
Dietmar

Guten Abend,
ich tüftele schon den ganzen Abend herum.
Wie kann ich die Anzahl unterschiedlicher Werte in einer Spalte per Formel herausfinden?
In der Spalte B (ab Zeile 33) steht Text und Zahlen.
Und jetzt das Besondere:
Die Anzahl soll nur für die sichtbaren Felder ausgewo...
05.03.2010 23:06:13
Thread-ID: 1143848
5 Beiträge
Textvergleich liefert falsche Werte
juergen

Hallo Forum!Ich habe zwei Textdateien mit gleicher Anzahl von Datensätzen. Zum Herausfiltern der ungleichen Datensätze benutze ich untenstehendes Skript, welches diese in eine dritte Textdatei einträgt.Es funktioniert anfangs optimal, nur leider schreibt es ab einer gewissen Anzahl von Datensät...
06.05.2002 19:43:53
Thread-ID: 118943
3 Beiträge
Pivot Tabellen Bestwerte anzeigen
Friedhelm

Hallo,
ich habe eine Tabelle mit Ergebnissen von Läufern und möchte in den Altergruppen und den verschiedenen Laufstrecken die Bestzeiten der Läufer darstellen.
Als Beispiel habe ich eine Tabelle beigefügt, die soweit den Pivot Auszug darstellt. Hier möchte ich in den Lauflängen nur die...
13.09.2010 11:02:06
Thread-ID: 1177216
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
6
7
2
2
4
2
7
3
10
5
2
7
5
7
1
2
2
10
3
7
9
2