ich mache aus unserer Urlaubsliste eine zweite Anwesenheitsliste, wo ich Zellen nach bestimmten Kürzeln durchsuche und lösche.
Mein Code dafür sieht so aus:
'Auswertung zu Urlaubsdaten löschen
For Spalte = 3 To 50
For Zeile = 6 To 500
Zeileninhalt = Cells(Zeile, Spalte)
Cells(Zeile, Spalte).Select
If Zeileninhalt = "U" Then Cells(Zeile, Spalte) = ""
If Zeileninhalt = "G" Then Cells(Zeile, Spalte) = ""
If Zeileninhalt = "K" Then Cells(Zeile, Spalte) = ""
If Zeileninhalt = "SU" Then Cells(Zeile, Spalte) = ""
If Zeileninhalt = "EZ" Then Cells(Zeile, Spalte) = ""
If Zeileninhalt = "WB" Then Cells(Zeile, Spalte) = ""
Next Zeile
Next Spalte
Frage:
Ich möchte die suche umgekehrt machen, ich möchte nämlich nach "F", "S", "N", suchen und diese Werte in den Zellen drin lassen, alle anderen Werte sollen gelöscht werden.
Hat den Vorteil, das wenn ein neues Kürzel dazu kommt muss nicht jedes Mal der Code angepasst werden.
Für schön wenn mir jemand helfen könnte.
Gruß
Valeri