vba poblem
12.03.2004 14:53:03
Hans
wer kann mir hier helfen? unten seht ihr den code meiner combobox. diese funktioniert auch einwandfrei, aber wie kann ich in der von mir mit fragezeichen markierten zeile einen befehl einfügen, der auf die zelle K1 zugreift? "range("K1").select" funktioniert einfach nicht.
Private Sub ComboBox1_Change()
If ComboBox1.Value = ActiveSheet.Name Then
MsgBox "Mappe kann nicht verschoben werden"
Exit Sub
Else:
Sheets(ComboBox1.Value).Move Before:=Workbooks("Mappe1").Sheets("Tabelle1")
ActiveCell.FormulaR1C1 = "1"
Windows("Rechnungen2.xls").Activate
For i = 1 To ActiveWorkbook.Worksheets.Count
ComboBox1.AddItem (Worksheets(i).Name)
Next i
End If
End Sub
grüße hans
Anzeige