Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SpinButton Schleife+Startwert as Range bzw Variabl

SpinButton Schleife+Startwert as Range bzw Variabl
16.03.2017 13:30:47
Nilo
Hallo zusammen,
ich habe mir eine Tabelle mit einem Spinbutton erstellt.
Die Daten aus der Tabelle MinMax kann ich mir per Spinbutton in einer Zelle hoch und runter anzeigen lassen, klappt!
Jetzt soll er aber auch in beide Richtungen weiter machen (Schleife)
Ende/Anfang , Anfang/Ende usw.
Zusätzlich möchte ich Werte auch manuell in die Zelle eingeben können und von dort dann weiter vor bzw. zurück!
Der Datenbereich für den Spinbutton ist fix!
Habe jetzt diverse Codes ausprobiert und angepasst aber bisher ohne richtiges Ergebnis.
Im Anhang meine Testtabelle.
https://www.herber.de/bbs/user/112225.xlsm
Danke mal und Gruß
Nilo

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Schleife läuft, Danke Dieter - Startwert ist offen
17.03.2017 10:56:37
Nilo
für Hilfe beim Startwert wenn manuell eingefügt wurde schon mal vielen Dank!
Gruß
Nilo
AW: Schleife läuft, Danke Dieter - Startwert ist offen
17.03.2017 11:24:34
ChrisL
Hi Nilo
Private Sub SpinButton1_SpinUp()
On Error Resume Next
Application.EnableEvents = False
If SpinButton1.Value = 6000 Then SpinButton1.Value = 1
Worksheets("SpinButton").Range("A3") = Worksheets("MinMax").Cells(SpinButton1.Value + 1, 1)
Application.EnableEvents = True
End Sub


Private Sub SpinButton1_SpinDown()
On Error Resume Next
Application.EnableEvents = False
If SpinButton1.Value = 0 Then SpinButton1.Value = 5999
Worksheets("SpinButton").Range("A3") = Worksheets("MinMax").Cells(SpinButton1.Value + 1, 1)
Application.EnableEvents = True
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A3" Then
Worksheets("SpinButton").Range("D8") = _
Application.Match(Target, Worksheets("MinMax").Columns(1)) - 1
End If
End Sub

Eigenschaften SpinButton:
- LinkedCell = D8
- Min = 0
- Max = 6000
Für A3 würde ich eine Gültigkeitsprüfung verwenden, um Falscheingaben zu verhindern (sonst läuft der Match-Befehl auf einen Fehler).
Voraussetzung ist, dass es keine Duplikate gibt.
cu
Chris
Anzeige
Juhu Danke Chris! Eine Frage noch zum WksChange
17.03.2017 14:14:10
Nilo
Hi,
jetzt läufts wie es soll! Vielen Dank dafür!
Was mich jetzt stutzig mach ist das er mir die Bedingte MinMax Balken Formatierung in B4:R16 bei jedem Klick auf vor oder zurück zerschießt.
Ich muss ihm hier jetzt anweisen nach jedem Klick sie wieder rein zunehmen!
Ist das normal bei Worksheet_Change Prozeduren?
Bedingte Formatierung >> Datenbalken >> Weitere Regeln >> Min = Auto / Max = Auto
Das Min / Max fliegt raus, die hübschen Balken bleiben, aber dann eben alle gleichlang!?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A3" Then
Worksheets("Spinbutton").Range("D8") = _
Application.Match(Target, Worksheets("MinMax").Columns(1)) - 1
End If
Range("B4:R16").Select
With Selection.FormatConditions(1)
.MinPoint.Modify newtype:=xlConditionValueAutomaticMin
.MaxPoint.Modify newtype:=xlConditionValueAutomaticMax
End With
With Selection.FormatConditions(1).BarColor
.Color = 13012579
.TintAndShade = 0
End With
Selection.FormatConditions(1).BarFillType = xlDataBarFillGradient
Selection.FormatConditions(1).Direction = xlLTR
Selection.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor
Selection.FormatConditions(1).BarBorder.Type = xlDataBarBorderSolid
Selection.FormatConditions(1).NegativeBarFormat.BorderColorType = _
xlDataBarColor
With Selection.FormatConditions(1).BarBorder.Color
.Color = 13012579
.TintAndShade = 0
End With
Selection.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic
With Selection.FormatConditions(1).AxisColor
.Color = 0
.TintAndShade = 0
End With
With Selection.FormatConditions(1).NegativeBarFormat.Color
.Color = 255
.TintAndShade = 0
End With
With Selection.FormatConditions(1).NegativeBarFormat.BorderColor
.Color = 255
.TintAndShade = 0
End With
Range("A3").Select
End Sub

Anzeige
AW: Juhu Danke Chris! Eine Frage noch zum WksChange
17.03.2017 14:36:11
ChrisL
hi Nilo
Die Bedingte Formatierung kann ich so nicht nachbauen oder es gab die Einstellungen in XL2007 gar noch nicht. Bitte Beispieldatei...
cu
Chris

98 Forumthreads zu ähnlichen Themen

Dim Zelle As Range, Farbe As Long
sockel939

Hallo,
sagt mal wie bekomme ich den code dazu nicht die Zellenfarbe zu ändern sondern die Schriftfarbe.
Habe mal statt Interior , Font eingetragen dann bleibt er aber Hängen.
Dim Zelle As Range
Dim Farbe As Long
For Each Zelle In Range("m2:m1000")
Select Case Zelle.Value...
21.08.2008 10:04:00
Thread-ID: 1003376
5 Beiträge
Anzeige
@Nepumuk - mehrdimensionale ArraySortierung in ASP
Martin

Hallo Nepumuk,
ich bin bereits seit 2001 Mitglied und regelmäßiger Besucher hier im Forum. Allerdings stelle ich heute ausnahmsweise einmal eine "Nicht-Excel"-Frage. Ich beschäftige mich neben Excel VBA auch mit ASP (Active Server Pages), die ebenfalls auf Visual Basic basieren. Auch mit AS...
11.01.2009 14:10:00
Thread-ID: 1038651
9 Beiträge
Funktion Range asl Rückgabewert?
Horst

Hey !
Ich habe gelesen das ich nur in einer Funktion eine Wertrückgabe definieren kann?
Ich habe aber nur String, Boolean, Integer usw. als mögliche Rückgabewerte gefunden
kann ich auch einen Weterbereich (Range) oder sogar ein ganzes WorkSheet zurückgeben?
Also wie z.B.
-...
30.01.2009 08:20:00
Thread-ID: 1045279
4 Beiträge
Anzeige
Worksheet_Change(ByVal Target As Range)
Axel


Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...
13.03.2009 12:08:19
Thread-ID: 1059821
5 Beiträge
Probleme Worksheet_Change(ByVal Target As Range)
Ron

Hallo Leute,
habe mir vor einigen Wochen hier im Forum von Daniel helfen lassen und wollte nun den von ihm geposteten Script ein wenig auf meine Bedürfnisse umschreiben. Leider bin ich wohl zu blöd...
Es wäre Klasse, wenn mir jemand helfen könnte!
Ausgangslage:
Ich möchte in ein...
28.04.2009 04:06:20
Thread-ID: 1071514
4 Beiträge
Set rngOld = ActiveCell in Row ändern möglich?
Karsten

Hallo,
ich möchte einen Befehl abändern.
Dim rngOld As Range
Set rngOld = ActiveCell
Range("a10").Select
rngOld.Select
End Sub
Er soll jetzt so ausgeführt werden, dass nicht die alte Zelle sondern in der alten Zeile die Zelle in der 10 Spalte angesteuert wird. Geht...
27.07.2009 17:08:37
Thread-ID: 1091676
11 Beiträge
Range zusammenfassen (Code abkürzen)?
Florian

Guten Morgen Excel-Volk!
Habe eine Frage bzgl. Ranges: habe oft verschiedene, nichtzusammenhängende Bereiche, die gleich formatiert werden sollen, z.B.
With .Range(.Cells(8, 2), .Cells(8, 45))
.[FORMAT]
End With
With .Range(.Cells(17, 2), .Cells(17, 45))
.[gleiches FORM...
05.02.2010 07:54:34
Thread-ID: 1135993
3 Beiträge
Eindimensionales Array mit Range("A1:B40000") bild
Peter

Hallo Forum
In den Spalten A und B sind je 40.000 Werte und ich möchte die Unikate in Spalte D ausweisen.
Wie bekomme ich den Range("A1:B40000") in ein eindimensionales Array eingelesen.
Bisher kopiere ich die Spalten untereinander (bis 65536 Zeilen) und lese die Werte dann ein... <...
16.05.2010 13:39:12
Thread-ID: 1157244
5 Beiträge
Anzeige

Links zu Excel-Dialogen

SpinButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
12
8
3
6
4
3
10
2
4
6
10
3
2
5
2
2
9
4
2
3
7
4
1
1