Makro

[Excel77777]

Hallo,

Ich habe ein einfaches Makro erstellt- über eine selbsterstellte Formulareingabe sollen die eingegebenen Werte in eine Tabelle übertragen werden. Das Makro funktioniert leider nicht. Was bedeutet der nachfolgende Fehler? Wie könnte man das Problem lösen?

 

[Anthony47]

(translated by translate.google.com)
Sie können den gesamten im Bild hervorgehobenen Block durch diese Zeilen ersetzen:

Dim Aux As Worksheet, Tabl As Worksheet

Set Aux = Sheets("hilfstabelle")
Set Tabl = Sheets("Tabelle1")

Tabl.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = Aux.Range("B2").Value    'Not sure you are in col. A
Tabl.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = Aux.Range("B3").Value    'Not sure you are in col. A

Tabl.Range("B27,B29,D29").ClearContents

Ich vermute, dass auch die Zeilen, die in Ihrem Bild nicht gezeigt werden, ähnlich übersetzt werden können.