Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenanwahl mit Drehfeld (SpinButton)

Forumthread: Zeilenanwahl mit Drehfeld (SpinButton)

Zeilenanwahl mit Drehfeld (SpinButton)
02.11.2005 20:14:29
reiner
Hallo Leute,
weiß jemand eine Möglichkeit wie man mit einem Drehfeld (SpinButton) auf einer UserForm die Zeilen einer Tabelle der Pfeilrichtung folgend anwählen kann?
Gruß Reiner
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenanwahl mit Drehfeld (SpinButton)
02.11.2005 20:20:08
Matthias
Hallo Reiner,
so:

Private Sub SpinButton1_SpinDown()
If ActiveCell.Row < Rows.Count Then
ActiveCell.Offset(1, 0).Select
End If
End Sub
Private Sub SpinButton1_SpinUp()
If ActiveCell.Row > 1 Then
ActiveCell.Offset(-1, 0).Select
End If
End Sub

Gruß Matthias
Anzeige
AW: Zeilenanwahl mit Drehfeld (SpinButton)
02.11.2005 20:27:59
chris
Und wenn du die ganze Zeile markieren willst dann geht das so.

Private Sub SpinButton1_SpinDown()
Rows(Selection.Row + 1).Select
End Sub



Private Sub SpinButton1_SpinUp()
Rows(Selection.Row - 1).Select
End Sub

gruß Christian
Anzeige
AW: Zeilenanwahl mit Drehfeld (SpinButton)
02.11.2005 22:01:55
reiner
Hallo Leute,
vielen Dank für Eure Vorschläge; ich habe sie beide getestet und finde den Vorschlag von Matthias brauchbarer da hier der Cursor nicht weiter als bis zur Zeile 1 zurückspringen kann.
Beim Vorschlag von Christian versucht der Cursor noch weiter zurück zu springen was natürlich nicht geht und somit eine Fehlermeldung hervorruft.
In einem weiteren Schritt möchte ich den „UP“- und „DOWN“-Bereich des Drehfeldes auf die Datumsangaben eines zuvor gewählten Jahrgangs beschränken. D.h. mit den beiden Schaltflächen des Drehfelds sollen nur Datumsangaben des gewählten Jahrgangs angesprungen werden können. Das jeweilige Jahr ist in der Variablen „Jahr“ gespeichert.
(Ist 2004 angewählt darf der Cursor nicht auf Datumsangaben wir z. B. 31.12.2004 oder 01.01.2005 springen, es sollte evtl. eine Fehlermeldung erfolgen)
Lässt sich die Variable „Jahr“ im folgenden Code integrieren um meine Idee zu realisieren?

Private Sub SpinButton1_SpinDown()
If ActiveCell.Row < Rows.Count Then
ActiveCell.Offset(1, 0).Select
End If
End Sub



Private Sub SpinButton1_SpinUp()
If ActiveCell.Row > 1 Then
ActiveCell.Offset(-1, 0).Select
End If
End Sub

Gruß Reiner
Anzeige
AW: Zeilenanwahl mit Drehfeld (SpinButton)
02.11.2005 22:56:14
Matthias
Hallo Reiner,

Private Sub SpinButton1_SpinDown()
If ActiveCell.Row < Rows.Count Then
With ActiveCell.Offset(1, 0)
If Year(.Value) = Jahr Then
.Select
Else
Beep
End If
End With
End If
End Sub
Private Sub SpinButton1_SpinUp()
If ActiveCell.Row > 1 Then
With ActiveCell.Offset(-1, 0)
If Year(.Value) = Jahr Then
.Select
Else
Beep
End If
End With
End If
End Sub

Gruß Matthias
Anzeige
AW: Zeilenanwahl mit Drehfeld (SpinButton)
02.11.2005 23:59:18
reiner
Hallo Matthias,
Dein Vorschlag ist noch nicht lauffähig da er nicht das auf Datum in Spalte „D“ zugreift. Habe ich leider vergessen mitzuteilen.
Reiner
AW: Zeilenanwahl mit Drehfeld (SpinButton)
03.11.2005 00:24:47
Matthias
Hi Reiner,
hm, na denn:

Private Sub SpinButton1_SpinDown()
If ActiveCell.Row < Rows.Count Then
With ActiveCell.Offset(1, 0)
If Year(Cells(.Row, 4)) = jahr Then
.Select
Else
Beep
End If
End With
End If
End Sub
Private Sub SpinButton1_SpinUp()
If ActiveCell.Row > 1 Then
With ActiveCell.Offset(-1, 0)
If Year(Cells(.Row, 4)) = jahr Then
.Select
Else
Beep
End If
End With
End If
End Sub

Gruß Matthias
Anzeige
AW: Zeilenanwahl mit Drehfeld (SpinButton)
03.11.2005 09:49:12
reiner
Hallo Matthias,
so soll es sein, vielen Dank für die Unterstützung
eine allerletzte Frage aber habe ich noch: woran könnte es liegen dass mein PC keinen BEEP-Signalton von sich gibt?
Reiner
AW: Zeilenanwahl mit Drehfeld (SpinButton)
03.11.2005 11:06:20
Matthias
Hi Reiner,
such doch mal im Archiv
(in Google z.B. Beep site:www.herber.de eingeben)
und bei Nichterfolg stell die Frage neu ins Forum. Dann dürfen andere auch mal ;-)
GRuß Matthias
Anzeige
;

Forumthreads zu verwandten Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zeilen ausblenden per Button
Hanses

Hallo,
ich wiederhole mein Frage.
Ich möchte in einem geschützen Tabellenblatt, welches per Passwort freigegeben wird, per Button alle Zeilen ausblenden, wenn in Zelle der Spalte "C" kein Eintrag vorliegt.
Ich möchte keinen Autofilter einsetzen, da auch alle Menüs und die Spalten un...
11.09.2008 14:00:00
Thread-ID: 1009116
3 Beiträge
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Anzeige
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Zeilen Ein und Ausblenden
TinoB

Hallo Excelgemeinde,
ich stehe gerade auf dem Schlauch und hoffe Ihr könnt mir helfen. Ich habe im Forum schon danach gesucht, nur leider komme ich nicht weiter. Ich möchte wenn in der Zelle B2 eine 1, 2 oder 3 steht die Zeile 18 ausblenden. Ansonsten soll diese eingeblendet werden oder zum...
23.03.2009 16:43:10
Thread-ID: 1062965
4 Beiträge
Anzeige
Gitternetzlinien per Icon ein- und ausblenden
Vega

Hi,
ich habe mir Excel an meinem neuen Arbeitsplatz gerade wieder neu eingerichtet und auch alles soweit wieder hinbekommen. Nur ein Icon in der Menüleiste fehlt mir noch, mit dem ich die Gitternetzlinien ein- und ausblenden kann.
Ich hatte dies ein meiner alten Excel Umgebung in der Sy...
30.03.2009 15:30:18
Thread-ID: 1065324
5 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Spalten mit farbigen Zellen ausblenden
Robert

Hallo,
stehe momentan voll auf dem Schlauch und komm nicht weiter.
Könnte Ihr mir bitte helfen?
Ich müsste alle Spalten, in denen eine oder mehrere farbige Zellen sind, ausblenden.
- und das wenn möglich mit VBA.
Vielen Dank schon mal.
Gruß Robert
11.06.2009 19:25:52
Thread-ID: 1080829
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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