Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zelle auswählen über inputbox

VBA Zelle auswählen über inputbox
09.03.2020 19:31:28
Sarah
Hallo,
ich bin neu in VBA und hätte eine Frage. Ich programmiere derzeit in VBA Multiplikation von mehreren Zahlen und bin schon sehr weit. Jetzt zu meiner Frage wie kann ich wenn ich über die Inputbox frage in welcher Zelle man das Ergebnis der Rechnung haben möchte, verhindern das da wenn Schwachsinn reingeschrieben wurde, kein Fehler mit Zelle nicht gefunden erscheint? Sondern eine MsgBox mit "Bitte Zelle mit Großbuchstabe und Zahl angeben. Z.B. (A1)". Ich möchte das ja so programmieren das Leute ohne VBA Kenntnisse es nutzen können... 

Sub Makro1()
Dim Eingabe As Variant
Eingabe = InputBox("In Welche Zelle soll das Ergebnis reingeschrieben werden? (Z.B. A1)", " _
Ergebnis")
If Eingabe=Schwachsinnn
MsgBox ("Bitte Zelle mit Großbuchstabe und Zahl angeben. Z.B. (A1)")
Range(Eingabe).Value = "Hallo"
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Zelle auswählen über inputbox
09.03.2020 19:59:11
Nepumuk
Hallo Sarah,
teste mal:
Option Explicit

Sub Makro1()
    Dim Eingabe As Range
    On Error Resume Next
    Do
        Set Eingabe = Application.InputBox(Prompt:="Bitte Zelle auswählen.", _
            Title:="Ergebnis", Type:=8)
        On Error GoTo 0
        If Eingabe Is Nothing Then
            MsgBox "Bitte eine Zelle auswählen"
        Else
            Eingabe.Value = "Hallo"
            Exit Do
        End If
    Loop
End Sub

Gruß
Nepumuk
Anzeige
Info auf VBA-Fehlermeldung ...
10.03.2020 04:35:25
Matthias
Hallo Nepumuk,
nur ein Hinweis das der Code in einen Fehler laufen kann/wird.
Das sollte noch optimiert werden.
Klick mal auf Abbrechen und dannach aufs Kreuz oder
Klick mal aufs Kreuz und dannach auf Abbrechen.
Es erscheint ein VBA-Fehler.
Man sollte hier die Möglichkeit haben auch abbrechen zu können.
Gruß Matthias
AW: Info auf VBA-Fehlermeldung ...
10.03.2020 08:07:39
Nepumuk
Hallo,
dann so:
Option Explicit

Sub Makro1()
    Dim Eingabe As Range
    On Error Resume Next
    Do
        Set Eingabe = Application.InputBox(Prompt:="Bitte Zelle auswählen.", _
            Title:="Ergebnis", Type:=8)
        If Eingabe Is Nothing Then
            MsgBox "Bitte eine Zelle auswählen"
        Else
            Eingabe.Value = "Hallo"
            Exit Do
        End If
    Loop
    On Error GoTo 0
End Sub

Gruß
Nepumuk
Anzeige
AW: Info auf VBA-Fehlermeldung ...
10.03.2020 16:23:49
Sarah
Also der Code funktioniert super :-D danke für die schnelle Antwort. Damit ich in Zukunft auch so was programmieren kann 2 Fragen. Für was und wie funktioniert On Error Resume Next und On Error GoTo 0. Und ich verstehe nicht den Unterschied zwischen InputBox und Application.InputBox nicht.
Danke :-)
AW: Info auf VBA-Fehlermeldung ...
10.03.2020 17:24:36
Matthias
HAllo
On Error Resume Next ignoriert "eigentlich" fast alle VBA-Fehler.
Mit On Error GoTo 0 wird die Fehler-Nummer (ErrNumber) zurück auf 0 gesetzt.
Mit Application.InputBox kannst Du mE den Type:=8 erzwingen, was bei nur InputBox nicht geht.
Allerdings fände ich es angebrachter auch die Möglichkeit zu haben abzubrechen. Was bei dem Code von Nepumuk nicht vorgesehen ist.
Das kann für Dich ja so in Ordnung sein, ich finde das aber nicht optimal.
Gruß Matthias
Anzeige
schon mal was von Rückmeldung gehört ? ... owT
13.03.2020 18:42:15
Rückmeldung
AW: schon mal was von Rückmeldung gehört ? ... owT
13.03.2020 18:59:04
Rückmeldung
Hallo,
ich danke dir das du meine Fragen beantwortet hast. Ich verstehe es jetzt besser wie der Code funktioniert. Dadurch konnte ich ein ähnliches Problem in einem anderen Projekt lösen. :-)
Ich wünsche dir ein schönes Wochenende,
Sarah
na das ist doch dann doch nett von Dir :-)
13.03.2020 19:36:40
Dir
.
so kann man aber auch nicht abbrechen ! owT
11.03.2020 19:11:19
Matthias
Hallo
Sollte es Sarah noch interessieren ...,
ich würde es einfach so machen:
Dim Eingabe As Range
On Error Resume Next
Set Eingabe = Application.InputBox(Prompt:="Bitte Zelle auswählen.", _
Title:="Ergebnis", Type:=8)
If Eingabe Is Nothing Then MsgBox "Bitte Makro neu starten & eine Zelle auswählen"
On Error GoTo 0
Gruß Matthias
Anzeige

49 Forumthreads zu ähnlichen Themen

runden per VBA - Typen unverträglich???
David

Hallo zusammen,
der "Einzeiler"
Sub runden() With Range("A1:A2") .Value = Round(.Value, 2) End With End Sub
liefert bei mir den Laufzeitfehler 13 - Typen unverträglich.
Mit einer einzelnen Zelle ("A1") funzt es. Was mache ich falsch?
Gruß
David
28.10.2008 15:05:00
Thread-ID: 1019971
5 Beiträge
Anzeige
Inputbox für VBA Befehl
Tom

Hallo,
ich habe folgenden Code und brauche eine Inputbox, die die Eingabe in den VBA Code integriert.
Vorerst mal der Code:
'Auszulesende Dateien Else ' B = 0 If sArea2(B) "" Then ThisWorkbook.Sheets(OName).Cells(LCol, 1) = OName 'schreibe Ordnername sFormel = Right$(sArea2(B), L...
05.01.2009 15:21:00
Thread-ID: 1036995
9 Beiträge
VBA-Match: "<vorheriger" - Typen unverträglich?
MBorn

Jutn Abnd,
weiß vielleicht einer oder eine von Euch, warum bei folgendem Versuch mit
Application.Match immer die Fehlermeldung "Typen unverträglich" auftaucht?
<vorheriger steht in Excels Zelle A16 und ist eine Textzelle.
~f~
Vorheriger = Application.Match("<vo...
24.01.2009 20:32:36
Thread-ID: 1043448
8 Beiträge
Anzeige
Inputbox VBA Fehler
Leitz

Hallo!
Habe ein kleines Problem!
Habe eine Inputbox in die eine Zahl geschrieben werden soll; definiert als String (strInput as String)
Für Berechnungen übergebe ich den Wert in einen Integer Speicher (intInput = strInput)
Wenn nun versehentlich ein Buchstabe in die Inputbox ges...
25.02.2009 20:14:03
Thread-ID: 1054157
18 Beiträge
VBA - Hilfetexte für Funktionen wie MsgBox, InputB
Stefan

Hallo zusammen,
gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
Danke vorab und Gruß.
Stefan
12.06.2009 09:41:53
Thread-ID: 1080899
2 Beiträge
VBA verschiedene Zellen auswählen und ausgeben
Roger

Hallo zusammen
Ich hab folgenden VBA Code um Daten von Excel in Word auszugeben, das funktioniert einwandfrei. Nun möchte ich den aber so abändern das er mir nur die Zellen M7, N24 und P7, Q24 und S7, T24 in Word ausgibt. Was muss ich da abändern?
Private Sub CommandButton1_Click() Dim...
23.07.2009 18:29:31
Thread-ID: 1090473
4 Beiträge
Inputbox (Type 8), gewählten Bereich ausgeben.
Luu

Hallo Excel Freunde!
Ich habe folgenden Code:
Dim Bereich As Range
Set Bereich = Application.InputBox(prompt:="Bereich eingeben oder mit Maus auswählen", Type:=8)
Wie lasse ich mir nun den ausgewählten Bereich in einer Zelle als Text ausgeben?
Sheets("Admin").Range("I6") = B...
16.12.2009 10:53:08
Thread-ID: 1124308
6 Beiträge
VBA Inputbox Type Parameter Problem
Bernhard

Liebes Forum,
bislang (Excel 2003) war es möglich eine Variable aus einer Inputbox auszulesen und mit Type:=0 konnte man außerhalb der Inputbox auf eine Zelle klicken - die Zelladresse wurde dann in die Inputbox übernommen und konnte ausgewertet werden.
Beispiel:
str_cell_input =...
20.01.2010 15:00:09
Thread-ID: 1131397
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
3
8
7
1
17
1
3
5
3
4
4
3
4
12
3
6
5
2
3
5
3
9
2
6