Userform Anzeige - spaltenweise Ansicht

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim lngRow As Long With Worksheets("Tabelle3") .Cells(Lozahl, 3).Value = Now 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 TextBox3.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

Private Sub CommandButton2_Click() With Worksheets("Tabelle3") Lozahl = Lozahl - 1 TextBox1.Text = .Cells(Lozahl, 1).Value TextBox2.Text = .Cells(Lozahl, 2).Value TextBox3.Text = .Cells(Lozahl, 4).Value End With End Sub

Code: [Cc][+][-] Option Explicit Private Lozahl As Long Private mlngEditRow As Long Private Sub UserForm_Initialize() Dim objCell As Range With Worksheets("Tabelle15").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 TextBox3.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 mlngEditRow = Lozahl With Worksheets("Tabelle15") .Cells(Lozahl, 3).Value = Now 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(lngRow, 4).Value Lozahl = lngRow Exit For End If Next End With End Sub Private Sub CommandButton2_Click() Lozahl = mlngEditRow With Worksheets("Tabelle15") TextBox1.Text = .Cells(mlngEditRow, 1).Value TextBox2.Text = .Cells(mlngEditRow, 2).Value TextBox3.Text = .Cells(mlngEditRow, 4).Value End With End Sub

Hallo Daniel,
teste mal:

Code:


[Cc][+][-]

Option Explicit

Private mlngRow As Long
Private mobjCollection As Collection

Private Sub UserForm_Initialize()
  Dim objCell As Range

  Set mobjCollection = New Collection
  With Worksheets("Tabelle15").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
             TextBox3.Text = objCell.Offset(0, 1).Value
             mlngRow = objCell.Row
             Call mobjCollection.Add(Item:=mlngRow)
             Exit For
          End If
      Next
  End With
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Set mobjCollection = Nothing
End Sub

Private Sub CommandButton1_Click()
  Dim lngRow As Long

  With Worksheets("Tabelle15")
      .Cells(mlngRow, 3).Value = Now
      For lngRow = mlngRow + 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(lngRow, 4).Value
             mlngRow = lngRow
             Call mobjCollection.Add(Item:=mlngRow)
             Exit For
          End If
      Next
  End With
End Sub

Private Sub CommandButton2_Click()
  Dim lngIndex As Long

  With mobjCollection
      For lngIndex = .Count To 1 Step -1
          If .Item(lngIndex) < mlngRow Then
             mlngRow = .Item(lngIndex)
             Exit For
          End If
      Next
  End With
  With Worksheets("Tabelle15")
      TextBox1.Text = .Cells(mlngRow, 1).Value
      TextBox2.Text = .Cells(mlngRow, 2).Value
      TextBox3.Text = .Cells(mlngRow, 4).Value
  End With
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Userform Anzeige - spaltenweise Ansicht

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform Anzeige - spaltenweise Ansicht

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

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread