Makro nicht mehr von ComboBox,sonder aus Zelle :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Makro nicht mehr von ComboBox,sonder aus Zelle

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

silex1
User mit gefährlichem Halbwissen

Anmeldedatum: 18.12.2007
Beiträge: 122
Wohnort: Dresden

Verfasst am: 13.02.2008, 17:49

Hallo Schatzi, hallo liebe Gemeinde,

Private Sub WocheLaden_Change(ByVal Target As Range)
Dim objEingabe As Worksheet, objDaten As Worksheet
Dim lngR As Long, intC As Integer, lngEingabe As Long

Set objEingabe = Sheets("Eingabe") 'Eingabetabelle
Set objDaten = Sheets("Alle_Wochen") 'Datentabelle

If ComboBox1.ListIndex <> -1 Then
lngR = ComboBox1.ListIndex + 2 'Zeile im Blatt Alle_Wochen
For intC = 1 To 91
Select Case intC
...
...

so geht mein Makro los, wenn Daten geladen werden sollen.
Jetzt wollte ich es, da einfacherere Bedienung, das bei Änderung in "Eingabe" B7, das Makro gleich ausgeführt wird-ohne Umweg ComboBox. Wie ist der korrekte Anfang, da B7 ja im Blatt "Alle_Wochen" gesucht werden muß ab A2. Über die Form funzt´s ja schon.

Hier Cod der Form.
Private Sub UserForm_Activate()
With Sheets("Alle_Wochen")
ComboBox1.List = .Range("A2:A" & Application.Max(1, .Cells(Rows.Count, 1).End(xlUp).Row)).Value
End With
End Sub

Danke, silex1

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 13.02.2008, 18:06

Hallo!

Ich habe deine Tabelle jetzt nicht mehr im Kopf, aber ich versuch's trotzdem mal:
Um ein Makro durch eine Zelländerung zu starten, brauchst du ein Worksheet_Change()-Ereignis.
Rechtsklicke dazu den Tabellenreiter von "Eingabe" und wähle "Code anzeigen".
Über die beiden ComboBoxen über dem Codefenster kannst du "Worksheet" und "Change" einstellen und erhältst einen Coderumpf.
Nun musst du Excel noch mitteilen, um welche Zelle es sich handelt.
Das Ergebnis könnte z.B. so aussehen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Verlasse den Code, wenn die geänderte Zelle nicht B7 ist:
If Target.Address <> "$B$7" Then Exit Sub
'
'Dein Code
'
End Sub

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

silex1
User mit gefährlichem Halbwissen

Anmeldedatum: 18.12.2007
Beiträge: 122
Wohnort: Dresden

Verfasst am: 13.02.2008, 18:50

Hallo Schatzi,

danke für die Erläuterung. Anbei noch mal die Mappe, da evtl besser zu verstehen.

mein Gedanke war, wie auch umgesetzt, statt Datum eingeben, dieses über ne Liste schon zu haben. Funzt.

Nun wollte ich, dass bei Änderung der Woche/Datum (B7) über diese Liste, sich auch die gespeicherten Daten der Woche laden. So wie halt über den Button "Woche laden".

So fallen einige Bedienungs-Schritte weg!

LG silex1

Mappe_2.xls

Beschreibung:

Download

Dateiname:

Mappe_2.xls

Dateigröße:

68 KB

Heruntergeladen:

25 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 13.02.2008, 19:05

Hallo!

Wenn ich es recht verstehe, dann liegt es nur an der Definition von lngR.

Code:

lngR = ComboBox1.ListIndex + 1

Hier wird lngR der ListIndex zugewiesen.
Das muss geändert werden, indem du die Zeile in Blatt "Alle_Wochen" suchst in der das Datum aus B7 steht.
Das geht entweder über Formel
=VERGLEICH(Eingabe!B7;Alle_Wochen!A:A;0)
oder in VBA
Sheets("Alle_Wochen").Columns(1).Find(Sheets("Eingabe").Range("B7")).Row

(beide Vorschläge ungetestet...)

silex1
User mit gefährlichem Halbwissen

Anmeldedatum: 18.12.2007
Beiträge: 122
Wohnort: Dresden

Verfasst am: 13.02.2008, 19:15

Danke dir Schatzi,

das fehlte mit (VBA).

Geh jetzt mal bastel und würde dir Morgen Rückmeldung geben.

LG silex1

silex1
User mit gefährlichem Halbwissen

Anmeldedatum: 18.12.2007
Beiträge: 122
Wohnort: Dresden

Verfasst am: 14.02.2008, 14:05

Hallo Schatzi,

jetzt funzt´s. Hab zwar einige Stunden benötigt, aber jetz ist´s hübsch so.

Danke von mir und meinen 3 Gehirnzellen, Lg silex1

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Excel rechnet nicht immer richtig	gausle	Microsoft Excel Hilfe	1	08.01.2009, 19:29
	Termine anlegen nicht mehr möglich !	s0ul	Microsoft Outlook Hilfe	1	08.01.2009, 09:13
	Excel 2003 eine Zelle keine Berechnung	Schiffhexler	Microsoft Excel Hilfe	5	06.01.2009, 14:02
	Kapitel wird nicht an Seitenbeginn ge...	benu	Microsoft Word Hilfe	0	03.01.2009, 13:54
	Excel Tabelle! Register nicht Sichtbar?	koni22	Microsoft Access Hilfe	0	03.01.2009, 11:12

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de