in einer Tabelle zur nächsten Zeile

Sub Schaltfläche1_Klicken() Dim sVorname As String Dim sNachname As String Cells(21, 4).Select 'D21' sVorname = ActiveCell.Offset(0, 0).Value Cells(1, 2).Value = sVorname sNachname = ActiveCell.Offset(0, 1).Value 'gehe eine Spalte nach rechts' Cells(2, 2).Value = sNachname End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schaltfläche1_Klicken() If Not Intersect(ActiveCell, Columns(4)) Is Nothing Then ActiveCell.Offset(1).Select If ActiveCell.Row >= 21 Then Cells(1, 2).Value = ActiveCell Cells(2, 2).Value = ActiveCell.Offset(0, 1) End If End If End Sub

B2 Kdn.:
B3 Anrede:
B4 Vorname:
B5 Nachname: u.s.w

Bei B20 beginnt die Tabelle, B21 erster Kontakt
B20 Kdn.
C20 Anrede:
D20 Vorname:
E20 Nachname: u.s.w

Jetzt möchte ich das die Adressdaten von Zeile B21 bis.... oben bei B2 bis.... eingetragen werden. Mit einem Button möchte ich in der Tabelle vor und zurück navigieren.
Das funktioniert ja eigentlich ganz gut. Nur da ich schon bei Zeile 20 bin und dort der Bildschirmbereich aufhört, hüpft der Cursor immer runter, wenn ich auf den Button drücke.
Dadurch sehe ich immer meine Adresstabelle und nicht den oberen Bereich. Wie kann ich das verhindern? Habe schon gerätselt, bin aber nicht darauf gekommen.
Habe es mit Offset probiert, aber das macht genau das Gegenteil, von dem ich möchte.


Sub Schaltfläche1_Klicken()
Dim iRow As Integer
Dim iColumn As Integer
Dim sVorname As String
Dim sNachname As String
Dim sStraße As String
iRow = ActiveCell.Row
iColumn = ActiveCell.Column
ActiveCell.Offset(1, 0).Select
sVorname = ActiveCell.Offset(0, 0).Value
Cells(4, 3) = sVorname
sNachname = ActiveCell.Offset(0, 1).Value
Cells(5, 3) = sNachname
sStraße = ActiveCell.Offset(0, 2).Value
Cells(6, 3) = sStraße
End Sub

Sub vor() If lngZeile = 0 Then lngZeile = 20 If lngZeile = Cells(Rows.Count, 2).End(xlUp).Row Then MsgBox "Ende erreicht" Exit Sub End If lngZeile = lngZeile + 1 Range("C2") = Cells(lngZeile, 2) Range("C3") = Cells(lngZeile, 3) Range("C4") = Cells(lngZeile, 4) Range("C5") = Cells(lngZeile, 5) End Sub

Sub zurueck() If lngZeile = 0 Then lngZeile = 22 If lngZeile = 21 Then MsgBox "Anfang erreicht" Exit Sub End If lngZeile = lngZeile - 1 Range("C2") = Cells(lngZeile, 2) Range("C3") = Cells(lngZeile, 3) Range("C4") = Cells(lngZeile, 4) Range("C5") = Cells(lngZeile, 5) End Sub

Beliebteste Forumthreads (12 Monate)

in einer Tabelle zur nächsten Zeile

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

in einer Tabelle zur nächsten Zeile

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread