VBA - Wenn dann
29.06.2016 16:10:15
Patricia
folgende Situation:
- In einem Reiter "Tabelle2" werden Ergebnisse aus Tabelle1 aufgelistet.
- Wenn keine Daten aufgelistet werden, da in Tabelle1 keine eingegeben wurden, soll eine MsgBox aufpoppen: Keine Daten eingegeben. Das Format der vorhandenen Zeilen in Tabelle2 soll auf das Standardexcelformat angepasst werden (keine Rahmen, keine Farben).
- Wenn Daten aufgelistet werden, sollen die Zellen A6-A100 in hellgrau mit Rahmen formatiert werden, und die Zellen B6-C100 in weiss mit Rahmen formatiert werden.
Bei der aktuellen wenndann Eintragung funktioniert bei mir leider nur der Schritt, wenn keine Daten aufgelistet sind.
Der aktuelle Code ist wie folgt:
Sub Leere_Zelle()
Dim Zelle As Long
If IsEmpty(Tabelle2.Range("A6").Value) = True Then
Call Standardformat
MsgBox ("Keine Handlungsfelder eingegeben")
Else
Call Format
Call Zeilenhöhe
End If
End Sub
Das Ganze ist leider sehr sehr dringend, daher freue ich mich über schnelle Rückmeldung!
Danke schon im Voraus