Excel: ShowDataForm

Hallo zusammen,

ich habe mir ein "Haushaltsbuch" in Excel erstellt.

Nun möchte ich eine Maske über ein Makro aufrufen, über die ich dann Daten eingeben kann.

Das Makro sieht bis jetzt so aus:

' Monat_auswählen Makro
' Makro am 20.10.2007 von xxx aufgezeichnet
'
' Tastenkombination: Strg+m
'
MonatHB = InputBox("Monat eintragen:")
Application.Goto Reference:=MonatHB
ActiveSheet.ShowDataForm
End Sub

Zu erst soll über die InputBox der Monat eingegeben werden. Der Monat entspricht dann dem Sheet Namen.

Leider bleibt mir das Makro bei der Zeile:

ActiveSheet.ShowDataForm

Mit der Fehlermeldung:

Laufzeitfehler '1004'

Die ShowDataForm-Methode des Worksheet-Objekts konnte nicht ausgeführt werden.


Hat jemand von euch eine Idee was ich hier falsch mache???

Danke für eure Hilfe!!

Gruß

sebapegu

 

Hi,

was ist MonatHB - eine Zelle mit definiertem Bereichsnamen die angesprungen werden soll (das würde ich dem Codeteil Application.Goto entnehmen)? Oder willst du mit diesem Namen in die betreffende Tabelle springen? Dann musst du sie auch erst aktivieren - z.B. Worksheets("MonatHB").Activate. Da der Code ActiveSheet.ShowDataForm nur funktioniert, wenn sich die Überschrift der Datentabelle in Zeile 1 befindet, musst du auch noch eine Zelle im Bereich der Datentabelle auswählen - z.B. Range("A1").Select, oder mittels Aplication.Goto in eine Zelle springen, die innerhalb der Datentabelle liegt und diesen Namen trägt. Der Code müsste dann in etwa so aussehen

Code:

    Dim MonatHB As String
    MonatHB = InputBox("Monat eintragen:")
    Worksheets(MonatHB).Activate
    Application.Goto Reference:=MonatHB
    ActiveSheet.ShowDataForm

Im Beispiel heißt das Tabellenblatt Januar und Zelle A1 ebenfalls.

 

Der TO hat bereits Zeit und Mühe in seine Datei investiert und kennt den Aufbau wesentlich besser als ich. Ein Nachbau kann nie mit dem Original identisch sein und deshalb auch nicht alle Bedingungen berücksichtigen, zumal ja unklar ist, was genau er eigentlich meint.

 

Hallo ihr!

Ich hab mal ein Bild vom Aufbau der Tabelle angehängt, denn ich glaube mittlerweile das der Fehler was mit dem Aufbau zu tun hat ...

Wenn ich die Zeilen 1 - 6 lösche, dann geht der Code:

ActiveSheet.ShowDataForm

sofort, wenn ich die Zeilen 1 - 6 drinnen habe, klappt es nicht.

Auch wenn ich das ganze so anpasse:

Range("A8").Select
ActiveSheet.ShowDataForm

klappt es nicht.

Wisst ihr was ich hier falsch mache?

Danke und Gruß

sebapegu

 

Hi,

Genau das ist der Fehler in deinem Beispiel.