Herbers Excel-Forum - das Archiv

Suchen und verschieben

Bild

Betrifft: Suchen und verschieben
von: Andre
Geschrieben am: 26.09.2003 08:34:39
Hallo Guten Morgen,
kann mir jemand helfen? Ich möchte in Spalte c den Wert "Herrn" oder "Frau" suchen wenn einer dieser Namen vorhanden ist möchte ich den Inhalt aus Spalte C und D nach A und B verschieben.

vielen Dank Andre

Bild

Betrifft: AW: Suchen und verschieben
von: Sven
Geschrieben am: 26.09.2003 08:50:32
morgen

versuchs mal mit:

if c$ = "Herr" Or c& = "Frau" then
a$ = c$
b$ = d$
End if

Müßte gehn,wenn ich noicht noch zu müde bin zum denken
Bild

Betrifft: AW: Suchen und verschieben
von: Beni
Geschrieben am: 26.09.2003 09:44:04
Hallo Andre,
probiere es mit diesem Code
Gruss Beni

Sub Suchen_und_verschieben()
'26.09.03 von Bernhard Mächler
For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 3).Value = "Herr" Or Cells(i, 3).Value = "Frau" Then
Cells(i, 3).Cut Destination:=Cells(i, 1)
Cells(i, 4).Cut Destination:=Cells(i, 2)
End If
Next
End Sub

 Bild
Excel-Beispiele zum Thema " Suchen und verschieben"
Zellinhalt suchen und Zelle auswählen Suchbegriff über mehrere Tabellenblätter suchen.
Suchen und weitersuchen Zahl +/- 1 suchen
Ein Zeichen in einer Formel suchen Datum suchen und Wert eintragen
Wert in Tabelle suchen und in UserForm ausgeben Letzte Zelle mit Inhalt suchen
Textdatei nach Begriff durchsuchen und Fundzeile importieren Wert in Array suchen, ohne jedes Datenfeld abzufragen