VBA - Wenn dann | HERBERS Excel Forum

Forumthread: VBA - Wenn dann

VBA - Wenn dann

29.06.2016 16:10:15

Patricia

Hallo zusammen,
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA - Wenn dann

29.06.2016 18:46:40

Michael

AW: VBA - Wenn dann

29.06.2016 18:46:40

Michael

Hi Patricia,
das geht easy mit dem Makrorekorder und eingebaut in Dein Makro:

Option Explicit
Sub Leere_Zelle()
Dim Zelle As Long
If IsEmpty(Tabelle2.Range("A6").Value) = True Then
Tabelle2.Range("A6:C100").Clear
MsgBox ("Keine Handlungsfelder eingegeben")
Else
With Tabelle2.Range("A6:A100").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
With Tabelle2.Range("B6:C100").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Tabelle2.Range("A6:C100")
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End With
Call Zeilenhöhe
End If
End Sub

Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

VBA - Wenn dann

Forumthread: VBA - Wenn dann

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread