Formularelement Problem mit Macro

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
leider sind deine Makros nicht in der Datei vorhanden, weil du sie nicht in der Excel-Datei sondern in deiner Persönlichen Arbeitsmappe abgespeichert hast.
Um sich das anzuschauen müsstets du erst die Makros direkt in der Datei erstellen.
Außerdem vermute ich mal, daß du die Makros mit dem Recorder erstellt hast und keine großen Änderungen gemacht hast.
der Recorder zeichnet leider alles auf was man macht, so wird zum Beispiel, wenn du einen Wert in eine Zelle in einem anderen Sheet schreiben willst, zunächst einmal das Sheet selektiert, dann die Zelle selektiert und dann erst wird der Wert in die Selekierte Zelle geschrieben.
im Code sieht das dann so aus:
Sheets("Tabelle1").select
Range("A1").select
Selection.Value ="irgendwas"
Problem bei der Sache ist, die ganze selektirerei geht nur bei sichtbaren Sheets, ausgeblendete können nicht selektiert werden und es kommt zum Fehler.
Du mösstest deinen Code überarbeiten und alle SELECTS eleminieren, dann werden die Zellen direkt angesprochen und das geht auch bei ausgeblendeten Sheets.
D.h. der obige Beispielcode müsste zu zusammengefasst werden:
Sheets("Tabelle1").range("a1").value = "irgendwas"
Gruß, Daniel Eisert

Hallo Pia,
du hast die Makros, die von den beiden Buttons gestartet werden sollen in deiner persönlichen Makro-Arbeitsmappe gespeichert. Dadurch kann ich dir leider kaum helfen.
Füge in dieser Datei im VBA-Editor ein Modul ein, kopiere den Code der beiden Schaltfläche_Klickmakros aus der PERSONL.xls in das Modul, lösche den Code der Makros in der PERSONL.xls, und weise die Makros für die beiden Buttons neu zu.
Evtl. beseitigt das ja schon das Problem. Ansonsten muß du im Makro natürlich eine Tabelle erst einblenden, bevor du sie selektieren oder aktivieren kannst.
ActiveWorkbook.Sheets("Preis").Visible=True
Es ist aber kein Problem auf die Inhalte von ausgeblendeten Tabellen zuzugreifen. Man darf dann aber nicht mit Select und ActiveCell oder ähnlichem arbeiten, sondern muß alle Objekte direkt ansprechen und ggf. zur Vereinfachung mit With ... End With arbeiten.z.B.
With ActiveWorkbook.Sheets("Preis")
...
end with
Gruß
Farnz
gruss Franz

Sub Marke() ' Marke Macro ' Macro recorded 14.07.2006 by Sheets("Marke").Visible = True Sheets("Marke").Select End Sub Sub Preis() ' Preis Macro ' Macro recorded 14.07.2006 by Sheets("Preis").Visible = True Sheets("Preis").Select End Sub Sub BlattAusblenden() ActiveSheet.Visible = False Sheets("Modell").Select End Sub

Beliebteste Forumthreads (12 Monate)

Formularelement Problem mit Macro

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread