Übertragen Eintrag in freie Zelle

Hallo zusammen,
folgendes Problem: mittels einer UserForm (hier provisorisch InputBox) wähle ich einen Eintrag (String) aus. Dieser Eintrag ist bekannt und soll aus einer Liste (Zeile 27 - 30) gesucht werden und nach Überprüfung einer bestimmten Bedingung soll dieser Eintrag in die erste freie Zeile einer Range (Zeile 20 - 22) eingetragen werden. Aus der bisherigen Zeile soll dieser Eintrag dann im Nachgang gelöscht werden. Dazu wurde bisher folgender Code geschrieben:
Dim Auftrag_Bietverfahren As String
Dim X As Integer
MsgBox "Bitte geben Sie den zu erwerbenden Transportauftrag ein."
Auftrag_Bietverfahren = InputBox("Zu erwerbender Auftrag im Bietverfahren:")
For X = 27 To 30
Auftrag_Bietverfahren = Worksheets("Spielfeld").Cells(X, 2)
Exit For
Next X
If MsgBox("Haben Sie den Transportauftrag erhalten?", vbYesNo) = vbYes Then
Auftrag_Bietverfahren = Worksheets("Spielfeld").Cells(22, 2).End(xlUp).Row + 1
Worksheets("Spielfeld").Cells(X, 2).ClearContents
Dieser Code ist die grundlegende Lösung. Leider funktioniert das so nicht. Generell ist mir nicht klar, ob das grundsätzlich möglich ist, dass diese Überprüfung gemacht werden kann, ohne, dass der Eintrag in einer Zelle steht.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub bla() Dim Auftrag_Bietverfahren As String Dim rngFund As Range ' MsgBox "Bitte geben Sie den zu erwerbenden Transportauftrag ein." Auftrag_Bietverfahren = InputBox("Eingabe zu erwerbender Auftrag im Bietverfahren:", "Transportauftrag") If Len(Auftrag_Bietverfahren) > 0 Then With Worksheets("Spielfeld").Cells(27, 1).Resize(4) Set rngFund = .Find(What:=Auftrag_Bietverfahren, LookIn:=xlValues, Lookat:=xlWhole) If Not rngFund Is Nothing Then If MsgBox("Haben Sie den Transportauftrag erhalten?", vbYesNo) = vbYes Then Worksheets("Spielfeld").Cells(22, 2).End(xlUp).Offset(1).Value = Auftrag_Bietverfahren rngFund.ClearContents End If End If End With End If End Sub

Sub bla() Dim Auftrag_Bietverfahren As String Dim rngFund As Range Dim lngZeilegefunden As Long Dim lngEinfuegezeile As Long ' MsgBox "Bitte geben Sie den zu erwerbenden Transportauftrag ein." Auftrag_Bietverfahren = InputBox("Eingabe zu erwerbender Auftrag im Bietverfahren:", "Transportauftrag") If Len(Auftrag_Bietverfahren) > 0 Then With Worksheets("Spielfeld").Cells(27, 1).Resize(4) Set rngFund = .Find(What:=Auftrag_Bietverfahren, LookIn:=xlValues, Lookat:=xlWhole) If Not rngFund Is Nothing Then If MsgBox("Haben Sie den Transportauftrag erhalten?", vbYesNo) = vbYes Then lngZeilegefunden = rngFund.Row MsgBox "Holzeile " & lngZeilegefunden Worksheets("Spielfeld").Cells(22, 2).End(xlUp).Offset(1).Value = Auftrag_Bietverfahren lngEinfuegezeile = Worksheets("Spielfeld").Cells(22, 2).End(xlUp).Row + 1 MsgBox "Zielzeile " & lngEinfuegezeile rngFund.ClearContents End If End If End With End If End Sub

Beliebteste Forumthreads (12 Monate)

Übertragen Eintrag in freie Zelle

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Übertragen Eintrag in freie Zelle

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread