Combo Box
22.03.2006 09:10:00
Ivana
habe mal ne kurze Frage:
ich hatte kürzlich - auch mit eurer Hilfe - eine Combo Box in eine meiner Dateien eingebaut, die mir die Monate Januar bis März zur Verfügung stellt. je nach Auswahl, wollte ich, dass die Tabelle für den jeweiligen Monat erscheint. Zunächst waren die Tabellen untereinander und das Makro lautete wie folgt
Private Sub AuswahlMonat_Change()
For I = 3 To ActiveSheet.UsedRange.Rows.Count
If Cells(I, 1) = AuswahlMonat.Value Then
Cells(I, 1).Select
Exit For
End If
Next I
If I = 1 + ActiveSheet.UsedRange.Rows.Count Then
MsgBox "Für Monat " & AuswahlMonat.Value & " gibt es noch keine Daten"
End If
End Sub
Nun sind die Tabellen horizontal angeordnet und es müssten statt den zeilen die Spalten durchsucht werden. Leider kriege ich die Umstellung des Befehls alleine nicht gebacken. Kann mir jemand helfen!
Vielen Dank!
Ivana
Anzeige