wie kann ich per VBA folgendes erreichen:
wenn in Spalte C der Zelleninhalt nicht leer ist, dann möchte ich in Spalte A "Server 1" und in Spalte B "Firma Ultimo" eintragen.
Beispiel (Nachher):
Vielen Dank im Voraus.
Liebe Grüße,
Selma
Sub Test_C_Prüfung()
Range("c65536").End(xlUp).Activate
a = ActiveCell.Row
For i = 0 To a
If Cells(i, 3) "" Then
Cells(i, 1) = "Server 1"
Cells(i, 2) = "Firma Ultimo"
End If
Next i
End Sub
Viel Erfolg
Holger
Sub Held_Haft()
Dim Zelle
For Each Zelle In Range("C1:C20")
Zelle.Select
If Selection "" Then
Zelle.Offset(0, -2).Select
Selection = "Server1"
Zelle.Offset(0, -1).Select
Selection = "Firma Ultimo"
Zelle.Select
End If
Next
End Sub
Gruß Hoja