Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 18:42:21
Wo platziere ich diesen VBA-Code?
07.05.2024 18:09:41
UserForm als PDF Speichern [Bild Lösung]
07.05.2024 16:36:49
Excel Arbeitszeit berechnung
07.05.2024 16:27:17
Definition und Nutzung von globalen Variablen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1448to1452
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
1448to1452
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ComboBox in Zelle springen

ComboBox in Zelle springen
23.09.2015 13:20:22
Dietz
Hallo,
ich würde gerne mittels ComboBox zwischen den Monaten Januar bis Dezember hin und her springen können. Ich hab Zellen gemerged und die entsprechend Januar, Februar usw. benannt. Was müsste ich als nächstes tun wenn ich in der ComboBox einen Monat auswähle und Excel dadurch in die entsprechende Zelle springt.
Gruß
Dietz

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

Betreff
Datum
Anwender
Anzeige
AW: ComboBox in Zelle springen
23.09.2015 13:40:00
matthias
Hallo Dietz,
von was für einer Art von Combobox reden wir denn? Formular- oder ActiveX-Steuerelement, oder bist du in einer Userform unterwegs?
Das Formularsteuerelement ist ansich nichts anderes als eine Dropdown-Liste in der du den Monat auswählen kannst. Diesem kann mit Rechtsklick -&gt "Makro zuweisen" ein Code angehängt werden.
Das ActiveX-Steuerelement und die Combobox einer Userform verhalten sich gleich. Dies ist eine Dropdown in der ich noch zusätzliche Werte eingeben kann (ist auch ausstellbar). Beide können über das Change-Ereignis angesprochen werden. 
Private Sub ComboBox1_Change()
End Sub
Je nachdem welches Element du nutzt, muss dann auch das Makro anders lauten. Zudem habe ich keine Vorstellung von wo nach wo du springen willst und ob deine Zielzelle immer am gleichen Fleck bleibt/veränderlich ist weil es mal mehr mal weniger Datensätze sein können. Sind die Zellen gar auf unterschiedlichen Tabellenblätter, oder, oder, oder.
Daher bitte ich dich um ein paar weitere Informationen, wenn möglich sogar eine Beispielmappe.
lg Matthias

Anzeige
AW: ComboBox in Zelle springen
23.09.2015 14:23:07
Dietz
Hallo Matthias,
ich hab eine ActiveX ComboBox gewählt. In einer Spalte die ich später hide hab ich die Werte Januar bis Dezember eingetragen (Unter Einstellungen hab ich die ComboBox darauf verwiesen). Als Makro nutze ich momentan folgenden Code:
Private Sub ComboBox21_Change()
If ComboBox21.Value = "January" Then
Range("U5").Select
ElseIf ComboBox21.Value = "February" Then
Range("AZ5").Select
ElseIf ComboBox21.Value = "March" Then
Range("CE5").Select
ElseIf ComboBox21.Value = "April" Then
Range("DJ5").Select
ElseIf ComboBox21.Value = "May" Then
Range("EQ5").Select
ElseIf ComboBox21.Value = "June" Then
Range("FV5").Select
ElseIf ComboBox21.Value = "July" Then
Range("HC5").Select
ElseIf ComboBox21.Value = "August" Then
Range("IH5").Select
ElseIf ComboBox21.Value = "September" Then
Range("JO5").Select
ElseIf ComboBox21.Value = "October" Then
Range("KU5").Select
ElseIf ComboBox21.Value = "November" Then
Range("LZ5").Select
ElseIf ComboBox21.Value = "December" Then
Range("NG5").Select
End If
End Sub
An sich funktioniert die ComboBox nun, jedoch springe ich mittels Auswahl zu dem Monat wird er mir nicht zentriert angezeigt. Reicht es wenn ich den Bereich weiter rechts angebe (Unterhalb der Zelle wo der Monatsname drin steht hab ich die Tage von 1 bis 31 eingetragen)? Oder gibt es eine elegantere Lösung zu dem was ich gebastelt hab?
Gruß
Dietz

Anzeige
AW: ComboBox in Zelle springen
23.09.2015 14:32:37
Rudi
Hallo,
da die Spalten gleichmäßig verteilt sind: 
Private Sub ComboBox21_Change()
if combobox21.listindex > -1 then
application.goto cells(5, combobox1.listindex * 31 + 21), true
end if
End Sub
Gruß
Rudi

AW: ComboBox in Zelle springen
23.09.2015 14:38:31
Dietz
Danke Rudi,
funktioniert ganz gut. Kriege ich es irgendwie hin das die Zelle nicht ausgewählt wird? Ist nur rein optisch?
Gruß
Dietz

AW: ComboBox in Zelle springen
23.09.2015 15:00:58
Rudi
Hallo,
geht auch. 
Private Sub ComboBox21_Change()
If combobox21.ListIndex > -1 Then
ActiveWindow.ScrollColumn = combobox1.ListIndex * 31 + 21
End If
End Sub
Evtl an der 21 feintunen.
Gruß
Rudi

Anzeige
AW: ComboBox in Zelle springen
23.09.2015 15:27:15
Dietz
Danke Rudi!

AW: ComboBox in Zelle springen
23.09.2015 14:48:34
matthias
Das Makro sieht doch schon gut aus, wenn du allerdings den Bildschirm verschieben willst, nicht die Zellmarkierung, verwende statt Range("U5").Select lieber: 
ActiveWindow.ScrollColumn = 21
Nach dem "=" steht die Spaltenzahl, welche ganz links am Bildschirm noch angezeigt wird.
Für Spalte NG z.B. wüsste ich diese nicht auswendig, dafür kannst du aber in der Spalte die Formel "=Spalte()" eingeben und erhältst diese.
lg Matthias

AW: ComboBox in Zelle springen
23.09.2015 15:10:15
Dietz
Vielen Dank,
so ist es viel besser!
Gruß
Dietz

314 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox UserForm

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
16
4
5
3
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2