VBA Vergleich Year(Date) mit Range

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andrea,
bei mir kommt Masgbox.

Sub n()
If Range("Jahr_SB")

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link
4. STRG+ Link mit Maus aktivieren

Ich verzweifele.
Die Originaldatei kann ich nicht hochladen, da zu groß und wg. Datenschutz. Deshalb habe ich die Code-Zeile, die dort nicht funktioniert, in der hochgeladenen Datei nachgebaut. Dort geht es plötzlich!?
https://www.herber.de/bbs/user/143205.xlsm
Der Code meiner Originaldatei lautet:

Sub Jahr_für_JahresPlanErlös_an_RA_Einn_anpassen()
Sheets("Jahres-Plan-Erlös").PivotTables("PivotTable1").PivotFields("[Datum].[Jahr].[Jahr]"). _
_
VisibleItemsList = Array("[Datum].[Jahr].&[" & Range("Jahr_SB") & "]")
If Range("Jahr_SB") = 2019 And Range("Jahr_SB") = Year(Date) And Range("Planungscube_aktuell") = "Nein" Then
Sheets("Jahres-Plan-Erlös").Range("D2").FormulaR1C1 = "Nein"
End If
If Range("Jahr_SB") = Year(Date) And Range("Planungscube_aktuell") = "Ja" Then
Sheets("Jahres-Plan-Erlös").Range("D2").FormulaR1C1 = "Ja"
'Bedingte Formatierung für Spalte "Plan-Erlös(2)" in Tabelle "RA-Einn."
Sheets("RA-Einn.").Select
Range("E14:E1000").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$G$3=""Nein"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A3").Select
End If
End Sub

Die erste If-Abfrage funktioniert noch, danach nicht mehr ...
Ich hoffe damit könnt ihr jetzt was anfangen.
Nochmals Danke und viele Grüße
Andrea

Sub Jahr_für_JahresPlanErlös_an_RA_Einn_anpassen() Dim vor_Date As Boolean Dim auf_Date As Boolean Sheets("Jahres-Plan-Erlös").PivotTables("PivotTable1").PivotFields("[Datum].[Jahr]. _ [Jahr] _ ").VisibleItemsList = Array("[Datum].[Jahr].&[" & Range("Jahr_SB") & "]") vor_Date = Range("Jahr_SB")

Beliebteste Forumthreads (12 Monate)

VBA Vergleich Year(Date) mit Range

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Vergleich Year(Date) mit Range

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

232 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread