Range an Array, bearbeiten und zurück
08.07.2021 20:32:53
Peter
Mit nachfolgendem Code stelle ich sicher, dass alle Zellinhalte Strings sind. Abgefüllt werden manchmal Zahlen - beim Verlassen der Tabelle erfolgt die Umwandlung.
Damit nicht Zelle für Zeile des einspaltigen Zellbereichs Range("_AKONTO_NR") abgearbeitet werden muss (es kann sich um viele Einträge handeln), möchte ich gerne die Werte dieses Bereichs einer Array-Variable übergeben, dann die Werte dort bearbeiten und anschliessend wieder in den Range("_AKONTO_NR") zurückschreiben.
Kann mir jemand helfen, den Code zu schreiben. Ich nehme an, dass ich Anfang eine Variable definieren muss, jedoch ohne Angabe des Datentyps, da dieser ja, soweit es nicht schon Strings sind, die Zahlen in Strings umwandeln soll. Aber wie das dann weiter geht?
Dim arr()
arr = Range("_AKONTO_NR").Value
...
Danke für Hinweise.
Gruss, Peter
Aktueller Code:
Private Sub Worksheet_Deactivate()
Dim rCell As Range, wksMe As Worksheet, wksTarget As Worksheet
Set wksMe = Me
Set wksTarget = ActiveSheet
'' Zellinhalt -> jeweils lauter Zahlen, teilweise als Zahl, teilweise als String - alle Zellinhalte müssen in Strings umgewandelt werden.
For Each rCell In wksMe.Range("_AKONTO_NR")
If Not rCell.Value = "" Then
rCell.Value = "'" & rCell.Value
Else
End If
Next
End Sub