Thema Datum  Von Nutzer Rating
Antwort
Rot Leere Zeilen überspringen
 10.11.2020 12:02:34 Luca
NotSolved
10.11.2020 12:15:31 Mase
NotSolved
10.11.2020 12:23:00 Mase
NotSolved
10.11.2020 12:28:25 volti
NotSolved
10.11.2020 12:34:10 Mase
NotSolved
10.11.2020 12:42:22 volti
NotSolved
10.11.2020 12:47:33 Mase
NotSolved
10.11.2020 13:11:52 volti
NotSolved
10.11.2020 12:24:46 volti
NotSolved
10.11.2020 13:28:02 Luca
NotSolved
10.11.2020 14:20:37 volti
*****
Solved
10.11.2020 14:39:44 Luca
NotSolved
10.11.2020 17:33:47 Gast32038
NotSolved
10.11.2020 18:45:50 Mase
NotSolved
10.11.2020 12:37:38 Gast87108
NotSolved

Ansicht des Beitrags:
Von:
Luca		 Datum:
10.11.2020 12:02:34		 Views:
1840		 Rating:
     
Antwort:
  Ja
Thema:
Leere Zeilen überspringen

Guten Tag

Ich muss für eine Firma wo ich arbeite ein Excel Script machen um gewisse Dinge zu vereinfachen. Leider gibt es da einige Probleme. Das grösste und letzte Problem ist die Split Function. Das System gibt mir leider das Datum und die Zeit einer Lieferung in einer Spalte. Mit der Split Function kann ich das trennen. Jedoch hat das System seine Fehler und befüllt teilweise eine Zeile nicht. Sobald dann ein Feld leer ist, hört die Split Function automatisch auf. Wie kann ich das lösen, dass sie das Feld einfach ignoriert? 
Im ersten Beispiel habe ich versucht die leeren Zeilen zu füllen jedoch ohne Erfolg. Der zweite Code ist die Split Function die ich nutze.

Code 1

Sub FillEmptyFields()

Dim ws As Worksheet
Dim rng As Range

Set ws = Worksheets("Tabelle1")

For Each rng In ws.Range("N2:N4145")
    If IsEmpty(rng) Then
        rng.Value = "-"
    End If
    Next

Application.Wait (Now + TimeValue("00:00:02"))

End Sub

Code 2

Sub LieferungerfasstT()

    Dim werte() As String
    Dim zeile As Integer
    Dim i As Integer
    zeile = 1

Columns("O:P").Insert
Application.Wait (Now + TimeValue("00:00:02"))

    Range("N:N").EntireColumn.Select
    Do While Worksheets("Tabelle1").Cells(zeile, 14).Value <> ""
    werte = Split(Worksheets("Tabelle1").Cells(zeile, 14).Value, "T")
    For i = 0 To UBound(werte)
            Worksheets("Tabelle1").Cells(zeile, i + 14).Value = werte(i)
            Next i
            zeile = zeile + 1
        Loop
    
Application.Wait (Now + TimeValue("00:00:02"))

End Sub

 

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 Leere Zeilen überspringen
 10.11.2020 12:02:34 Luca
NotSolved
10.11.2020 12:15:31 Mase
NotSolved
10.11.2020 12:23:00 Mase
NotSolved
10.11.2020 12:28:25 volti
NotSolved
10.11.2020 12:34:10 Mase
NotSolved
10.11.2020 12:42:22 volti
NotSolved
10.11.2020 12:47:33 Mase
NotSolved
10.11.2020 13:11:52 volti
NotSolved
10.11.2020 12:24:46 volti
NotSolved
10.11.2020 13:28:02 Luca
NotSolved
10.11.2020 14:20:37 volti
*****
Solved
10.11.2020 14:39:44 Luca
NotSolved
10.11.2020 17:33:47 Gast32038
NotSolved
10.11.2020 18:45:50 Mase
NotSolved
10.11.2020 12:37:38 Gast87108
NotSolved