Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

alle "No" nur am anfang einer Zelle loeschen

alle "No" nur am anfang einer Zelle loeschen
04.10.2007 07:54:00
grossermanitu
Guten Morgen allerseits,
ich habe die Suchen & Ersetzen funktion schon ausgereizt. Leider finde ich keine passende Loesung wie ich alle "No" nur am anfang einer Zelle loeschen kann.
Vielen Dank im Voraus.
Gruesse aus Kuala Lumpur.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle "No" nur am anfang einer Zelle loeschen
04.10.2007 08:18:00
Chaos
Servus,
z.B. so:

Sub No()
Dim letzte As Long
Dim anz As String, neu As String
Dim diff As Double
Dim zelle As Range, Breich As Range
letzte = Range("A65536").End(xlUp).Offset(0, 0).Row
Set bereich = Range("A1:C" & letzte)
For Each zelle In bereich
If zelle.Value Like "No *" Then
anz = Len(zelle.Value)
diff = anz - 3
neu = Right(zelle.Value, diff)
zelle.Value = neu
End If
Next zelle
End Sub


löscht alle "No ", die nach dem No ein Leerzeichen haben. Wenn du grundsätzlich alle No löschen willst, die am Anfang stehen, musst du das Leerzeichen in If zelle.Value Like "No *" Then nach No rausnehmen, also so:
If zelle.Value Like "No*" Then
Hier jetzt für den bereich A1 bis C und letzte.
Gruß
Chaos

Anzeige
AW: alle "No" nur am anfang einer Zelle loeschen
04.10.2007 08:28:00
grossermanitu
besser gehts nicht. Vielen vielen Dank.

AW: Bitteschön owt.
04.10.2007 08:30:00
Chaos
.

AW: Bitteschön owt.
05.10.2007 04:46:16
grossermanitu
Guten Morgen, ich bin es nochmal. Bei mir ist ein neue Huerde aufgetaucht. Wie muss ich den das Makro umschreiben, damit es mir alle , loescht die am anfang nach einer Zahl stehen. bsp.:
12, Maisonstreet, Test, Test2
nach Makro
12 Maisonstreet, Test, Test2
Vielen Dank schonmal im Voraus.

AW: Bitteschön owt.
05.10.2007 08:54:00
Chaos
Servus "Indianergott" ,
das könnte man z.B. so lösen:

Sub Zahl()
Dim letzte As Long
Dim anz As String, neu As String
Dim diff As Double
Dim zelle As Range, Breich As Range
letzte = Range("A65536").End(xlUp).Offset(0, 0).Row
Set Bereich = Range("A1:C" & letzte)
For Each zelle In Bereich
If IsNumeric(Left(zelle.Value, 1)) Then
Dim I As Integer
Dim zähler As Long
zähler = 0
For I = 1 To Len(zelle.Value)
Select Case Mid(zelle.Value, I, 1)
Case ",":
Exit For
Case " ":
If Mid(zelle.Value, I + 1, 1)  "," And Mid(zelle.Value, I + 1, 1)  " " Then
Exit For
End If
End Select
zähler = zähler + 1
Next I
anz = Len(zelle.Value)
diff = anz - zähler - 1
neu = Right(zelle.Value, diff)
zelle.Value = Left(zelle.Value, zähler) & " " & neu
zelle.Value = Replace(zelle.Value, "  ", " ")
zelle.Value = Replace(zelle.Value, "  ", " ")
End If
Next zelle
End Sub


Gruß
Chaos

Anzeige
AW: alle "No" nur am anfang einer Zelle loeschen
09.10.2007 09:01:00
grossermanitu
Vielen Dank Chaos. Das geht wieder.
Man ich muss ich endlich gescheit VBA lernen. Bei einer Stelle allerdings zeigt er mir einen Fehler und startet den Debugger:
neu = Right(zelle.Value, diff)

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige