Probleme With
03.06.2006 20:46:20
Reinhard
die beiden Codes unterscheiden sich nur in einer Zeile. Bei "tt2" kommt in der5t-letzten Zeile die Kompilierungsfehlermeldung zu ComboBox1 "Methode oder datenobjekt nicht gefunden". Die Hilfe dazu hilft mir nicht weiter, sehe da keinen Schreibfehler.
Kann mir jemand helfen?
Option Explicit
Sub tt()
Dim ws1 As Worksheet, ws2 As Worksheet
Application.ScreenUpdating = False
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
With <b>Worksheets("Tabelle1")</b>
ws2.Activate
ws2.UsedRange.Clear
.Rows(1).Copy
ws2.Range("A1").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.ComboBox1.ListFillRange = ws2.Name & "!$A$1:" & ws2.Cells(ws2.Range("A65536").End(xlUp).Row, 1).Address
.Activate
End With
Application.ScreenUpdating = True
End Sub
Sub tt2()
Dim ws1 As Worksheet, ws2 As Worksheet
Application.ScreenUpdating = False
Set ws1 = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")
With <b>ws1</b>
ws2.Activate
ws2.UsedRange.Clear
.Rows(1).Copy
ws2.Range("A1").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.ComboBox1.ListFillRange = ws2.Name & "!$A$1:" & ws2.Cells(ws2.Range("A65536").End(xlUp).Row, 1).Address
.Activate
End With
Application.ScreenUpdating = True
End Sub
Gruß und schöne Pfingsten *wünsch*
Reinhard