Herbers Excel-Forum - das Archiv

Links nach 15 Zeichen Löschen - In VBA

Bild

Betrifft: Links nach 15 Zeichen Löschen - In VBA
von: Heinz H

Geschrieben am: 02.01.2007 09:17:51
Guten morgen,Leute
Ich bräuchte Bitte ein Makro,das mir in der Spalte B die Werte nach 15 Zeichen von Links löscht.
Könnte mir Bitte jemand dabei Helfen ??
Danke & Gruß Heinz
Bild

Betrifft: AW: Links nach 15 Zeichen Löschen - In VBA
von: Peter Feustel

Geschrieben am: 02.01.2007 09:24:18
Hallo Heinz,
das könnte z. B. so gehen: Daten stehen in Spalte A ab Zeile 1
Sub Nur_15_Zeichen()
Dim lZeile  As Long
For lZeile = 1 To Range("A65536").End(xlUp).Row
Range("A" & lZeile).Value = Left(Range("A" & lZeile).Value, 15)
Next lZeile
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Bild

Betrifft: AW: Links nach 15 Zeichen Löschen - In VBA
von: haw
Geschrieben am: 02.01.2007 09:25:12
Hallo Heinz,
z.B. so:
Sub Ab15Löschen()
Dim lz%, z As Range
lz = Cells(Rows.Count, 2).End(xlUp).Row
For Each z In Range("B1:B" & lz)
z.Value = Left(z.Value, 15)
Next z
End Sub

Gruß Heinz
Bild

Betrifft: AW: DANKE an Peter Feustel & HAW
von: Heinz H

Geschrieben am: 02.01.2007 09:32:43
Guten morgen Peter & HAW
Recht herzlichen DANK,für die Superschnelle und Profihafte Hilfe.
Laufen beide Codes einwandfrei.
Nachträglich noch ein Prosit 2007
Heinz aus Oberösterreich
 Bild
Excel-Beispiele zum Thema "Links nach 15 Zeichen Löschen - In VBA"
Summe bilden, wenn Kriterium Zeichenfolge Leerzeichen aus einem Bereich löschen
Anfügen des Zeichens für Durchmesser Zeichenfolge aufteilen
Filtern einer Zahl aus einer Zeichenfolge Zeichenfolgen in Zahlen nach Textimport
Zeichenfolge korrigieren Zeichenfolge umkehren
Zeichen separieren