with auslagern
04.03.2016 21:01:01
Thomas
um bei änderungen arbeit zu sparen habe ich mir die frage gestellt kann man so eine with ( es sind in wirklichkeit vielmehr zeilen)
With ListView2
.ListItems.Clear
If Not rng Is Nothing Then
For Each rng In rng.Rows
.ListItems.Add , , oWS1.Cells(rng.Row, 1)
.ListItems(.ListItems.Count).SubItems(1) = oWS1.Cells(rng.Row, 2).Text
.ListItems(.ListItems.Count).SubItems(2) = oWS1.Cells(rng.Row, 3).Text
.ListItems(.ListItems.Count).SubItems(3) = oWS1.Cells(rng.Row, 4).Text
.ListItems(.ListItems.Count).SubItems(4) = oWS1.Cells(rng.Row, 5)
Next rng
End If
End With
in eine variable oder funktion oder so auslagern?
sagen wir mal diese with steht in der variable "füllen"
das ich dann schreiben könnte
z.B
Set rng = Sheets("profile").Range("A1:m100")
füllen
end sub
komische frage aber vieleicht geht es ja.
Ich weiss das man dieses beispiel in einer schleife darstellen könnte aber ich würde in diesem fall gern auf schleifen verzichten um flexibler auf veränderungen formate unsw reagieren zu können. Ich würde aber auch gern bei veränderungen nur eine stelle zum ändern haben wollen.
wäre super wenn so etwas gehen würde.
besten dank schon mal für euer interesse
liebe grüsse thomas