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

@grossermanitu

@grossermanitu
09.10.2007 12:44:39
Chaos
Servus Indianergott,
habe ausversehen deine Nachricht gelöscht und finde den Thread nicht mehr:
Ich kann deinen Bug nicht nachvollziehen, bei mir funktioniert das einwandfrei:
Hier nochmal ein erweitertes makro:

Sub No()
Dim zelle As Range, bereich As Range
Dim neu As String, anz As String
Dim diff As Double
Set bereich = Range("A1:C10")
For Each zelle In bereich
If zelle.Value Like "No*" Then
anz = Len(zelle.Value)
diff = anz - 2
neu = Right(zelle.Value, diff)
zelle.Value = neu
End If
Next zelle
Dim i As Integer
For i = 1 To 2 ' Löscht bis zu 2 Leerzeichen am Anfang nach Entfernung des No, anpassen an  _
maximale Anzahl
Dim rng As Range
For Each rng In Range("A1:C10")
If Left(rng, 1) = Chr(32) Then
rng = Right(rng, Len(rng) - 1)
End If
Next rng
Next i
End Sub


Gruß
Chaos

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: @grossermanitu
09.10.2007 15:19:00
fcs
Hallo chaos und grossermanitou,
das Ganze läßt sich etwas einkürzen. Entfernen des "No am Anfang und evtl. vorhandener Leerzeichen kann man in einer Befehlszeile erledigen.
Gruß
Franz

Sub No()
'Auf Text "No" am Anfang prüfen und Leerzeichen Links/Rechts entfernen
Dim zelle As Range, bereich As Range
Set bereich = Range("A1:C10")
For Each zelle In bereich
If zelle.Value Like "No*" Then
zelle.Value = Trim(Mid(zelle.Value, 3))
'zelle.Value = LTrim(Mid(zelle.Value, 3)) falls nur die linken Leerzeichen gelöscht  _
werden sollen
End If
Next zelle
End Sub


Anzeige
AW: @grossermanitu
09.10.2007 15:25:22
Chaos
Servus Franz,
danke für den Hinweis, wieder was dazu gelernt.
Gruß
Chaos

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige