Zellen auf Inhalt überprüfen
04.04.2024 16:46:03
Chris
ich möchte per VBA folgendes lösen:
Klicke ich in irgendeine Reihe, sollen alle Zellen in derselben Reihe in den Spalten D:J auf Inhalt überprüft werden.
Ist die jeweilige Zelle leer, soll dort "--" eingetragen werden. Ist irgendein Inhalt in den Zellen D bis J der aktiven Reihe
vorhanden, soll dieser erhalten bleiben.
Folgendes Makro überschreibt jedoch den Inhalt, auch wenn die Zelle nicht "--" enthält. Wo liegt der Fehler?
Vielen Dank für die Unterstützung.
Gruß
Chris
sub test
For i = 4 To 10 'Spalten 4 bis 10
Select Case .Cells(ActiveCell.Row, i) 'Aktive Reihe, Spalte 4,5,6,....
Case Is = "": .Cells(ActiveCell.Row, i).Value = "--" 'Wenn leer, schreibe dort "--" rein.
Case Else 'Wenn nicht leer, mache nix
End Select
Next i
end sub
Anzeige