|
Hallo
kliner Einstieg in VBA. WerProgrammirn kann versteht den VBA Code sofort
mfg Nobody
Sub Spalten_durchsuchen()
Dim z As Long, lz1 As Long
'LastZelle suchen nach oben in Spalte C
lz1 = Cells(Rows.Count, 3).End(xlUp).Row
'Schleife für alle Zeilen durchsuchen
For z = 1 To lz1
'Spaltenweise nach Text suchen z=Zeile
'3=Spalte C, 4=Spalte D, usw. (z,S System)
If Cells(z, 3).Value = "Mr" Then 'Spalte C
'vorne steht Zielzelle, hinten die Quelle
Cells(z, 3).Value = Cells(z, XX).Value 'oder so:
Cells(z, XX).Value = Cells(z, 3).Value 'tauschen
ElseIf Cells(z, 3).Value = "Mr" Then 'Spalte D
Cells(z, XX).Value = Cells(z, XX).Value 'tauschen
ElseIf Cells(z, 3).Value = "Mr" Then 'Spalte E
Cells(z, XX).Value = Cells(z, XX).Value 'tauschen
End If
Next z
End Sub
|