Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ActiveSheet.ShowDataForm

Forumthread: ActiveSheet.ShowDataForm

ActiveSheet.ShowDataForm
24.11.2004 11:38:39
Günter
Hallo,
ich habe eine (hoffentlich) ganz einfache Frage: bei der Anwendung von ActiveSheet.ShowDataForm werden die Datum-Felder in der amerikanischen Form angezeigt (mm/tt/jjjj), wenn die Funktion über einen VBA-Code aufgerufen wird. Wenn ich in der Tabelle stehe und rufe die Funktion über die Menüleiste auf, dann sind die Daten richtig (in deutsch).
Woher kommt das und wie kann ich das abstellen?
Für eine Antwort wäre ich sehr dankbar.
Viele Grüße,
Günter
www.GuenterSchuetz.de
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ActiveSheet.ShowDataForm
Phil
Günter,
anstatt ActiveSheet.ShowDataForm, benutze:
CommandBars.FindControl(, 860).Execute
Gruß,
Phil
AW: ActiveSheet.ShowDataForm
Josef
Hallo Günter!
Versuch's so.

Sub Maske()
[A1].Select
CommandBars.FindControl(ID:=860).Execute
End Sub

Gruß Sepp
Anzeige
;
Anzeige

Infobox / Tutorial

ActiveSheet.ShowDataForm in Excel korrekt nutzen


Schritt-für-Schritt-Anleitung

Um die Funktion ActiveSheet.ShowDataForm korrekt zu verwenden, gehe wie folgt vor:

  1. Öffne Excel und navigiere zu dem Arbeitsblatt, auf dem du die Datenform anzeigen möchtest.

  2. Aktiviere den VBA-Editor durch Drücken von ALT + F11.

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (deinWorkbookName)".
    • Wähle "Einfügen" und dann "Modul".
  4. Füge den folgenden VBA-Code ein:

    Sub ZeigeDatenformular()
       ActiveSheet.ShowDataForm
    End Sub
  5. Führe das Makro aus, indem du F5 drückst oder über das Menü "Ausführen" gehst.

Wenn du Probleme mit dem Datumsformat hast, wie Günter beschrieben hat, könnte die Verwendung der alternativ empfohlenen Methode hilfreich sein.


Häufige Fehler und Lösungen

Ein häufiger Fehler bei der Verwendung von ActiveSheet.ShowDataForm ist das falsche Datumsformat (mm/tt/jjjj statt tt.mm.jjjj). Um dies zu beheben:

  • Verwende die alternative Methode von Phil. Statt ActiveSheet.ShowDataForm, benutze:

    CommandBars.FindControl(, 860).Execute
  • Diese Methode sorgt dafür, dass die Datenform im richtigen Format angezeigt wird.

Wenn du weiterhin Probleme mit activesheet.showdataform error hast, überprüfe die Einstellungen deines Excel und die regionalen Formate.


Alternative Methoden

Falls du die ShowDataForm nicht direkt aufrufen möchtest, kannst du auch eine benutzerdefinierte Funktion erstellen. Hier ist ein Beispiel:

Sub Maske()
    [A1].Select
    CommandBars.FindControl(ID:=860).Execute
End Sub

Diese Methode ermöglicht dir, die Datenform über eine Zelle zu aktivieren, was in vielen Fällen praktischer ist.


Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du die Datenform nutzen kannst:

  1. Vorbereitung: Stelle sicher, dass deine Daten in einer Tabelle organisiert sind.
  2. Code einfügen: Nutze den oben genannten VBA-Code, um die Datenform anzuzeigen.
  3. Daten eingeben: Die Datenform ermöglicht es dir, die Informationen bequem einzugeben, ohne die Tabelle direkt zu bearbeiten.

Tipps für Profis

  • Erstelle eine Schaltfläche in deinem Arbeitsblatt, um das Makro einfacher auszuführen.
  • Verwende die ShowDataForm nur für bestimmte Bereiche, um die Benutzerfreundlichkeit zu erhöhen.
  • Teste die Makros in einer Kopie deiner Datei, um unerwünschte Änderungen an deinen Daten zu vermeiden.

FAQ: Häufige Fragen

1. Warum wird das Datumsformat falsch angezeigt? Die ActiveSheet.ShowDataForm kann je nach regionalen Einstellungen unterschiedliche Datumsformate verwenden. Nutze die alternative Methode, um dies zu verhindern.

2. Wie kann ich die ShowDataForm für mehrere Blätter verwenden? Du kannst in deinem VBA-Code einfach den Arbeitsblattnamen angeben, um die Datenform für unterschiedliche Blätter anzuzeigen. Beispiel:

Sheets("DeinBlattName").Activate
ActiveSheet.ShowDataForm

3. Was tun, wenn ich den activesheet.showdataform error erhalte? Überprüfe, ob du die richtigen Berechtigungen hast, und stelle sicher, dass das Arbeitsblatt aktiv ist, wenn du die Funktion aufrufst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige