Loop bei erster leerer Zelle beenden und...
26.01.2017 21:10:41
Mike
ich bin neu hier und hoffe, Ihr könnt mir weiterhelfen.
Ich möchte mittels Makro die Werte aus Spalte A (Anzahl variabel) durch Kommas und Klammern ergänzen.
Mein Code funktioniert soweit, ich suche jedoch noch nach einer Lösung für folgende Punkte:
1) Die Werte werden hier manuall in Spalte A eingefügt und enthalten keine leeren Zellen, d.h. die erste leere Zelle bedeutet das Ende der Liste.
Wie kann ich vorgeben, dass der Loop bei der ersten leeren Zelle stoppt, damit nicht immer die ganze Spalte durchsucht wird ?
2) Wie kann ich das Komma nach dem letzten Wert in meiner Liste entfernen (alle anderen Kommas sollen bleiben) ?
3) Wie kann ich anschließend feststellen, ob die Anzahl der Werte (varRowCount) ein Vielfaches von 1000 ist, also z.B. 2000, 3000 etc. ?
Mein Code:
Option Explicit
Private Sub test()
Dim cell As Range
Dim varIdList As String
Dim varRange As Range
Dim varRowCount As Integer
Set varRange = Range("A:A")
varRowCount = 0
varIdList = "(" & vbCrLf
Range("C1").Value = ""
For Each cell In varRange
If cell.Value "" Then
varIdList = varIdList & cell.Value & "," & vbCrLf
varRowCount = varRowCount + 1
End If
Next
varIdList = varIdList & ")"
Range("C1").Value = varRowCount
MsgBox (varIdList)
End Sub
Vielen Dank im Voraus für Eure Hilfe,
Mike