AW: zellbereich mit zellkommentaren kopieren
10.06.2009 19:38:17
Gerd
Hallo!
Private Sub ComboBox1_Change()
Dim wksquelle As Worksheet, wksziel As Worksheet, bereich As Range
Dim leistung As String, zell As Range
Dim leistungvorhanden As Boolean
Application.ScreenUpdating = False
leistungvorhanden = False
Set wksquelle = ThisWorkbook.Worksheets("Daten Tabelle IEC")
Set wksziel = ThisWorkbook.Worksheets("Tabelle IEC")
With wksziel
voltzahl = .Range("L53").Value
leistung = .Range("H2").Value
Set bereich = wksquelle.Range("H" & 2 + voltzahl & ":AZ" & 2 + voltzahl)
For Each rng In bereich
If rng.Value = leistung Then
'wksquelle.Activate
wksquelle.Range(wksquelle.Cells(10 + voltzahl, rng.Column), _
wksquelle.Cells(56 + voltzahl, rng.Column)).Copy _
Destination:=.Range("H10")
'wksquelle.Range("A1").Select
'wksziel.Activate
'.Range("H10").Select
'ActiveSheet.Paste
'Application.CutCopyMode = False
leistungvorhanden = True
Exit For
End If
Next
'wksziel.Range("H10").Select
Application.CutCopyMode = True
End With
Application.ScreenUpdating = True
If Not leistungvorhanden Then
MsgBox "Die angegebene Leistung ist für diesen Spannungsbereich nicht vorhanden! Bitte wä _
hlen sie eine andere Spannung oder Leistung!"
End If
End Sub
Gruß Gerd