Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inputbox bei Abbrechen = Fehler

Forumthread: Inputbox bei Abbrechen = Fehler

Inputbox bei Abbrechen = Fehler
14.11.2005 13:50:16
Glen
Hallo liebe Leute
Wahrscheinlich klinkt meine jetzige Frage für einen VBA-Guru, wie Sie hier zahlreich zu finden sind *verneigenmichtun* wie ein Witz.
Folgenden Code von DieterB (Code funktioniert einwandfrei) habe ich heute erhalten:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim eing As String
eing = InputBox("Bitte hinterlegen Sie ihren Kommentar!")
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=eing
End Sub

Doch wenn jetzt bei der Abfrage in der Inputbox "abbrechen" angeklickt wird, erscheint "Laufzeitfehler 1004"
Kann mir bitte jemand sagen was ich im Code hinzufügen muss, damit bei Klick auf "abbrechen" die Exit Sub eintritt?
Tausend Dank und Gruss, Glen
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Inputbox bei Abbrechen = Fehler
14.11.2005 13:59:11
Jens
hier der verbesserte Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim eing As String
eing = InputBox("Bitte hinterlegen Sie ihren Kommentar!")
If eing <> "" Then
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=eing
End If
End Sub

Anzeige
AW: Inputbox bei Abbrechen = Fehler
14.11.2005 14:55:16
Glen
Hallo Jens
Super !! Danke
Gruss
Glen
;
Anzeige
Anzeige

Infobox / Tutorial

Inputbox in Excel VBA: Abbrechen ohne Fehler

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und aktiviere den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf VBAProject (dein Workbook) und wähle Einfügen > Modul.

  3. Kopiere den verbesserten Code: Verwende den folgenden VBA-Code, um die Inputbox so anzupassen, dass sie bei Abbrechen kein Fehler auslöst:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim eing As String
   eing = InputBox("Bitte hinterlegen Sie ihren Kommentar!")
   If eing <> "" Then
       ActiveCell.AddComment
       ActiveCell.Comment.Visible = False
       ActiveCell.Comment.Text Text:=eing
   End If
End Sub

  4. Füge den Code in das Modul ein: Füge den kopierten Code in das Modul ein und schließe den VBA-Editor.

  5. Teste die Inputbox: Doppelklicke auf eine Zelle in deinem Arbeitsblatt. Wenn du auf "Abbrechen" klickst, sollte kein Fehler auftreten.

Häufige Fehler und Lösungen

  • Laufzeitfehler 1004: Dieser Fehler tritt auf, wenn der Benutzer auf "Abbrechen" klickt und der Code versucht, einen Kommentar hinzuzufügen. Die Lösung ist, die Eingabe zu überprüfen, bevor ein Kommentar hinzugefügt wird, wie im obigen Code gezeigt.

  • Inputbox bleibt leer: Wenn du die Inputbox ohne Eingabe schließt, passiert nichts. Stelle sicher, dass du die Bedingung If eing <> "" Then benutzt, um das Hinzufügen eines Kommentars zu verhindern.

Alternative Methoden

  • Verwendung einer benutzerdefinierten UserForm: Statt einer Inputbox kannst du auch eine UserForm erstellen, die mehr Eingabefelder und bessere Validierungsmöglichkeiten bietet.

  • Eingabe über die Statusleiste: Eine weitere Möglichkeit ist, den Benutzer aufzufordern, seine Eingabe direkt in die Statusleiste zu machen, anstatt eine Inputbox zu verwenden.

Praktische Beispiele

  • Kommentar hinzufügen: Du kannst den Code anpassen, um verschiedene Arten von Kommentaren zu ermöglichen. Zum Beispiel könntest du den Benutzer nach einem Titel und einem Kommentar fragen:

    Dim title As String
title = InputBox("Bitte geben Sie den Titel des Kommentars ein:")
eing = InputBox("Bitte hinterlegen Sie ihren Kommentar!")
If title <> "" And eing <> "" Then
   ActiveCell.AddComment
   ActiveCell.Comment.Visible = False
   ActiveCell.Comment.Text Text:=title & ": " & eing
End If

Tipps für Profis

  • Fehlerbehandlung einbauen: Füge eine Fehlerbehandlung mit On Error Resume Next hinzu, um unerwartete Fehler zu vermeiden.

  • Inputbox mit vordefinierten Optionen: Du könntest eine Dropdown-Liste in der UserForm verwenden, um die Eingabe zu vereinfachen und die Fehlerquote zu verringern.

FAQ: Häufige Fragen

1. Was passiert, wenn ich auf "Abbrechen" klicke?
Wenn du auf "Abbrechen" klickst, verlässt die Inputbox und der Code führt keine weiteren Aktionen aus, solange die Bedingung im Code richtig implementiert ist.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code funktioniert in den meisten modernen Excel-Versionen, solange VBA unterstützt wird.

3. Kann ich die Inputbox weiter anpassen?
Ja, du kannst die Eingabeaufforderung und die Bedingungen im Code anpassen, um weitere Anforderungen zu erfüllen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige