Hilfe zu suchen und Bereich versetzen

Bild

Betrifft: Hilfe zu suchen und Bereich versetzen
von: Peter
Geschrieben am: 15.06.2015 11:22:23

Hallo tolles Excelteam,
benötige wieder einmal Eure Hilfe.
Folgendes Problem: Ich habe eine Tabelle mit mehreren Spalten (Muster nachstehend):
A B C D
Hund Test1 Test1 Test1
ID Test2 Test2 Test2
Katze Test3 Test3 Test3
ID Test4 Test4 Test4
ID Test5 Test5 Test5
Die Spalten sind fortlaufend A bis D Orginal ca. 500 Zeilen. Nun soll in Spalte A
der Begriff ID gesucht werden es kann aber auch -ID oder -ID: stehen. Bei jedem gefundenen Wert sind nun die Werte der Spalten B,C,D dieser Zeile zu kopieren und in die Spalten A, B, C einzufügen.
Besten Dank für Eure Hilfe
Gruss Peter

Bild

Betrifft: AW: Hilfe zu suchen und Bereich versetzen
von: Klexy
Geschrieben am: 15.06.2015 12:11:25
Muster hochladend wäre besser als Muster nachstehend.

Bild

Betrifft: AW: Hilfe zu suchen und Bereich versetzen
von: Peter
Geschrieben am: 15.06.2015 12:18:03
Hallo Klexy,
Datei anbei
https://www.herber.de/bbs/user/98203.xlsm
Gruss Peter

Bild

Betrifft: AW: Hilfe zu suchen und Bereich versetzen
von: Daniel
Geschrieben am: 15.06.2015 12:29:17
Hi
probiere mal folgenden Code:

With Columns(1)
    .Replace "ID", True, lookat:=xlwhole, MatchCase:=True
    .Replace "-ID", True, Lookat:=xlwhole, MatchCase:=True
    .Replace "-ID:", True, LookAt:=xlwhole, Matchcase:=True
    .SpecialCells(xlcelltypeconstants, 4).Delete Shift:=xltoleft
end With

Gruß Daniel

Bild

Betrifft: AW: Hilfe zu suchen und Bereich versetzen
von: Peter
Geschrieben am: 15.06.2015 12:32:10
Hallo Daniel,
Besten Dank funktioniert einwandfrei.
Ich werde es jedoch noch in der Orginaltabelle testen.
Gruss Peter

Bild

Betrifft: AW: Hilfe zu suchen und Bereich versetzen
von: Klexy
Geschrieben am: 15.06.2015 12:32:00


Sub Zellen_mit_ID_löschen()
Dim Liste As Range
Set Liste = Range(Cells(1, 1), Cells(Cells(1, 1).CurrentRegion.Rows.Count, 1))
    For Each Zelle In Liste
        If Zelle.Value = "ID" Or Zelle.Value = "-ID" Or Zelle.Value = "-ID:" Then
            Zelle.Delete Shift:=xlToLeft
        End If
    Next
End Sub


Bild

Betrifft: AW: Hilfe zu suchen und Bereich versetzen
von: Peter
Geschrieben am: 15.06.2015 12:35:06
Hallo Klexy,
besten Dank für Deine Hilfe. Ich habe es getestet funktioniert einwandfrei.
Werde es in der Orginaldatei noch testen.
Gruss Peter

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Hilfe zu suchen und Bereich versetzen"