Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sprung in Tabelle

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Sprung in Tabelle
30.07.2011 14:32:26
fcs
Hallo Udo,
warum hängst du deine ergänzenden Informaionen nicht an deine ursprünglich Frage?
Nachfolgend die Anpassung für deine Prozedur.
Gruß
Franz
Option Explicit
Dim Zelle As Range 'Merker, dass von A1 zu einer Zelle gesprungen wurde
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim vntRet As Variant
With Sh
If .Name Like "BÄKO*" Then
If Target.Address(0, 0) = "A1" Then
If Target  "" Then
vntRet = Application.Match(Target, .Range("A2:A" & .Rows.Count), 0)
If IsNumeric(vntRet) Then
Set Zelle = .Cells(vntRet + 1, 4)
Zelle.Select
ActiveWindow.ScrollRow = Zelle.Row
Else
.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1) = Target
.Range("A2").CurrentRegion.Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:= _
xlYes
vntRet = Application.Match(Target, .Range("A2:A" & Rows.Count), 0)
.Cells(vntRet + 1, 3).Select
ActiveWindow.ScrollRow = vntRet + 1
End If
End If
ElseIf Not Zelle Is Nothing Then
Range("A1").Select
Set Zelle = Nothing
End If
End If
End With
End Sub

Anzeige
AW: Sprung in Tabelle
30.07.2011 15:27:02
Udo
Danke, danke, bin wie immer begeistert.
Meine Blödheit war, nicht daran zu denken, weitere Nachrichten direkt an meine Frage anzuhängen. Soll nicht wieder vorkommen, versprochen.
Danke allen, die sich heute wieder mal für mich bemüht haben.
Schönes Wochenende
Udo Gombert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige