Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
632to636
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
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kalenderelement und Kombobox zusammen?

Kalenderelement und Kombobox zusammen?
04.07.2005 22:02:53
seb_reib@yahoo.de
Hallöle, ich hatte schonmal Hilfe bekommen, ich habe aber noch ein weiteres Problemchen...
Hätte da noch eine Frage, in einem Tabellenblatt habe ich in Zeile 1 [B1:O1] Themen eingetragen, beliebiger Text..
In Spalte A (ab A2) stehen Datumsangaben vom 1.1.05 bis 31.12.05
Auf meiner Userform habe ich eine Kombobox, die mir die Einträge (Text) von dieser Tabelle [B1:O1] in einer schönen Auswahlliste anzeigt (soweit hab ich es selbst hinbekommen)..
Nur jetzt möchte ich in diesem tabellenblatt folgendes machen...
Jetzt möchte ich mit der Combobox und einem Kalender-Element (auf einer userform) in diesem Tabellenblatt, das jeweilige Datum (aus Calendar1) mit der Auswahl (aus Combobox1) die entsprechende Zelle anwählen lassen....
Die auswahl, bei klicken auf das calendar-element, haut gut hin, dank eines Helfers hier...
Hab jetzt ne Weile mit den Offset Befehlen gearbeitet, aber dauernd nen Laufzeitfehler...
Ich krieg heute nix zusammen und seh den wald vor lauter Bäumen nicht...

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalenderelement und Kombobox zusammen?
05.07.2005 08:14:00
seb_reib@yahoo.de
Nunja...
So sieht der Code bisher aus...

Private Sub Calendar1_Click()
Sheets("Werte").Select
Dim c As Range
Set c = Worksheets("Werte").Range("A:A").Find(Calendar1.Value)
If Not c Is Nothing Then c.Select
End Sub


Private Sub ComboBox1_Change()
Sheets("Werte").Select
Dim d As Range
Set d = Worksheets("Werte").Range("B1:O1").Find(ComboBox1.Value)
If Not d Is Nothing Then d.Select
End Sub

Einzeln für sich funktionieren die genauso wie se sollen.
Wenn ich im Kalenderelement ein datum wähle, sucht und markiert er dieses aus Spalte A
Meine Auswahl aus der Combobox sucht er auch in Zeile 1 und selektiert diese....
Wie kann ich jetzt beide Funktionen verknüpfen, damit ich die resultierende Zelle aus beiden Funktionen bekomme....
z.B. Datum (Zelle A20), Thema (Zelle D1)... resultierende Zelle im Raster, die ich möchte: D20.....
Wie verbinde ich dieses? Kann auch sein, das mit diesen beiden funktionen das nicht geht, die in einen code von combobox1 zu schreiben.. das er die value aus calendar1 und die change von combobox1 nimmt..
Kann mir da einer helfen?
Anzeige
AW: Kalenderelement und Kombobox zusammen?
05.07.2005 11:37:01
MichaV
Hallo
für ComboBox1: If Not d Is Nothing Then Cells(ActiveCell.Row, d.Column).Select
für Calendar: If Not d Is Nothing Then Cells(d.Row, ActiveCell.Column).Select
Gruß- Micha
PS: ist die ganz einfache Variante ohne Abfragen der bisherigen Cursorposition und Wert des anderen Steuerelementes. Wenn Du das auch willst, wirds ein bischen komplexer. Aber vielleicht reicht Dir das ja schon.
AW: Kalenderelement und Kombobox zusammen?
05.07.2005 16:33:53
seb_reib@yahoo.de
Jaaa, genau das isses, vielen dank, hab noch kurz was angeglichen, dann gings....
Vielen Dank nochmal an alle Helfenden...
Greetz Sebastian

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige