Userform Anzeige bei variabler Tabelle

Hallo liebe Forumer,
ich habe eine Userform in der ich einige Infos anzeigen lassen möchte.
Die infos die ich anzeige schalte ich mit einem "Weiter"-Knopf weiter in die nächste Zeile.


Private Sub CommandButton1_Click()
TextBox1.Text = Worksheets("Tabelle3").Range("A"& Lozahl+2)
TextBox1.Text = Worksheets("Tabelle3").Range("B"& Lozahl+2)
LoZahl= Lozahl+1
End Sub

ich möchte allerdings in die Zeile die dann weiter geschaltet wurde ein "Bearbeitet" in Spalte C schreiben.
Die Liste wird daher auch weiter genutzt und ich weiß nicht wie das Makro dann wieder an der Letzten bearbeiten Stelle anfängt. Also z.b. ich habe Bis A10 bearbeitet und möchte dann das mir am nächsten Tag wenn ich die Tabelle aufrufe wieder die Spalte A10 angezeigt wird.
Hat dort jemand einen Tipp?
Liebe Grüße
Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim objCell As Range With Worksheets("Tabelle3").Columns(3) Set objCell = .Find(What:="Bearbeitet", After:=.Cells(1, 1), _ LookIn:=xlValues, LokkAt:=xlWhole, MatchCase:=True) End With If Not objCell Is Nothing Then Lozahl = objCell.Row - 2 Set objCell = Nothing Else Lozahl = 1 '? End If End Sub

So wie zu beginn :)
ich möchte aus der Tabelle Zeile 1 und 2 auslesen und in 3 möchte ich einen Zeitstempel eintragen.
allerdings kommen immer wieder neue Zeilen hinzu die Oben angefügt werden.
Userbild

Ich habe hier mal ein Beispiel der Liste ganz kurz gefasst.
In Zeile 1 ist eine nummer und in Zeile 2 auch (Etwas kryptisches Datum :D) die ich in der Userform anzeigen lassen möchte.
in Zeile 3 möchte ich dann anstatt bearbeitet ein datum mit uhrzeit schreiben.
und mein weiteres Problem ist da immer neue Zeilen hinzu kommen und oben angefügt werden.
Ich habe es versucht in dem bild darzustellen. meine abfrage wurde gestartet und diese Zeilen haben noch keinen Zeitstempel. nun Bearbeite ich diese und komme zu denen mit Zeitstempel die ich schon bearbeitet habe. Diese bearbeiteten sollen aber übersprungen werden damit ich zu den nächsten unbearbeiteten komme.
Ich hoffe ich konnte es etwas verständlicher formulieren.
Wenn du noch fragen hast dann beantworte ich die gerne ich bin dir auch sehr dankbar für deine mühe und zeit die du grade in mich investiertst.
LG
Daniel

Option Explicit Private Lozahl As Long Private Sub UserForm_Initialize() Dim objCell As Range With Worksheets("Tabelle3").Columns(3) For Each objCell In .Cells If IsEmpty(objCell.Value) Then TextBox1.Text = objCell.Offset(0, -2).Value TextBox2.Text = objCell.Offset(0, -1).Value Lozahl = objCell.Row Exit For End If Next End With End Sub Private Sub CommandButton1_Click() Dim lngRow As Long With Worksheets("Tabelle3") For lngRow = Lozahl + 1 To .Rows.Count If IsEmpty(.Cells(lngRow, 3).Value) Then TextBox1.Text = .Cells(lngRow, 1).Value TextBox2.Text = .Cells(lngRow, 2).Value Lozahl = lngRow Exit For End If Next End With End Sub

Option Explicit Private Lozahl As Long Private Sub UserForm_Initialize() Dim objCell As Range With Worksheets("Tabelle3").Columns(3) For Each objCell In .Cells If IsEmpty(objCell.Value) Then TextBox1.Text = objCell.Offset(0, -2).Value TextBox2.Text = objCell.Offset(0, -1).Value Textbox4.Text = objCell.Offset(0, +1).Value Lozahl = objCell.Row Exit For End If Next End With End Sub Private Sub CommandButton1_Click() Dim lngRow As Long With Worksheets("Tabelle3") For lngRow = Lozahl + 1 To .Rows.Count If IsEmpty(.Cells(lngRow, 3).Value) Then TextBox1.Text = .Cells(lngRow, 1).Value TextBox2.Text = .Cells(lngRow, 2).Value TextBox3.Text = .Cells(IngRow, 4).Value Lozahl = lngRow Exit For End If Next End With End Sub

Beliebteste Forumthreads (12 Monate)

Userform Anzeige bei variabler Tabelle

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform Anzeige bei variabler Tabelle

13 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)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread