AW: Formel in VBA
24.01.2023 16:04:24
Dieter
Hey All,
Danke Karin für die Formel, war für mich ein guter Lösungsvorschlag.
Boris, habe mir die Videos angeschaut, ist aber ein wenig schwierig für mich zu verstehen. Trotzdem Danke dafür.
Habe mir die Formel umgebaut das Sie funktioniert.
.FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Alter;4;FALSCH);"""")"
Habe noch ein Code mit der Formel,
Private Sub CommandButton6_Click()
Dim sp
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("A3:X67").Interior.Color = -4142
Range("C3:C33,G3:G33,K3:K33,O3:O33," & _
"S3:S33,W3:W33,C37:C67,G37:G67,K37:K67,O37:O67,S37:S67,W37:W67").ClearContents
For Each sp In Array(3, 7, 11, 15, 19, 23)
With Sheets("Kalender").Cells(3, sp).Resize(67 - 3 + 1, 1)
' .FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Feiertag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")" ' Feiert. u. Geburt anzeigen orginal
.FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Alter;4;FALSCH);"""")" ' Geburtstag und Alter anzeigen
'geht farblich nicht' .FormulaR1C1Local = "=WENNFEHLER(SVERWEIS(ZS(-2);Feiertag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Geburtstag;2;FALSCH);"""")&"" ""&WENNFEHLER(SVERWEIS(ZS(-2);Alter;4;FALSCH);"""")" ' Feiert. u.Geburtstag und Alter anzeigen
.Formula = .Value
.Replace " ", "", xlWhole
If WorksheetFunction.CountA(.Cells) > 0 Then .SpecialCells(xlCellTypeConstants, 2).Interior.ColorIndex = 37
End With
Next
Sheets("Kalender").Range("L1, L35").Value = "Feier u. Geburtstags Kalender" & " " & Range("W1") 'datum
Application.ScreenUpdating = True
Application.EnableEvents = True
Range("C1").Select
End Sub
Bei der Code Formel ' Feiert. u. Geburtstag und Alter anzeigen, weiß ich nicht warum er mir dann die
ganzen Spalten farblich markiert. Die anderen beiden Sverweise funktionieren wunderbar.
Hat da noch jemand eine Lösung für mich ?
Danke im Voraus der Mühe.
Gruß
Dieter