|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Zeile ohne Wert überspringen aber Code fortsetzen |
20.08.2022 19:17:35 |
Nini |
|
|
|
20.08.2022 20:05:30 |
xlKing |
|
|
|
20.08.2022 20:29:50 |
Gast52449 |
|
|
Von:
Nini |
Datum:
20.08.2022 19:17:35 |
Views:
1951 |
Rating:
|
Antwort:
|
Thema:
Zeile ohne Wert überspringen aber Code fortsetzen |
|
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!
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Zeile ohne Wert überspringen aber Code fortsetzen |
20.08.2022 19:17:35 |
Nini |
|
|
|
20.08.2022 20:05:30 |
xlKing |
|
|
|
20.08.2022 20:29:50 |
Gast52449 |
|
|