Office: VBA

MS06 · 10. Juni 2012

Hallo,

ich möchte in einem Arbeitsblatt in der Spalte H (da in mehreren Spalten vorkommend) aus unterschiedlichen Zahlenreihen (im selben Format) dahinter den Schrägstrich und die drei Zahlen die von 001 bis (momentan) 014 laufen löschen bzw. durch "nichts" ersetzen!

also z.B.:

000-1111-2222/001
000-1111-2222/002
000-1111-2222/003
000-2222-3333/002
000-3333-4444/014

die Zahlenreihen sind völlig unterschiedlich und es müssen nur der Schrägstrich und die drei Zahlen dahinter weg.

Ergebnis sollte sein:

000-1111-2222
000-1111-2222
000-1111-2222
000-2222-3333
000-3333-4444

vielen DANK!

:)

ASE · 11. Juni 2012

Hallo Namenloser,
füge den Code in ein Modul ein und starte das Makkro.
Code:

Sub Saeubern()
Dim Zeilen As Long
Dim Lx As Integer

For Zeilen = 1 To ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row
Lx = InStr(Cells(Zeilen, 8), "/")
If Lx = 0 Then Exit For
Cells(Zeilen, 8).Value = Left(Cells(Zeilen, 8), Lx - 1)
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 11. Juni 2012

Hallo ?,

Daten|Text in Spalten ist für solche Aktionen gut geeignet - das arbeitet auch VBA-frei mit wenigen Klicks.
Als Trenner das Zeichen "/" eingeben, dann die abgetrennten Werte (komplette Spalte) löschen.

Ergänzung:
Code als Alternative: Bereich, den es zu bearbeiten gilt, auswählen und Makro starten
Code:

Option Explicit

Sub test()
Dim fVar As Variant, i As Long

If TypeOf Selection Is Range Then
fVar = Selection
If IsArray(fVar) Then
For i = LBound(fVar, 1) To UBound(fVar, 1)
fVar(i, 1) = Split(fVar(i, 1), "/")(0)
Next i
Else
fVar = Split(fVar, "/")(0)
End If
Selection.Value = fVar
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

MS06 · 17. Juni 2012

Hallo,

zuerst einmal danke für die raschen Antworten bzw. den beiden Lösungsvorschlägen... Bei der ersten Variante "Sub Säübern" erfolgt allerdings keine Aktion. Die zweite Variante "Sub Test" funktioniert einwandfrei!!!

Vielen DANK nocheinmal!!

lg

Office: VBA

VBA

VBA

VBA

VBA - Similar Threads - VBA

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Erstellung eines Dynamischen Kalenders (ggf. VBA)