Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeichen in Zellen überprüfen und löschen

Zeichen in Zellen überprüfen und löschen
12.08.2007 13:40:37
matto
Hallo,
ich habe hier eine textformatierte Zeile. Jetzt möchte ich gerne überprüfen ob die ersten 4 Zeichen Zahlen sind und wenn ja die ersten 5 Zeichen löschen (die 4 Zahlen + ein Leerzeichen)
Als Pseudocode stelle ich mir das so vor:
Wenn (Zelle(x,y)Zeichen1) = ("1" ODER "2" ODER "3" ... ODER "0") Dann
Wenn (Zelle(x,y)Zeichen2) = ("1" ODER "2" ODER "3" ... ODER "0") Dann
Wenn (Zelle(x,y)Zeichen3) = ("1" ODER "2" ODER "3" ... ODER "0") Dann
Wenn (Zelle(x,y)Zeichen4) = ("1" ODER "2" ODER "3" ... ODER "0") Dann
Lösche (Zelle(x,y)) Zeichen 1-5
solle eigentlich so gehen, aber ich weiss nicht welche Funktionen ich dafür benutzen muß
wäre schön, wenn mich jemand auf die richtige Spur bringt.
Gruß matto

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
=TEIL(A1;ISTZAHL(LINKS(A1;4)*1)*5+1;999)
12.08.2007 14:22:08
WF
.

AW: Zeichen in Zellen überprüfen und löschen
12.08.2007 14:30:00
Peter
Hallo matto,
das geht per VBA z. B. so:

Public Sub Pruefen()
Dim iSpalte  As Integer
Dim lZeile   As Long
iSpalte = 3
lZeile = 3
With Worksheets("Tabelle1")   '  "" Then
If IsNumeric(Mid(.Cells(lZeile, iSpalte).Value, 1, 4)) And _
Mid(.Cells(lZeile, iSpalte).Value, 5, 1) = " " Then
.Cells(lZeile, iSpalte).Value = Mid(.Cells(lZeile, iSpalte).Value, 6)
End If
End If
End With
End Sub


Gruß Peter

Anzeige
AW: Zeichen in Zellen überprüfen und löschen
ransi
HAllo
Oder so:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


Public Sub test()
Dim zelle As Range
On Error Resume Next
For Each zelle In Range("A1:A20") 'anpassen
    If Left(zelle.Value, 4) Like "####" Then
        zelle.Value = Right(zelle.Value, Len(zelle.Value) - 5)
    End If
Next
End Sub

ransi

Anzeige
AW: Zeichen in Zellen überprüfen und löschen
12.08.2007 14:54:00
matto
Das geht ja richtig fix hier!!!
Ich sach mal 100 Punkte für Peter und ransi (letztere Lösung finde ich etwas eleganter)
leichter Punktabzug für WF - die Funktion reagiert schon bei drei Zahlen
Aber vielen Dank an euch drei für die fixen Antworten
Gruß matto

AW: Zeichen in Zellen überprüfen und löschen
12.08.2007 15:45:00
Jenny
Hallo matto,
aber ohne VBA geht's trotzdem:
=WENN(ISTFEHL(LOG(LINKS(A1;4)));A1;WENN(LOG(LINKS(A1;4))<3;A1;TEIL(A1;6;999)))
Grüße von Jenny im Excel-Land
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige