Formula1 - Fehler / DropDown-Menü
28.11.2022 16:05:14
MH
folgende Fragestellung:
Ich habe in einer Tabelle ein via Makro erstelltes Tabellenblatt. Dabei liest das Makro eine Namensliste auf der ersten Seite und erstellt entsprechende Tabellenblätter. Zum Füllen der Tabellenblätter nutze ich folgende Sub:
Sub FillSheets(N As String)
Worksheets(N).Range("A1").Value = "Datum"
Worksheets(N).Range("B1").Value = "Dokumentnummer"
Worksheets(N).Range("C1").Value = "Rechnungsposten"
Worksheets(N).Range("D1").Value = "Betrag"
Worksheets(N).Range("D2:D50").NumberFormat = "[Green]#,##0.00 _);[Red]$#,##0.00 "
Worksheets(N).Range("E1").Value = "Kommentar"
Worksheets(N).Range("I1").Value = "Name"
Worksheets(N).Range("J1").Value = ActiveSheet.Name
Worksheets(N).Range("I2").Value = "Mailadresse"
Worksheets(N).Range("I3").Value = "Gesamtbetrag"
Worksheets(N).Range("J3").Formula = "=SUM(D2:D50)"
Worksheets(N).Range("A2:E51").BorderAround _
ColorIndex:=10, Weight:=xlThick
'Mailadresse auslesen und einfügen
s = ActiveWorkbook.Worksheets.Count - 2
If s > 1 Then
For u = 2 To s
Worksheets(N).Range("J2").Value = Worksheets(1).Range("B" & u).Value
Next u
End If
Columns("J").ColumnWidth = 6 * 4.58
Columns("I").ColumnWidth = 6 * 4.58
For C = 2 To 50
Worksheets(N).Range("B" & C).FormulaLocal = "=WENN(ISTLEER(A" & C & ");"""";Rechnungskuerzel(C" & C & ";A" & C & ";J1))"
Next C
Columns("A").ColumnWidth = 3 * 4.58
Columns("B").ColumnWidth = 6 * 4.58
Columns("C").ColumnWidth = 6 * 4.58
Columns("D").ColumnWidth = 2.5 * 4.58
Columns("E").ColumnWidth = 6 * 4.58
Range("C1:C50").NumberFormat = "dd.mm.yy"
For i = 2 To 50
Worksheets(N).Range("C" & i).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Formula1:="Abringeln,Zahlung,Beleg,Übertrag,Sonstiges"
Next i
End Sub
Scheinbar willkürlich wird manchmal das gewünschte DropDown-Menü mit den Einträgen "Abringeln", "Zahlung", "Beleg", "Übertrag", "Sonstiges" erzeugt und manchmal wird zwar ein DropDown-Menü, jedoch mit nur einem Eintrag namens "Abringeln,Zahlung,Beleg,Übertrag,Sonstiges" erzeugt. Letzteres ist natürlich nicht Sinn der Sache. Woran liegt das und wie kann ich hier Zuverlässigkeit erreichen?
Besten Dank im Voraus!
Excel: Microsoft Excel für Mac Version 16.67 (365 Abonnement)
Betriebssystem: OS X Ventura 13.0