Liebe VBA Forums Mitglieder,
ich bin sehr neu im Thema VBA / Makros, daher hoffe ich dass mir Fehler / falsche Bezeichnungen nachgesehen werden. :)
Ich versuche mich aktuell an einem Code für eine Auswertung die Werte (Spalte C) basierend auf der Stückzahl (Spalte D) in der entsprechenden Anzahl an Zeilen wiedergibt. Soweit funktioniert das auch, sofern alle Zeilen eine Stückzahl haben. Allerdings wird es in der "fertigen" Datei auch Zeilen ohne Mengenangabe geben. Daher möchte ich dem Code einen Zusatz einfügen der besagt wenn in Spalte D eine Zeile leer ist dann überspringe diese und fahre mit der nächsten Zeile fort.
Leider finde ich auch nach meheren Stunden Onlinesuche nichts was passt und in meinem aktuellen Code funktioniert.
Der Code sieht zur Zeit wie folgt aus:
Sub RepeatData()
'Repeat Rows
Dim use_range As Range
Dim input_range As Range, output_range As Range
On Error Resume Next
xTitleId = "Repeat Rows in Excel"
Set input_range = Application.Selection
Set input_range = Application.InputBox("Range :", xTitleId, input_range.Address, Type:=8)
Set output_range = Application.InputBox("Output to (single cell):", xTitleId, Type:=8)
Set output_range = output_range.Range("A1")
For Each use_range In input_range.Rows
y_value = use_range.Range("A1").Value
w_num = use_range.Range("B1").Value
output_range.Resize(w_num, 1).Value = y_value
Set output_range = output_range.Offset(w_num, 0)
Next
End Sub
Vielen Dank schon mal vorab!
|