Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
276to280
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaltfläche

Schaltfläche
07.07.2003 21:42:28
Wolfgang
Hallo hab eine Frage.
Kann ich mit einer Schaltfläche wenn ich Sie drücke zu einer bestimmten Zeile gehen?
Wenn ich Sie wieder drücke zurück kommen?
Danke!
Wolfgang

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche
07.07.2003 21:55:00
Ramses
Hallo
das Makro in ein Modul einfügen.
Du kannst über Extras - Makro - Makros > Optionen einen Shortcut zuweisen oder einem Symbol in einer Symbolleiste, sonst macht es keinen Sinn.
Option Explicit
Public myOldAddress As String

Sub Select_OldAddress()
Dim tarRow As Long
tarRow = 65 'die Zeile die du ansrechen willst
If myOldAddress = "" Then
myOldAddress = ActiveCell.Address
End If
If ActiveCell.Row <> tarRow Then
myOldAddress = ActiveCell.Address
Cells(tarRow, 1).Select
Else
Range(myOldAddress).Select
End If
End Sub


AW: Schaltfläche
07.07.2003 21:50:40
sergiesam
hi
Beispiel siehe: https://www.herber.de/bbs/user/158.xls
Code dahinter:
Dim merkeZelle As Range

Private Sub CommandButton1_Click()
If ActiveCell.Address <> Range("G1").Address Then
Set merkeZelle = ActiveCell
Range("G1").Activate
Else
merkeZelle.Activate
End If
End Sub

Viel Spaß,
Sam

Anzeige
Sorry,... nicht aktualisiert. o.T.
07.07.2003 21:55:42
Ramses
...

AW: Schaltfläche
07.07.2003 21:52:14
wolfgang
Super Danke!!
Schönen Abend!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige