Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile ohne Wert überspringen aber Code fortsetzen
20.08.2022 19:17:35 Nini
Solved
20.08.2022 20:05:30 xlKing
NotSolved
20.08.2022 20:29:50 Gast52449
NotSolved

Ansicht des Beitrags:
Von:
Nini
Datum:
20.08.2022 19:17:35
Views:
354
Rating: Antwort:
 Nein
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!


Ihre Antwort
  • 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: Name: Email:

 
 

  • 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
Rot Zeile ohne Wert überspringen aber Code fortsetzen
20.08.2022 19:17:35 Nini
Solved
20.08.2022 20:05:30 xlKing
NotSolved
20.08.2022 20:29:50 Gast52449
NotSolved