04.01.2018, 00:14
Hallo,
ich habe in Excel ein "Formular" erstellt, dabei kann man im ersten Abschnitt 3 Eingaben machen, abhängig davon werden dann per SVERWEIS und WENN formeln die restlichen Zellen mit Daten aus anderen Arbeitsblättern gefüllt.
Nun möchte ich gerne ein Schaltfläche einfügen, die alle Zellen leert, die Formeln aber beibehält, sodass man neue Eingaben machen kann.
Dass die Zellen (Zumindest die 3 Angaben) geleert werden, klappt mit dem Code, den ich im Internet gefunden habe:
Sub test()
Dim raZelle As Range
For Each raZelle In ActiveSheet.Range("D10,D12,D16")
If Not (IsEmpty(raZelle) Or raZelle.HasFormula) Then
If raZelle.MergeCells Then
If raZelle.Address = raZelle.MergeArea(1).Address Then _
raZelle.MergeArea.ClearContents
Else
raZelle.ClearContents
End If
End If
Next raZelle
End Sub
Allerdings wird mir damit bei allen Zellen mit SVERWEIS das N/V angezeigt.
Habe auch die Möglichkeit gefunden, die Felder mit einer WENN(SVERWEIS...) mit bspw. 0 zu füllen, aber ich möchte die Felder sollen leer angezeigt werden, außerdem sind 20 Felder von den SVERWEISEN abhängig.
Deshalb die Frage, kann ich das irgendwie leichter bzw. schlanker hinbekommen?
Bin für jede Hilfe dankbar.
Grüße Mark
ich habe in Excel ein "Formular" erstellt, dabei kann man im ersten Abschnitt 3 Eingaben machen, abhängig davon werden dann per SVERWEIS und WENN formeln die restlichen Zellen mit Daten aus anderen Arbeitsblättern gefüllt.
Nun möchte ich gerne ein Schaltfläche einfügen, die alle Zellen leert, die Formeln aber beibehält, sodass man neue Eingaben machen kann.
Dass die Zellen (Zumindest die 3 Angaben) geleert werden, klappt mit dem Code, den ich im Internet gefunden habe:
Sub test()
Dim raZelle As Range
For Each raZelle In ActiveSheet.Range("D10,D12,D16")
If Not (IsEmpty(raZelle) Or raZelle.HasFormula) Then
If raZelle.MergeCells Then
If raZelle.Address = raZelle.MergeArea(1).Address Then _
raZelle.MergeArea.ClearContents
Else
raZelle.ClearContents
End If
End If
Next raZelle
End Sub
Allerdings wird mir damit bei allen Zellen mit SVERWEIS das N/V angezeigt.
Habe auch die Möglichkeit gefunden, die Felder mit einer WENN(SVERWEIS...) mit bspw. 0 zu füllen, aber ich möchte die Felder sollen leer angezeigt werden, außerdem sind 20 Felder von den SVERWEISEN abhängig.
Deshalb die Frage, kann ich das irgendwie leichter bzw. schlanker hinbekommen?
Bin für jede Hilfe dankbar.
Grüße Mark