Scrollbereich mit neuen Zelleneintrag mitspringen
08.08.2013 10:49:28
mikey
ich habe hier folgendes Makro, das funktioniert, jedoch möchte ich gerne das der Scrollbereich immer zu dem aktualisierten neuen zellen Eintrag im nächsten Tabellenblatt mitspringt da sonst 300 Einträge sind und ich immer nach unten scrollen muss damit ich den neuen Eintrag sehe.
Option Explicit
'1.) die Werte in Tabelle 1 stehen in C14,G,14,I14 der Wert C14 soll in A21:C21 kopiert werden
'
'2.) der Wert in Tabelle 1 steht in G14 und soll in E21:I21
'
'3.) der Wert in tabelle 1 steht I14 und soll in K21:L21 kopiert werden.
Sub kopierWas_Test()
ActiveSheet.Unprotect Password:="123"
Rem Rückfragen, ob Datei nach dem Erstellen geöffnet werden soll
If MsgBox("Soll es eingetragen werden?", vbYesNo) = vbYes Then
Dim wb1 As Workbook
Dim wksTB1 As Worksheet, wksTB2 As Worksheet
Dim lngZeile As Long, lngSpalte As Long
' Objekvariable referenzieren
Set wb1 = Workbooks("Mappe1.xlsm")
Set wksTB1 = wb1.Worksheets("Rechnung")
Set wksTB2 = wb1.Worksheets("Mahnung")
' WERT C14 in TB2 schreiben. Dies in Spalte A bis C der nächsten freien Zelle ab A21
' erste leere Zelle(Zeile) in Spalte A, ab A2 von Tabellenblatt 2 ermitteln
ActiveSheet.Unprotect Password:="123"
lngZeile = Worksheets("Mahnung").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
' Wenn Zeilenzähler kleiner 21, dann Zähler auf 21 setzen
If lngZeile
Sub
danke
Ich habe schon folgenden tipp ausprobiert komm, aber damit nicht so recht klar.
Application.Goto Reference:=Worksheets("Mahnung").Range("A154"), _
scroll:=True
Wenn ich diesen Code einfüge springt er mir zwar in die Zelle 154 aber, ich möchte ja das er _
_
_
zum aktuellen neuen eintrag springt.
könnt ihr mir da weiterhelfen.