|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.12.2017 14:02:26 |
Spyspy |
|
|
|
13.12.2017 14:30:00 |
Gast8027 |
|
|
|
13.12.2017 14:30:08 |
Gast44440 |
|
|
|
13.12.2017 14:30:09 |
Gast34303 |
|
|
|
13.12.2017 14:44:30 |
Gast96972 |
|
|
|
13.12.2017 14:47:10 |
Gast22261 |
|
|
|
13.12.2017 14:45:32 |
Gast61771 |
|
|
 VBA - InputEintrag merken |
13.12.2017 15:07:08 |
Gast60241 |
|
|
|
13.12.2017 15:08:44 |
Gast66757 |
|
|
Von:
Gast60241 |
Datum:
13.12.2017 15:07:08 |
Views:
588 |
Rating:
|
Antwort:
|
Thema:
VBA - InputEintrag merken |
Sub LaufzeitRechner()
Dim RobotNr As String
Dim Laufzeit As String
Dim rng As Range
RobotNr = InputBox("Bitte Nummer des Gerätes eingeben:", "Geräte Abfrage")
Set rng = Worksheets("Zeiterfassung").Range("A8:A59").Find(RobotNr) 'Suche nach der Zahl in Zellen A8 bis A59
If rng Is Nothing Then
MsgBox ("Das Gerät mit der Nummer " & RobotNr & " steht nicht in der Liste.") 'Zahl nicht vorhanden
Else Laufzeit = InputBox("Bitte die Laufzeit des Gerätes eingeben:", "Laufzeit Abfrage") 'Wenn der Wert in A vorhanden ist, erscheint die Laufzeitabfrage. 'Hier brauche ich nun einen Befehl, welcher die Laufzeitabfrage in die Zelle einfügt, in der die RobotNr gefunden wurde.
End If
End Sub
Ich würde das wie folgt probieren:
Sub LaufzeitRechner()
Dim RobotNr As String
Dim Laufzeit As String
Dim i As String
RobotNr = InputBox("Bitte Nummer des Gerätes eingeben:")
i = 0
Do While True 'Beginn einer Endlosschleife
i = i + 1
If Range("A" & i) = "" Then 'Abbruchbedingung für die Endlosschleife: Sobald in Spalte A keine Werte mehr sind, bricht das Programm ab. Hat den Vorteil du kannst die Liste beliebig erweitern
MsgBox ("Das Gerät mit der Nummer " & RobotNr & " steht nicht in der Liste.")
Exit Do
End If
If Range("A" & i) = RobotNr Then 'Prüft die Zeilen in Spalte A nach der eingegebenen Nummer
Laufzeit = InputBox("Bitte die Laufzeit des Geräts eintragen") 'Wenn Nummer gefunden, neue InputBox + Speichern des eingegebenen Wertes
Range("C" & i) = Laufzeit 'Eintragen des Wertes aus der 2. Inputbox in Spalte C und der entsprechenden Zeile
Loop
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.12.2017 14:02:26 |
Spyspy |
|
|
|
13.12.2017 14:30:00 |
Gast8027 |
|
|
|
13.12.2017 14:30:08 |
Gast44440 |
|
|
|
13.12.2017 14:30:09 |
Gast34303 |
|
|
|
13.12.2017 14:44:30 |
Gast96972 |
|
|
|
13.12.2017 14:47:10 |
Gast22261 |
|
|
|
13.12.2017 14:45:32 |
Gast61771 |
|
|
VBA - InputEintrag merken |
13.12.2017 15:07:08 |
Gast60241 |
|
|
|
13.12.2017 15:08:44 |
Gast66757 |
|
|