In einem Textfeld werden Zeilennummern eingegeben die durch
Komma oder Semikolon getrennt werdenn z.B. ("1, 4, 7").
Jetzt möchte ich jeweils die Zeile 1, 4, 7 makieren und diesen dann kopieren.
Wie könnte das gehen?
Private Sub TextBox1_LostFocus()
Dim rngC As Range, arrRows, i As Long
If TextBox1 "" Then
arrRows = Split(TextBox1, ",")
Set rngC = Rows(arrRows(0))
Set rngC = Rows(arrRows(i))
For i = 1 To UBound(arrRows)
Set rngC = Union(rngC, Rows(arrRows(i)))
Next
rngC.Copy 'wohin?
End If
End Sub
If TextBox1 "" Then
arrRows = Split(TextBox1, ",")
Set rngC = wksInput.Rows(arrRows(0))
For i = 1 To UBound(arrRows)
Set rngC = Union(rngC, wksInput.Rows(arrRows(i)))
Next
rngC.Copy
MySheet.Cells(7 + delta, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If