Ich habe einen Fehler beim Makro. Kann mir jemand helfen?
Der folgende Code hat einen Fehler
Rem Im aktiven Tabellenblatt die Zelle mit Textbaustein "*Delta MZ*" ermitteln -> Suchen der Spalte für Delta MZ
Call Suchen_Spalte(DeltaMZSpalte, "*Delta MZ*", ForecastZeile)
Rem MsgBox ("Delta MZ Spalte = " & DeltaMZSpalte)
Rem Zu befüllende Adressen für die Summenformel in Spalte "*Delta MZ*" ermitteln
strAdr = ActiveSheet.Cells(1, (DeltaMZSpalte)).Address
Rem Ermittlung des zweiten $-Zeichens in der Zelladresse
lngCnt = InStr(2, strAdr, "$") - 1
ZellnameDeltaMZ = WorksheetFunction.Substitute(Left(strAdr, Len(strAdr) - (Len(strAdr) - lngCnt)), "$", "")
Rem MsgBox ("Zu befüllende Delta MZ = " & ZellnameDeltaMZ)
|