Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle verschieben

Zelle verschieben
Toby
Ich habe ein Makro das eine Zelle sucht, in ein Verzeichnis und zwar A - Z, so das ich Buchstaben zu Buchstaben wechseln kann
jetzt möchte ich aber das die gefunden Zelle immer am obersten Rand angezeigt wird , was muss ich noch hinzufügen?
Danke und Gruss Toby
PS: das ist mein Code zum das Feld A zusuchen
Dim z
For z = 1 To (ActiveSheet.UsedRange.Rows.Count)
If ActiveCell = "A" Then
Exit Sub
Else
ActiveCell.Offset(1, 0).Select
End If

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

Betreff
Benutzer
Anzeige
AW: Zelle verschieben
Nike
Hi,
versuchs so:

Sub Macro1()
If ActiveCell.Row > 1 Then
ActiveWindow.SmallScroll Down:=ActiveCell.Row - 1
End If
End Sub

Nike
AW: Zelle verschieben
13.04.2004 11:57:10
Toby
Super hat geklappt
Danke
Gruss toby
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige