Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ToggleButton
BildScreenshot zu ToggleButton ToggleButton-Seite mit Beispielarbeitsmappe aufrufen

Anfang Ende mit Toggle-Button


Betrifft: Anfang Ende mit Toggle-Button von: Gerhard
Geschrieben am: 26.06.2017 17:54:00

Hallo zusammen,
Bitte um VBA Hilfe!
Benötige einen VBA Code um jeweils in einer Aktiven Zelle in einer Spalte in die Letzte Zelle oder in die
Erste Zelle mit Inhalt rauf oder runter in dieser Spalte zu springen!
Desweiteren wäre es super wenn in dem Toggle-Button dies mit einem Pfeil entsprechend der Richtung graphisch dargestellt werden könnte!
siehe Anhang meiner Testdatei:

Vielen Dank
Gruß Gerhard

https://www.herber.de/bbs/user/114490.xls

  

Betrifft: AW: Anfang Ende mit Toggle-Button von: Werner
Geschrieben am: 26.06.2017 17:58:35

Hallo Gerhard,

warum nicht einfach STRG und Pfeil runter/rauf?

Gruß Werner


  

Betrifft: AW: Anfang Ende mit Toggle-Button von: Gerhard
Geschrieben am: 26.06.2017 18:08:04

Hallo Werner,
ich hätte es gerne mit einem VBA Code mit einem Button in einer Messdaten-Verwaltung mit dem Mitarbeiter in der Produktion
arbeiten könnten!

Vielen Dank
Gruß Gerhard


  

Betrifft: AW: Anfang Ende mit Toggle-Button von: KlausF
Geschrieben am: 26.06.2017 18:55:16

Hallo Werner,

Sub Anfang()
Dim strCol As String
strCol = Mid(ActiveCell.Address, 2, (InStr(2, ActiveCell.Address, "$")) - 2)
Application.Goto Cells(Application.Match("*", Columns(strCol), 0), strCol)
End Sub

Sub Ende()
Dim strCol As String
strCol = Mid(ActiveCell.Address, 2, (InStr(2, ActiveCell.Address, "$")) - 2)
Application.Goto Range(strCol & Cells(Rows.Count, strCol).End(xlUp).Row)
End Sub
Die grafische Umsetzung musst Du selber vornehmen.

Gruß
Klaus


  

Betrifft: Gerhard und nicht Werner von: KlausF
Geschrieben am: 26.06.2017 20:15:54

Sorry, ich meinte natürlich Gerhard und nicht Werner ...

Gruß
Klaus


  

Betrifft: AW: Gerhard und nicht Werner von: Gerhard
Geschrieben am: 27.06.2017 09:38:52

Vielen Dank für die Hilfe
Code funktioniert... Danke

Gruß Grehard


Beiträge aus den Excel-Beispielen zum Thema "Anfang Ende mit Toggle-Button"