combo box
10.08.2006 15:38:42
Thomas
ich habe noch folgendes Problem mit einer combobox:
Ich wähle via combobox verscheidene Baugrößen aus. Dabei wird aus einem Bereich die entsprechneden Daten kopiert und in meinem Zielbereich eingefügt.
Dabei hab ich noch ein Problem mit meinem Zielbereich. Wenn ich rngTargetkühlen=worksheets(3).range("R68") funktioniert es eigentlich. In dem worksheet steht dann jedoch ein #, da ich eine geringe Spaltenbreite habe. Diese soll aber beibehalten werden. Wenn ich in Excel die Zellen nun verbinde funktioniert es nicht mehr.
Weiß jemand wie ich das lösen kann?
nachfolgend noch mein bisheriger Code
Private Sub Baugröße_Change()
'Auswahl der Baugröße
Dim rngTargetkühlen As Range
Dim rngTargetheizen As Range
Dim Baugröße As Variant
Set rngTargetkühlen = Worksheets(3).Range("R68:R70")
Set rngTargetheizen = Worksheets(3).Range("AP68:AP70")
If Me.Baugröße.TextLength = 10 Then
Baugröße = Me.Baugröße.Value
Select Case Baugröße
Case "Caloris H1": Worksheets(1).Range("V7:V9").Copy rngTargetkühlen: Worksheets(1).Range("V10:V12").Copy rngTargetheizen
Case "Caloris H2": Worksheets(1).Range("Z7:Z9").Copy rngTargetkühlen: Worksheets(1).Range("Z10:Z12").Copy rngTargetheizen
Case "Caloris H3": Worksheets(1).Range("AD7:AD9").Copy rngTargetkühlen: Worksheets(1).Range("AD10:AD12").Copy rngTargetheizen
Case "Caloris H4": Worksheets(1).Range("AH7:AH9").Copy rngTargetkühlen: Worksheets(1).Range("AH10:AH12").Copy rngTargetheizen
End Select
End If
End Sub
Besten Dank
Viele Grüße
Thomas L
Anzeige