InputBox in IfAbfrage
20.07.2020 10:52:52
Christian
Ich habe eine Excel-Datei für meine Diensteinteilung gemacht.
Da soll dann in einem Blatt per Makro pro Tag die Werte aus einer anderen ( durch Formel gefüllte Tabelle ) die Werte geholt werden.
Das funktioniert.
Nun soll er aber noch durch eine If Abfrage, wenn bei dem Namen für diesen Tag kein Wert steht, also an diesem nicht eingeteilt war, eine Inputbox kommen, wo ich eingeben kann was er an diesem Tag gemacht hat ( Urlau, Rollfrei, Überstundenabbau, usw. ). Dies soll dann eingetragen werden.
Es kann auch sein dass in einer Zeile in der 1. Spalte kein Name steht auch dann soll er die Inputbox nicht anzeigen sondern eine leere Zelle machen.
Die Inputbox wird angezeigt, jedoch für jede Zeile, auch wenn ein Wert vorhanden ist oder der Name fehlt.
In der Inputbox werden mir nicht die Werte angezeigt die ich für i ( meine Variable zum durchsuchen der Zeilen ) und die Spaltennummer suche, sondern i -1, also die Zeile darüber.
Wenn ich Werte eintrage, werden diese nicht übernommen.
Was mache ich falsch?
Vielleicht kann mir jemand helfen. Hab mich schon durch etliche Artikel und Videos gegooglt und ausprobiert.
Danke schon mal im voraus.
Sub IfThenElse_Tag13a()
'Variable festlegen
Dim i As Integer
Dim strInputBox As String
Dim ZustellerName As String
Dim ZustellTag As String
For i = 42 To 74
ZustellTag = Day(Range("AH41").Value) & "." & Month(Range("A41")) & "." & Year(Range("A41")) _
strInputBox = Application.InputBox("Bitte Wert eingeben für " & ZustellerName, ZustellTag, , _
, , , , 3)
'Wenn Bezirk eingetragen --> in anderes Blatt übertragen
If Worksheets("Erfassung (Formel)").Cells(i, 37).Value > 60 Then
Worksheets("Erfassung").Cells(i, 37).Value = Worksheets("Erfassung (Formel)").Cells( _
i, 37).Value
ElseIf Cells(i, 1) = "" Then
Cells(i, 37) = ""
Else
Worksheets("Erfassung").Cells(i + 1, 37).Value = strInputBox
End If
ZustellerName = Cells(i, 1)
Next
End Sub