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

Eintrag immer an das Ende stellen

Forumthread: Eintrag immer an das Ende stellen

Eintrag immer an das Ende stellen
23.01.2005 13:28:25
Wilfried
Hallo Sepp,
wie kann man erreichen das der erste Ausgewählt Eintrag z.B. an G10 steht oder an einer anderen Stelle?
Nur mal zum wissen. Gibt es sowas wie ein Zufallsgenerator, dass man aus alle Adresse eine oder mehrer auswählen kann.
Das war das letzte mal das ich genervt habe,
Wilfried
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eintrag immer an das Ende stellen
23.01.2005 13:36:15
Josef
Hallo Wilfried!
Nachfragen bitte das nächste mal im selben Thread Posten! ;-)
Du willst die Auswahl aus der Combo in eine zufällige Zelle schreiben?
Wenn ja, über alle Zellen oder in einem eingeschränkten Bereich?
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Eintrag immer an das Ende stellen
23.01.2005 13:50:09
Wilfried
Hallo Sepp,
also, die erste Auswahl soll in G10 stehen, die zweite in G12 usw.
Wenn man hinter dem ---.Row + 2 schreibt, dann übersringt er zwar eine Zeile, soweit OK aber nach löschen der Einträge aus der Liste fängt die neue Auswahl immer unterhalb der Liste an und nicht wieder in den gelöschten Zellen.( G10,G12,etc) Ich hoffe ich habe es richtig beschrieben.
Gruß Wilfried
Anzeige
AW: Eintrag immer an das Ende stellen
23.01.2005 13:54:50
Josef
Hallo Wilfried!
Ganz klar ist das noch nicht!
Beispiel:
Einträge in G10, G12, G14, G16
G10 und G12 werden gelöscht. (inhalte - nicht Zeile)
Neue Einträge zuerst in G10, dann in G12 und anschliesen bei G18 fortsetzen.
Meinst du das so?
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Eintrag immer an das Ende stellen
23.01.2005 14:05:16
Wilfried
Hallo Sepp,
genau so,es werden immer die Inhalte gelöscht damit sie für nächte Auswahl wieder frei sind. Das mit ans Ende der Liste hat nur verwirrt.
Wilfried
AW: Eintrag immer an das Ende stellen
23.01.2005 14:11:55
Josef
Hallo Wilfried!
Ungetestet, sollte aber klappen!

Private Sub ComboBox1_Change()
Dim lastRow As Long, lRow As Long
lastRow = Cells(65536, 7).End(xlUp).Row + 2
If lastRow < 10 Then lastRow = 10
For lRow = 10 To lastRow Step 2
If Cells(lRow, 7) = "" Then
Cells(lRow, 7) = ComboBox1
Cells(lRow, 8) = Application.Evaluate("=VLOOKUP(" & Cells(lRow, 7).Address & _
",Tabelle1!C1:D6,2,FALSE)")
'                                     Tabelle1!C1:D6 - anpassen!
Exit Sub
End If
Next
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Eintrag immer an das Ende stellen
23.01.2005 14:33:07
Wilfried
Hallo Sepp,
unglaublich, aber so habe ich mir das gedacht.
Nochmals Danke
Wilfried
P.S. machst du noch was anderes außer VBA !!!!
AW: Eintrag immer an das Ende stellen
25.01.2005 19:55:32
Wilfried
Hallo Sepp,
ich nochmal Wilfried.
In dem letzten Listig von Dir stehen die Strassen in Spalte G(Combobox)und die Kilometer in Spalte H. Wie kann man nun erreichen das die Combobox mit den Kilometern gefüllt werden, ader weiterhin in Spalte H stehen und die Strassen in Spalte G eingetragen werden. Das mit den eintragen der Kilometer in Spalte H habe ich schon hinbekommen nur das mit den Strassen in Spalte G klappt nicht.
vielen Dank im voraus
Wilfried
Anzeige
AW: Eintrag immer an das Ende stellen
26.01.2005 17:10:54
Josef
Hallo Wilfried!
Wie füllst du deine Combo?
Mit SVERWEIS() kann man in dem Fall nicht arbeiten, weil der ja nur nach
rechts funktioniert!
Ich würde die Combo zweispaltig machen und Strasse und Kilometer aufnehmen.
Die Spalte mit den Strassen kann man ausblenden und nur die KM
anzeigen (TextColumn = 2 und BoundColumn = 2).
Dann kannst du in Spalte "H" die Kilometer schreiben mit "= ComboBox1",
und in Splte "G" die Strasse mit "= ComboBox1.List(ComboBox1.Listindex, 0)"
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Eintrag immer an das Ende stellen
26.01.2005 20:11:30
Wilfried
Hallo Sepp,
Danke für Deine schnelle Antwort.
Muß das ganze Makro erneuert werden oder muß nur ab "VLOOKUP" ergänzt werden?
Wilfried
AW: Eintrag immer an das Ende stellen
26.01.2005 21:37:50
Josef
Hallo Wilfried!
Nur anpassen

Private Sub ComboBox1_Change()
Dim lastRow As Long, lRow As Long
lastRow = Cells(65536, 7).End(xlUp).Row + 2
If lastRow < 10 Then lastRow = 10
For lRow = 10 To lastRow Step 2
If Cells(lRow, 7) = "" Then
Cells(lRow, 7) = ComboBox1.List(ComboBox1.Listindex, 0)
Cells(lRow, 8) = ComboBox1
Exit Sub
End If
Next
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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