Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox Einträge nach oben bzw unter verschieben

Combobox Einträge nach oben bzw unter verschieben
Rolf
Hallo Forum
ich habe ein Userform1 mit Combobox1 und ein "Verschiebeproblem"
Nun habe ich zufällig unter
http://www.bernd-augustin.de/ Excel AddIns Punkt 40
was mit Comboboxen in einer Menüleiste gefunden.
Dort kann man jeden beliebigen Eintrag der 4 Comboboxen
per Button nach oben oder unten verschieben.
Leider kann man den Code nicht einsehen.
Genau so etwas möchte ich für meine Combobox1 auf dem Userform1
realisieren. Leider finde ich keine "Verschiebebefehle" in der VBA Hilfe.
Vielleicht weis von Euch wer wiedies zu machen ist.
Gruß Rolf

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Combobox Einträge nach oben bzw unter verschieben
Martin
Hallo Rolf
studier dir mal diesen Code hier:

Sub EintragNachOben()
Dim Tag As Integer
Dim i As Integer
Dim strZeile As String
Tag = CommandBars("Datenleiste4").Controls("Bearbeitungsauswahl").Tag
strZeile = Application.CommandBars("Datenleiste4").Controls(1 + Tag).Text
i = Application.CommandBars("Datenleiste4").Controls(1 + Tag).ListIndex
If strZeile = "" Then
MsgBox "Es gibt nichts zu verschieben!" & Chr(10) & "Das Kombinationsfeld " & Tag / 4 + 1 & " " & Tag & " ist leer!"
Exit Sub
End If
If Application.CommandBars("Datenleiste4").Controls(1 + Tag).ListIndex = 1 Then
MsgBox "Der Eintrag befindet sich schon ganz am Anfang!"
Exit Sub
End If
Application.CommandBars("Datenleiste4").Controls(1 + Tag).RemoveItem (i)
Application.CommandBars("Datenleiste4").Controls(1 + Tag).AddItem strZeile, i - 1
Application.CommandBars("Datenleiste4").Controls(1 + Tag).ListIndex = i - 1
End Sub

Grüße
Martin
Anzeige
AW: Combobox Einträge nach oben bzw unter verschieben
02.05.2004 21:51:33
Rolf
Danke Martin.
Soweit ganz toll. Nun muß ich es nur noch umbauen auf mein Userform.
Gruß Rolf

302 Forumthreads zu ähnlichen Themen

formatierte Zelle automatisch nach unten schieben
oblivion

Hallo, ich habe eine Frage zu Zellen.
Ich habe sagen wir in L2-L14 Namen stehen. Die Zellen habe ich mit einem Rahmen formatiert. Jetzt kann es aber passieren, dass ich in L15 die Liste weiterführen muss, da ein neuer Name dazugekommen ist. Gibt es eine einfache Möglichkeit, das, wenn ich i...
20.08.2008 17:36:09
Thread-ID: 1003263
5 Beiträge
Anzeige
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
Zeile automatisch 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,...
03.12.2008 08:43:00
Thread-ID: 1029673
5 Beiträge
Anzeige
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Werte in einer Zeile nach links verschieben
Sebastian

hallo forumsbesucher,
da sich meine excel kenntnisse leider sehr in grenzen halten, hoffe ich hier auf eure hilfe.
ich habe in einer excel mappe bestimmte zahlen in viele zellen geschrieben, die sich alle in einer zeile befinden. nun muss ich die ganzen zahlen in den jeweiligen zellen u...
02.06.2009 11:57:03
Thread-ID: 1078584
3 Beiträge
Zeilen nach oben verschieben
Josef_T

Hallo zusammen,
habe wieder ein Problem, dass ich nicht gelöst bekomme und deshalb Hilfe von Experten
benötige.
Mein Prob, habe ich hier näher beschrieben: https://www.herber.de/bbs/user/63496.xls
Danke
Gruß Josef
28.07.2009 19:13:39
Thread-ID: 1092043
9 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:13:37
Thread-ID: 1097497
19 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:14:06
Thread-ID: 1097498
2 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
4
2
4
4
2
2
2
8
18
1
4
2
2
2
5
2
1
4
2
2
4
3
3
1
2