Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

InputBox Abbrechen/OK ohne Eingabe

Forumthread: InputBox Abbrechen/OK ohne Eingabe

InputBox Abbrechen/OK ohne Eingabe
31.05.2007 12:24:00
Claudia
Hallo alle zusammen,
gestern wurde mir mit nachstehendem Makro geholfen.

Private Sub ausblenden()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Unprotect Password:="aaaa"
Next
Dim Zeile As Long
Zeile = Application.InputBox("Welche Zeile möchten Sie ausblenden?", , , , , , , 1)
Sheets("Plan").Rows(Zeile).Hidden = True
Sheets("Schule").Rows(Zeile).Hidden = True
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Protect Password:="aaaa", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub


Was muss bitte geändert werden,
a) wenn man auf dem Abbruch Button drückt das das Makro sofort beendet wird,
bzw.
b) wenn mann ohne Eingabe auf OK Button drückt das man einen Hinweis zur Eingabe erhält.
Kann mir bitte jemand helfen?
Danke im voraus und Gruß
Claudia

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: InputBox Abbrechen/OK ohne Eingabe
31.05.2007 13:00:00
Daniel
Hi,
hier der Code mit on error Funktion, sodass beim klick auf abbrechen die Prozedur einfach abgebrochen wird.

Private Sub ausblenden()
Dim Blatt As Worksheet
On Error GoTo ende
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Unprotect Password:="aaaa"
Next
Dim Zeile As Long
Zeile = Application.InputBox("Welche Zeile möchten Sie ausblenden?", , , , , , , 1)
Sheets("Plan").Rows(Zeile).Hidden = True
Sheets("Schule").Rows(Zeile).Hidden = True
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Protect Password:="aaaa", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
ende:
End Sub


Schönen Gruß
Daniel

Anzeige
AW: InputBox Abbrechen/OK ohne Eingabe
31.05.2007 13:08:52
Claudia
Hallo Daniel,
wenn ich auf Abbrechen klicke funzt es super, wenn ich aber auf OK klicke ohne eine Eingabe gemacht zu haben, erhalte ich einen Hinweis von Excel "..die eingegebene Formel enthält einen Fehler...."
Kannst Du mir noch einmal helfen?
Gruß
Claudia

AW: InputBox Abbrechen/OK ohne Eingabe
31.05.2007 13:25:59
Rudi
Hallo,

Sub tttt()
Dim Zeile, blnFalsch As Boolean
Do
Zeile = Application.InputBox("Zeile?", , , , , , , 3)
Select Case Zeile
Case ""  'OK ohne Eingabe
MsgBox "Bitte eine Zahl eingeben"
blnFalsch = True
Case False  'Abbrechen
Exit Sub
Case Else
If IsNumeric(Zeile) Then
Zeile = Int(Zeile * 1)
blnFalsch = False
Else
MsgBox "Das ist keine Zahl!"
blnFalsch = True
End If
End Select
Loop While blnFalsch = True
MsgBox Zeile
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Suuper, vielen Dank funzt klasse. o.T.
31.05.2007 13:42:37
Claudia
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige