ich bins mal wieder!
Habe schon wieder ein neues Problem! Und zwar:
Ich habe eine Tabelle, in Spalte A sind Probennummern (von 1 bis 20) angegeben), in Spalte D,E,F sind Formeln hinterlegt, die
restlichen Felder sind grau hinterlegt.
Ich möchte nun, dass das Makro abprüft, ob Zelle "C.." leer ist, wenn ja soll eine Neue Zeile eingefügt werden (mit Übernahme der Numerierung der A-Zeile, markierten Feldern, Formeln)
Wenn weniger Proben verwendet werden, dann sollen diejenigen, Zellen, welche leer sind gelöscht werden.
Mein Ansatz bis jetzt:
Sub Makro1()
If ("C32") = "" Then
Range("A32:P32").Select
Selection.ClearContents
Selection.ClearFormat
Else
Rows("33:33").Select
Selection.Insert Shift:=xlDown
Range("A33:P33").Select
Selection.Copy
Range("A33:P33").Select
ActiveSheet.Paste
End If
End Sub
Mein Problem ist jetzt, dass er die Zellen automatisch prüft, ohne wie ich jetzt nur eine bestimmte Zelle prüfe!
Vielen Dank!
Gruss Chris