Problem
19.06.2006 08:38:54
Heinz
ich habe folgendes Makro:
Option Explicit
Private Sub ComboBox1_Click()
With ComboBox1
If .ListIndex > -1 Then
Sheets(.Text).Range("B4:K28").Copy
Me.Range(CStr(.List(.ListIndex, 1))).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Me.Range(CStr(.List(.ListIndex, 1))).Select
End If
End With
End Sub
Private Sub Worksheet_Activate()
Dim varR() As Variant
Dim intC As Integer
varR = Array("B4", "B4", "B4", "B4", "B4")
With ComboBox1
.ColumnCount = 2
.ColumnWidths = "100;0"
.Clear
For intC = 0 To 11
.AddItem Format(DateSerial(1, intC + 1, 1), "mmmm")
.List(.ListCount - 1, 1) = varR(intC)
Next
End With
End Sub
Mein Problem ist jetzt ich möchte das selbe Makro in eine andere Datei haben, blöde ist nur er gibt mir jetzt immer die Monate Januar bis Dezember in meine Kombinationsfeld (Hatte das nämlich so in meiner anderen Datei). Jetzt habe ich aber Tabellen Blätter MO, DI, MI, DO, FR, SA wo genau ist der bereich den ich jetzt ändern muss ?
Gruß
Heinz
Anzeige