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

Beiträge aus den Excel-Beispielen zum Thema " Suchen und verschieben"