Hallo ihr Lieben, ich habe eine blöde Frage:
Ich möchte gerne mehrere Zellen verbinden. Der "erste Wert", also so gesehen der "von" Wert ist auch klar, jedoch der zweite also der "bis" Wert ist Variabel.
Im Grunde habe ich zwei Comboboxen... in der ersten kann ein Wert angegeben werden und in der zweiten auch. Beide Werte weden dann subtrahiert und das Ergebnis ist dann quasi die Spaltenlänge, die zusammen geführt werden soll.
Hier mal mein bisheriger Code:
Private Sub CmAnwenden_Click()
Dim Zeit1 As Integer
Dim Zeit2 As Integer
Dim Diff As Integer
With Me
Zeit1 = .CbUhrzeitEnde.Value
Zeit2 = .CbUhrzeitAnfang.Value
Diff = Zeit1 - Zeit2
End With
Eintrag = "Uhrzeit Anfang:" + CbUhrzeitAnfang + " " + CbUhrzeitEnde
With Me
If .CbUhrzeitAnfang = "8" Then
Worksheets("Tabelle1").Range("A1" & Diff&).MergeCells = True
End If
End With
End Sub
Private Sub UserForm_Initialize()
With Me.CbUhrzeitAnfang
.AddItem "8"
.AddItem "9"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
.AddItem "16"
.AddItem "17"
.AddItem "18"
.AddItem "19"
End With
With Me.CbUhrzeitEnde
.AddItem "9"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
.AddItem "16"
.AddItem "17"
.AddItem "18"
.AddItem "19"
.AddItem "20"
End With
End Sub
Ich hoffe, dass das etwas verständlich ist und ggf. aus dem Code sonst hervorgeht...
Also zusammenfassend ist es einfach so, dass ich nicht weiß, wie man im Range Bereich eine Variable definiert.
Vielleicht hat jemand eine Idee oder eine schnelle Antwort/Link oder Ähnliches :)
Vielen lieben Dank schon mal an euch :)
|