AW: Benötige Makro für letzte Spalte
02.02.2006 19:05:50
ChrisL
Hallo Erich
https://www.herber.de/bbs/user/30602.xls
Private Sub ComboBox1_Change()
Call WerteUpdaten
End Sub
Private Sub Worksheet_Activate()
Dim CB As ComboBox
Dim WS1 As Worksheet, WS2 As Worksheet
Set CB = ComboBox1
Set WS1 = Worksheets("Tabelle1")
Set WS2 = ActiveSheet
Application.ScreenUpdating = False
CB.ListFillRange = WS1.Name & "!A2:A" & WS1.Range("A65536").End(xlUp).Row
WS1.Range("B1:IV1").Copy
WS2.Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Call WerteUpdaten
End Sub
Private Sub WerteUpdaten()
Dim CB As ComboBox
Dim WS1 As Worksheet, WS2 As Worksheet
Set CB = ComboBox1
Set WS1 = Worksheets("Tabelle1")
Set WS2 = ActiveSheet
Application.ScreenUpdating = False
WS1.Range(WS1.Cells(CB.ListIndex + 2, 2), WS1.Cells(CB.ListIndex + 2, 256)).Copy
WS2.Range("B5").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
WS2.Range("A1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Viel Spass
Chris