Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Inputbox


Betrifft: Inputbox von: Nobby
Geschrieben am: 16.04.2017 14:32:19

Hallo,

Ich habe eine Inputbox erstellt, wo ich Namen von Mitspielern eintrage.
Jetzt habe ich zwei Probleme.

1. Wenn ich in der Inputbox auf „Abbrechen“ klicke, dann soll das Makro enden. Bei mir geht es weiter bis Spieler 30.
2. Ich möchte eine Sicherheitsabfrage haben. Das heisst wenn ich das Makro starte, soll vorher eine Meldung kommen wo in einer MSGbox kommt: Möchten Sie die Liste aktualisieren?

Kann mir ja jemand weiterhelfen?

Datei: https://www.herber.de/bbs/user/112907.xlsb

Danke und frohe Ostern
Nobby

  

Betrifft: AW: Inputbox von: Hajo_Zi
Geschrieben am: 16.04.2017 14:43:56

zu 1

Option Explicit

Sub SpielerEingeben()
    If MsgBox("möchten Sie Eingebenn.", vbYesNo + vbQuestion, "Eingabe ?") = vbYes Then
        'Spieler 1 bis 30 eingeben
        Dim LoI As Long
        For LoI = 3 To 33
            Cells(LoI, 2) = InputBox("Spieler eingeben:", "Spieler Nummer " & LoI - 2 & "  _
eingeben")
            If Cells(LoI, 2) = "" Then
                Exit For
            End If
        Next LoI
    End If
End Sub

Gruß Hajo


  

Betrifft: AW: Inputbox von: Nepumuk
Geschrieben am: 16.04.2017 14:46:05

Hallo,

teste mal:

Option Explicit

Public Sub SpielerEingeben()
    
    'Spieler 1 bis 30 eingeben
    
    Dim strInput As String
    Dim lngIndex As Long
    
    For lngIndex = 1 To 30
        strInput = InputBox("Spieler eingeben:", "Spieler Nummer 1 eingeben")
        If StrPtr(strInput) = 0 Then Exit For
        Cells(2 + lngIndex, 2).Value = strInput
    Next
    
End Sub

Gruß
Nepumuk


  

Betrifft: Spielernummer vergessen :-( von: Nepumuk
Geschrieben am: 16.04.2017 14:48:06

so:

Option Explicit

Public Sub SpielerEingeben()
    
    'Spieler 1 bis 30 eingeben
    
    Dim strInput As String
    Dim lngIndex As Long
    
    For lngIndex = 1 To 30
        strInput = InputBox("Spieler eingeben:", "Spieler Nummer " & CStr(lngIndex) & " eingeben")
        If StrPtr(strInput) = 0 Then Exit For
        Cells(2 + lngIndex, 2).Value = strInput
    Next
    
End Sub



  

Betrifft: AW: Spielernummer vergessen :-( von: Nobby
Geschrieben am: 16.04.2017 15:29:40

Danke erstmal allen.

Probier ich nachher mal aus.

Super.


  

Betrifft: AW: Spielernummer vergessen :-( von: Nobby
Geschrieben am: 17.04.2017 10:57:55

Hallo Nepmuk,

funktioniert soweit Prima, aber ist es möglich das in der Inputbox oben in der Leiste jeweils die nächste Spieler Nummer auf addiert wird?
Das heisst wenn ich den ersten eingebe steht ja dort: "Spieler Nummer 1 eingeben", und beim nächsten steh auch wieder "Spieler Nummer 1 eingeben"....da hätte ich gerne Sp Nr 2, Nr 3 usw...

Und für mein Verständnis..anhand Deiner Formel.....woher weiss Excel, das er bei B3 anfangen soll und dann B4..usw...

Herzlichen Dank und LG
Nobby


  

Betrifft: AW: Spielernummer vergessen :-( von: Nepumuk
Geschrieben am: 17.04.2017 11:30:33

Hallo Nobby,

so?

Option Explicit

Public Sub SpielerEingeben()
    
    'Spieler 1 bis 30 eingeben
    
    Dim strInput As String
    Dim lngIndex As Long
    
    For lngIndex = 1 To 30
        strInput = InputBox("Spieler eingeben:", "Spieler Nummer " & CStr(lngIndex) & _
            " eingeben", "Spieler Nummer " & CStr(lngIndex) & " eingeben")
        If StrPtr(strInput) = 0 Then Exit For
        Cells(2 + lngIndex, 2).Value = strInput
    Next
    
End Sub


woher weiß Excel, das er bei B3 anfangen soll

Na einfach daran: Cells(2 + lngIndex, 2).Value = strInput

Beim 1. Durchlauf hat lngIndex den Wert 1 und 2+1=3 Beim 2. Durchlauf hat lngIndex den Wert 2 und 2+2=4 usw.

Gruß
Nepumuk


  

Betrifft: AW: Spielernummer vergessen :-( von: Nobby
Geschrieben am: 17.04.2017 12:02:36

Hallo Nepumuk,
das ist ja der reinste Wahnsinn :-)

Vielen vielen Dank!!

Ich glaube ich muss mit 46 Jahren auch noch mal einen VBA Kurs an der VHS besuchen :-)

Und noch ein kleines Problem….vielleicht kannst Du mir da auch weiter helfen?!

Und zwar habe ich jetzt das Tabellenblatt mit der Spielereingabe per MSGBox. Und das löschen der Liste (1-30) per MSGBox (siehe Datei).
Das Tabellenblatt soll aber grundsätzlich gegen Eingaben gesperrt sein, und nur wenn ich die MSGBox „Teilnehmer eingeben“ und/oder die MSGBox „Teilnehmerliste löschen?“
öffne, soll eine Passwortabfrage vorher kommen.

Ist das möglich?

Nochmal Daumen hoch…..
Echt super!!

Grüsse
Nobby

Datei: https://www.herber.de/bbs/user/112921.xlsb


  

Betrifft: AW: Spielernummer vergessen :-( von: Nepumuk
Geschrieben am: 17.04.2017 12:17:10

Hallo Nobby,

teste mal: https://www.herber.de/bbs/user/112922.xlsb

Das Makro zum schützen der Tabelle findest du im Modul: ThisWorkbook

Gruß
Nepumuk


  

Betrifft: AW: Spielernummer vergessen :-( von: Nobby
Geschrieben am: 17.04.2017 12:30:14

Hallo,

funktioniert leider nicht.

Meine VBA Kenntnisse sind da wohl nicht ausreichend genug.

Ich dachte, wenn ich den Button "Teilnehmer eingeben" und oder "Löschen" anklicke, das dann eine Passwortabfrage kommt.
Sodass nicht jeder sofort in der Liste was ändern kann.
Mal unabhängig vom VBA Editor....jemand der NULL Ahnung hat, nicht die Liste durcheinander schmeißt


  

Betrifft: AW: Spielernummer vergessen :-( von: Nepumuk
Geschrieben am: 17.04.2017 16:36:56

Hallo,

so? https://www.herber.de/bbs/user/112928.xlsb

Gruß
Nepumuk


  

Betrifft: AW: Spielernummer vergessen :-( von: Nobby
Geschrieben am: 17.04.2017 18:08:02

allo Nepumuk,

jaaaa....genau so hatte ich es mir gedacht!!
Vielen Dank.

Nur jetzt ergibt sich das nächste Problem...Mist...

Ich habe eine Mappe namens "Turnier" mit mehreren Blättern, worunter eine Namens Teilnehmer ist.
Wenn ich jetzt Deine Datei öffne und meine und versuche dieses Makro in das Blatt Teilnehmer einzubinden,
kann ich das Makro nicht finden.

Und wenn ich einfach das Makro kopiere und in ein Modul der Mappe Turnier und des Blattes Teilnehmer einzufügen,
dann passiert nix.
Ich nehme mal an, das es etwas mit dem Privat Sub zu tun hat, oder?

Wie kann ich das Makro auf ein anderes Blatt anwenden?

Vielen Dank nochmal..

Lg
Nobby


  

Betrifft: AW: Spielernummer vergessen :-( von: Nepumuk
Geschrieben am: 18.04.2017 17:08:48

Hallo,

warum machst du es nicht anders herum? Kopiere die anderen Tabellen in die hochgeladene Mappe.

Gruß
Nepumuk


  

Betrifft: AW: Spielernummer vergessen :-( von: Nobby
Geschrieben am: 18.04.2017 18:52:09

Hallo Nepumuk,

das funktioniert leider nicht.


Sobald ich Deine Datei in meine kopiere, haut bei meinen Blättern nix mehr hin.
Meine Mappe besteht auch aus 8 Tabellenblättern, die alle hin und her ver"formelt" sind :-)

Kannst Du mir nicht evt. auf "kurzem" Wege erklären, wie ich Deine VBA Codes aus der Datei an
eine/meine anpassen kann?

Mfg
Nobby


  

Betrifft: AW: Spielernummer vergessen :-( von: Nepumuk
Geschrieben am: 18.04.2017 20:12:22

Hallo,

wenn du meinst:

1. Kommentiere die Zeile: Option Private Module aus.
2. Verweise die Buttons an die Prozedur "Kennwort"
3. Korrigiere gegebenenfalls die Namen der Buttons in der oben genannten Prozedur.
4. Kommentiere die Zeile: Option Private Module wieder ein.
5. Vergiss nicht die Prozedur im Modul "ThisWorkbook" zu kopieren !!!

Gruß
Nepumuk


  

Betrifft: AW: Spielernummer vergessen :-( von: Nobby
Geschrieben am: 18.04.2017 21:54:05

Okay.
Danke schön, aber auch das übersteigt meinen Vba-Wissens-Bereich :-)
Ich dachte es mir schon.

Naja. Egal. Dann muss ich halt ohne klar kommen.

Aber dennoch vielen Dank, das Du mir so viel weiter geholfen hast..

Grüsse
NOBBY


  

Betrifft: AW: Spielernummer vergessen :-( von: Nobby
Geschrieben am: 19.04.2017 10:23:35

Hallo Nepumuk,

könnte ich Dir die Mappe hochladen und Du änderst es "eben" für mich?

Danke

Gruss
Nobby


  

Betrifft: AW: Spielernummer vergessen :-( von: Nepumuk
Geschrieben am: 19.04.2017 10:48:42

Hallo Nobby,

klar mach ich.

Gruß
Nepumuk


  

Betrifft: AW: Spielernummer vergessen :-( von: Nobby
Geschrieben am: 19.04.2017 10:59:20

Hey...Super....

Muss eben noch ein wenig was vorbereiten....

Vielen Dankkkkkkkkkk


  

Betrifft: AW: Spielernummer vergessen :-( von: Nobby
Geschrieben am: 19.04.2017 12:10:54

Hallo Nepumuk,

so, da ist sie

https://www.herber.de/bbs/user/112966.xlsb

Grüsse und Danke
Nobby


  

Betrifft: AW: Spielernummer vergessen :-( von: Nepumuk
Geschrieben am: 19.04.2017 15:31:13

Hallo Nobby,

bitteschön: https://www.herber.de/bbs/user/112974.xlsb

Gruß
Nepumuk


  

Betrifft: AW: Spielernummer vergessen :-( von: Nobby
Geschrieben am: 19.04.2017 18:09:14

Hallo Nepumuk

Vielen Dank.

Grüsse
NOBBY


Beiträge aus den Excel-Beispielen zum Thema "Inputbox"