Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Werte mit bestimmter Anzahl Zeichen löschen
zurück: Listbox ohne Doppeleinträge & Anzahl Doppeleinträge weiter: Laufzeitfehler 1004 nach Umstellung auf Win7 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
NeuVBA
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2013, 11:27
Rufname:

Werte mit bestimmter Anzahl Zeichen löschen - Werte mit bestimmter Anzahl Zeichen löschen

Nach oben
       Version: Office 2010

Hallo Experten,

ich möchte aus einer Exceltabelle alle Werte löschen, die genau 9 Stellen
haben. Zum Teil sind mehrere Werte in einer Zelle. Wie mach ich das? Ihr
wißt das bestimmt. Hab leider nichts gefunden. Danke!!!
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2013, 11:32
Rufname:


AW: Werte mit bestimmter Anzahl Zeichen löschen - AW: Werte mit bestimmter Anzahl Zeichen löschen

Nach oben
       Version: Office 2010

Hi

erklär mal genauer.
was bedeutet "mehrere Werte in einer Spalte" ?
wie sieht das aus ?
wie sind die Werte getrennt ?
wie soll in diesem Fall das Ergebnis aussehen?

beispiel:
in einer Zelle steht "aaa 123456789 bbb"
soll dann "aaa bbb" daraus werden ?

Gruß Daniel
Isabelle :-)
Menschin


Verfasst am:
29. Apr 2013, 11:33
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis

AW: Werte mit bestimmter Anzahl Zeichen löschen - AW: Werte mit bestimmter Anzahl Zeichen löschen

Nach oben
       Version: Office 2010

Hallöchen,

so?

Code:
Public Sub test()
    Dim objCell As Range
    Set objCell = Cells.Find(What:="?????????", LookIn:=xlValues, LookAt:=xlWhole)
    Do Until objCell Is Nothing
        objCell.Value = Empty
        Set objCell = Cells.FindNext(objCell)
    Loop
End Sub

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
NeuVBA
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2013, 11:55
Rufname:

AW: Werte mit bestimmter Anzahl Zeichen löschen - AW: Werte mit bestimmter Anzahl Zeichen löschen

Nach oben
       Version: Office 2010

Hallo,

vielen Dank für die schnellen Antworten! So sehen meine Werte aus in verschiedenen Spalten, Zellen und Zeilen. Alles was 9stellig ist, soll raus. Ersatzlos
entfernen.

11004043
11004033
110040333
11004063
11004053
110040533
11004083
11004073
110040733

@ Isabelle: hab ich getestet, hat aber leider nicht funktioniert.
Danke aber!
Isabelle :-)
Menschin


Verfasst am:
29. Apr 2013, 11:59
Rufname:
Wohnort: Westlicher Spiralarm der Galaxis


AW: Werte mit bestimmter Anzahl Zeichen löschen - AW: Werte mit bestimmter Anzahl Zeichen löschen

Nach oben
       Version: Office 2010

Hallöchen,

ich hab's auch getestet. Sieht anschließend so aus:

 A
111004043
211004033
3 
411004063
511004053
6 
711004083
811004073
9 

Macht also genau das was es soll.

_________________
LG Isi

Die Mitgliedschaft im Forum erhöht deine Chance auf eine Antwort von mir um 99,999%
NeuVBA
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2013, 11:59
Rufname:

AW: Werte mit bestimmter Anzahl Zeichen löschen - AW: Werte mit bestimmter Anzahl Zeichen löschen

Nach oben
       Version: Office 2010

@ Daniel: ja wie in deinem Beispiel
NeuVBA
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2013, 12:03
Rufname:

AW: Werte mit bestimmter Anzahl Zeichen löschen - AW: Werte mit bestimmter Anzahl Zeichen löschen

Nach oben
       Version: Office 2010

Hallo Isi,

die Werte stehen aber nicht alleine in einer Zelle sondern immer im 3er Pack
in einer Zelle

11004043
11004033
110040333

11004063
11004053
110040533

11004083
11004073
110040733

bei 1 Wert in 1 Zelle hats auch bei mir geklappt! Kannst du mir mit der Anpassung auch noch helfen?
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2013, 12:18
Rufname:

AW: Werte mit bestimmter Anzahl Zeichen löschen - AW: Werte mit bestimmter Anzahl Zeichen löschen

Nach oben
       Version: Office 2010

Hi
dann wirs komplizierter:

Code:
Public Sub test()
Dim arr
Dim rng As Range
Dim z As Long, s As Long
Dim TeilTexte() As String
Dim i As Long
Dim TrKZ As String

TrKZ = " "

Set rng = ActiveSheet.UsedRange
arr = rng.Value
For z = 1 To UBound(arr, 1)
    For s = 1 To UBound(arr, 2)
        TeilTexte = Split(arr(z, s), TrKZ)
        For i = 0 To UBound(TeilTexte)
            If Len(TeilTexte(i)) = 9 Then TeilTexte(i) = ""
        Next
        arr(z, s) = Join(TeilTexte, TrKZ)
        arr(z, s) = WorksheetFunction.Trim(arr(z, s))
       
    Next
Next
rng.Value = arr
End Sub


Trennzeichen bitte anpassen, wenn nicht das Leerzeichen (Zeilenumbruch TrKZ = Chr(10))
Allerdings funktioniert dann das Eleminieren der Doppelten Trennzeichen und der Trennzeichen am Anfang und Ende mit Hilfe der TRIM-Funktion nicht mehr, das müsste man dann ausprogrammieren.

Gruß Daniel
NeuVBA
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2013, 12:24
Rufname:


AW: Werte mit bestimmter Anzahl Zeichen löschen - AW: Werte mit bestimmter Anzahl Zeichen löschen

Nach oben
       Version: Office 2010

Super jetzt hats geklappt!

Vielen Dank, Daniel und Isi!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Will Werte addieren in Bezug zu einer anderen Spalte 8 MrMr 2236 08. Jan 2005, 14:50
xyzdef Will Werte addieren in Bezug zu einer anderen Spalte
Keine neuen Beiträge Excel Formeln: Zählen, so dass doppelte Werte nur einmal gezählt werden 2 Volkmann 2258 30. Nov 2004, 17:18
Volkmann Zählen, so dass doppelte Werte nur einmal gezählt werden
Keine neuen Beiträge Excel Formeln: Werte aus Tabelle zurückgebn 1 Spoonler 2266 22. Nov 2004, 15:54
ae Werte aus Tabelle zurückgebn
Keine neuen Beiträge Excel Formeln: Nur addieren wenn ein bestimmter Wert in einer Bereich 4 Aloha 2956 18. Nov 2004, 22:44
Aloha Nur addieren wenn ein bestimmter Wert in einer Bereich
Keine neuen Beiträge Excel Formeln: Werte vergleichen 4 hoerbi 2971 10. Nov 2004, 20:45
hoerbi Werte vergleichen
Keine neuen Beiträge Excel Formeln: Bestimmter Zeileninhalt in eine andere Zeile kopieren 2 Gast 2585 04. Nov 2004, 14:52
jpx10 Bestimmter Zeileninhalt in eine andere Zeile kopieren
Keine neuen Beiträge Excel Formeln: Blattschutz: bestimmte Zellen zum Löschen freigeben 6 Christiane 1203 21. Okt 2004, 07:17
lala Blattschutz: bestimmte Zellen zum Löschen freigeben
Keine neuen Beiträge Excel Formeln: In Exel gleiche Zeilen finden und andere Werte importieren 0 Timo 3157 13. Okt 2004, 14:46
Timo In Exel gleiche Zeilen finden und andere Werte importieren
Keine neuen Beiträge Excel Formeln: erste Zeichen einer Zelle in andere kopieren 2 fisler0815 3067 11. Okt 2004, 15:37
fisler0815 erste Zeichen einer Zelle in andere kopieren
Keine neuen Beiträge Excel Formeln: Frage... (suchen und löschen) 2 fs-racing 695 01. Sep 2004, 12:13
fs-racing Frage...  (suchen und löschen)
Keine neuen Beiträge Excel Formeln: E2k: Zählen bei bestimmter Hintergrundfarbe 22 SAMsTag 2751 16. Aug 2004, 13:07
SAMsTag E2k: Zählen bei bestimmter Hintergrundfarbe
Keine neuen Beiträge Excel Formeln: Werte aus zwei tabellen vergleichen 3 nfips 2974 29. Jul 2004, 21:01
fl618 Werte aus zwei tabellen vergleichen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum