Office: Übereinstimmungs- und Zuordnungs-Makro

Hallo Leute,

ich habe wieder eine Kleinigkeit, bei der ich ein wenig Hilfe gebrauchen könnte.
Ich erfrage mit Input-Box1 ein Datum, welches der Makro im Tabellenblatt in Zeile eins suchen soll. Mit Input-Box2 erfrage ich eine Information, welche der Makro in die Zelle unter das zuvor eingegebene Datum ordnen soll, wenn er dieses Datum findet.
Leider klappt die Zurodnung aber irgendwie nicht. Wäre super, wenn mir jemand dabei helfen könnte, dies hinzubekommen.
Nachfolgend der bisherige Makro und die Zeile in welcher es glaube ich hakt, ist unterstrichen.

Sub emptier()

Dim r As Range
Dim allCells As Range
Dim ThisWs As Worksheet
Dim NewRng As Range

Dim Engine As String
Dim Datum As Date

Set r = Range("A1:G1")
Set ThisWs = ActiveSheet
On Error GoTo Fehler
Datum = InputBox("Induct Date" & vbCrLf & "tt.mm.jjjj", "Induct Date")
Engine = InputBox("Engine", "Engine")

For Each allCells In r

If allCells.Value = Datum Then
Range(allCells.Column & allCells.Row + 1).Value = Engine

End If

Next

Fehler:

End Sub


Vielen Dank im voraus.
Björn

 

Hallo!

Ich kenne deinen Tabellenaufbau nicht, aber soweit ich weiß, liefert eine InputBox immer TEXT zurück!
Daher solltest du wahrscheinlich die Zuweisung zu der Variablen "Datum" nochmals überarbeiten.

 

Hallo Schatzi,

ich habe meine Variable 'Datum' nun mal als String deklariert. Leider funkt's immer noch nicht.
Wenn die Inputbox also einen TEXT zurückgibt, meine Tabellenzellen-Formatierung aber 'Datum' ist, bräuchte ich also noch eine Konvertierung des Inpubox-Ergebnisses, oder?
Ich habe die Datei mal beigefügt.

Danke
Björn