Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1272to1276
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
Inhaltsverzeichnis

Musseingabe VBA Schleife

Musseingabe VBA Schleife
rene
Hallo zusammen,
Bräuchte wieder mal eure Hilfe ,hab hier schon etwas gefunden was mir weitergeholfen hat ,Habe daraus einen Code gebastelt ,aber ne Kleinigkeit fehlt noch. wie können mehrere Kriterien abgefragt werden ,zusätzlich zur" Bestellnummer "zB "Rechnung"(ActiveWorkbook.Sheets("Tabelle1").Cells(3, 1).Value und "Flughafen",)ActiveWorkbook.Sheets("Tabelle1").Cells(4, 1).Value,
hier ein Beispielcode
Private Sub Workbook_Open()
Range("A1:A2").Select
Selection.ClearContents
Dim titel As String
titel = "Bestellnummer "
Do
Eingabe = InputBox("Bitte unbedingt die Bestellnummer eingeben!", titel)
If Trim(Eingabe) = "" Then
titel = "Bestellnummer"
Else
ActiveWorkbook.Sheets("Tabelle1").Cells(2, 1).Value = Eingabe
Exit Do
End If
Loop
End Sub
Danke im voraus
Rene

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Musseingabe VBA Schleife
20.08.2012 19:11:34
Hajo_Zi
Hallo Rene,
Option Explicit
Private Sub Workbook_Open()
Range("A1:A2").ClearContents
Dim Eingabe As String
Do
Eingabe = InputBox("Bitte unbedingt die Bestellnummer eingeben!", "Bestellnummer ")
If Trim(Eingabe)  "" Then
ActiveWorkbook.Sheets("Tabelle1").Cells(2, 1).Value = Eingabe
Exit Do
End If
Loop
Do
Eingabe = InputBox("Bitte unbedingt die Rechnungsnummer eingeben!", "Rechnung")
If Trim(Eingabe)  "" Then
ActiveWorkbook.Sheets("Tabelle1").Cells(3, 1).Value = Eingabe
Exit Do
End If
Loop
End Sub
Gruß Hajo
Anzeige
AW: Musseingabe VBA Schleife
20.08.2012 19:27:47
Hajo_Zi
Hallo Rene,
oder mit einer Do Schleife.
Option Explicit
Private Sub Workbook_Open()
Range("A1:A2").ClearContents
Dim Eingabe As String
Dim InI As Integer
Do
InI = 0
If ActiveWorkbook.Sheets("Tabelle1").Cells(2, 1) = "" Then
Eingabe = InputBox("Bitte unbedingt die Bestellnummer eingeben!", "Bestellnummer ")
If Trim(Eingabe)  "" Then
ActiveWorkbook.Sheets("Tabelle1").Cells(2, 1).Value = Eingabe
InI = InI + 1
End If
Else
InI = InI + 1
End If
If ActiveWorkbook.Sheets("Tabelle1").Cells(3, 1) = "" Then
Eingabe = InputBox("Bitte unbedingt die Rechnungsnummer eingeben!", "Rechnung")
If Trim(Eingabe)  "" Then
ActiveWorkbook.Sheets("Tabelle1").Cells(3, 1).Value = Eingabe
InI = InI + 1
End If
Else
InI = InI + 1
End If
If InI = 2 Then Exit Do
Loop
End Sub
Gruß Hajo
Anzeige
AW: Musseingabe VBA Schleife
21.08.2012 07:24:15
fcs
Hallo Rene,
hier noch eine kleine Variante
Gruß
Franz
Private Sub Workbook_Open()
Range("A1:A2").Select
Selection.ClearContents
With ActiveWorkbook.Sheets("Tabelle1")
.Cells(2, 1).Value = MussEingabe("Bitte unbedingt die Bestellnummer eingeben!", _
"Bestellnummer")
.Cells(3, 1).Value = MussEingabe("Bitte unbedingt die Rechnung eingeben!", "Rechnung")
.Cells(4, 1).Value = MussEingabe("Bitte unbedingt die Flughafen eingeben!", "Flughafen")
End With
End Sub
Function MussEingabe(ByVal strPrompt As String, ByVal strTitel As String) As String
Do
MussEingabe = InputBox(strPrompt, strTitel)
Loop Until Trim(MussEingabe)  ""
End Function

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige