Supportnet / Forum / Tabellenkalkulation

Hallo, ich habe -wahrscheinlich einfach zu lösendes- Problem in EXCEL: In einigen Zellen stehen folgende Buchstabenkombinationen: KVT - ich benötige allerdings nur den ersten. Wie kann ich mit einem Makro alle Buchstaben die nach dem "K" kommen löschen? Die Buchstaben stehen in den Zellen B1,B4,B7...usw. also in Spalte B ab B1 bis Bxx. Vielen Dank für Eure Hilfe

Hi Sven,

weshalb mit einem Makro? Das geht auch mit einer Formel

=WENN(LINKS(B1)="K";"K";"")

und Formel nach unten kopieren.

Bis später,
Karin

Hallo Sven,

warum markierst du nicht die Spalte B und verwendest Bearbeiten / Ersetzen... ?

Gruß vom
Opa

Danke für eure Hilfe,

ich würde es schon gerne mit einem Makro lösen, da ich die Datei jeden Tag von extern bekomme und gerne eine Makro mit verschiedenen Anpassungen drüber laufen lassen möchte.

Habt ihr ne Idee?

Hi Sven,

Sub teilstring()
    Dim raZelle As Range
    Dim strAdresse As String
    With Columns("B")
        Set raZelle = .Find("K*", lookat:=xlPart, LookIn:=xlValues)
        If Not raZelle Is Nothing Then
            strAdresse = raZelle.Address
            Do
                Cells(raZelle.Row, 2) = "K"
                Set raZelle = .FindNext(raZelle)
            Loop While Not raZelle Is Nothing And raZelle.Address <> strAdresse
        End If
    End With
End Sub

Für alle Zellen der Spalte B, die eine Kombination mit einem K am Anfang beinhalten, wird jeweils nur das "K" in der Zelle belassen alles andere rechts davon wird gelöscht.

Bis später,
Karin

Danke, es läuft.
Eine Frage hätte ich noch: Angenommen, ich hätte zusätzlich zum "K" auch noch Buchstaben-Kombinationen mit einem "V" am Anfang. Wie müsste ich da das Makro modifizieren?

Hi Sven

Sub teilstring2()
    Dim loZeile As Long
    With Columns("B")
        For loZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
            If Left(Cells(loZeile, 2), 1) = "K" Or Left(Cells(loZeile, 2), 1) = "V" Then Cells(loZeile, 2) = Left(Cells(loZeile, 2), 1)
        Next loZeile
    End With
End Sub

Bis später,
Karin

Vielen Dank Karin,
es funktioniert perfekt.

Gruß,
Sven

• Excel Arbeitsblatt zeitgesteuert löschen
• [Excel] Formeln mit VBA nutzen
• mehre Excel Arbeitsblaetter in PowerPoint via VBA ansprechen
• Schnellreferenz Excel VBA
• VBA-Excel