Thema Datum  Von Nutzer Rating
Antwort
Rot Makro nur bis bestimmter Wert in Zelle ausführen
01.07.2021 13:31:25 Lukas Schwanz
NotSolved
01.07.2021 19:51:06 Gast78921
NotSolved
01.07.2021 20:08:22 Gast34498
NotSolved
02.07.2021 08:53:31 Gast91952
NotSolved
02.07.2021 13:37:17 Gast60790
NotSolved
02.07.2021 14:21:53 Lukas Schwanz
NotSolved
02.07.2021 15:21:02 Gast69038
NotSolved
03.07.2021 12:23:36 Lukas Schwanz
NotSolved
03.07.2021 22:13:43 Gast93186
NotSolved
06.07.2021 09:40:14 Lukas Schwanz
NotSolved
07.07.2021 09:32:51 Gast9064
NotSolved
07.07.2021 09:44:08 Gast31074
NotSolved
07.07.2021 09:44:59 Gast91455
NotSolved
07.07.2021 21:22:17 Gast74934
NotSolved
01.07.2021 23:17:46 Gast65029
NotSolved

Ansicht des Beitrags:
Von:
Lukas Schwanz
Datum:
01.07.2021 13:31:25
Views:
109
Rating: Antwort:
  Ja
Thema:
Makro nur bis bestimmter Wert in Zelle ausführen

Hallo liebe VBA-Community,

ich bin noch ziemlich neu in der VBA-Programmierung und verusche Maschinen-Protokolle zu analysieren. Ich habe schon ein Makro gebaut, was aus einem Ordner alle maschinell erzeugten CSV-Dateien in Excel importiert. Des Weiteren habe ich schon ein Makro gebaut, welches alle Zeilen, die in der "H-Spalte" ein "PASS" haben löscht, da mich nur die FAILS interresieren.

Nun zur meiner Frage: Manche Zeilen haben in ihrer H-Zelle weder Pass noch Fail, sodass ich mir wieder ein Makro programmiert habe, dass alle Zeilen wo nichts steht löscht. Leider löscht es mir damit auch die Seriennumer und das Endresultat. Mein Makro's "lösche-leer" und "lösche_pass" dürften quasi nur ausgeführt werden, wenn in der A-Zelle der jeweiligen Spalten ein "ANL" steht, ansonsten nicht.

Hier der entsprechende VBA-Code:

Sub Lösche_PASS()

Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
    sh.Activate
   
        Dim rng As Range
        Dim i As Integer, counter As Integer
        Set rng = Range("H4:H5000")
        i = 1
        For counter = 1 To rng.Rows.Count
            If rng.Cells(i) = "PASS" Then
               rng.Cells(i).EntireRow.Delete
            Else
                i = i + 1
            End If
        Next
Next

End Sub
Sub Lösche_Leer()

Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
    sh.Activate
   
        Dim rng As Range
        Dim i As Integer, counter As Integer
        Set rng = Range("H4:H100")
        i = 1
        For counter = 1 To rng.Rows.Count
            If rng.Cells(i) = "" Then
               rng.Cells(i).EntireRow.Delete
            Else
                i = i + 1
            End If
        Next
Next

End Sub

Ich hoffe jemand kann mir helfen.

 

Viele Grüße Lukas


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 Makro nur bis bestimmter Wert in Zelle ausführen
01.07.2021 13:31:25 Lukas Schwanz
NotSolved
01.07.2021 19:51:06 Gast78921
NotSolved
01.07.2021 20:08:22 Gast34498
NotSolved
02.07.2021 08:53:31 Gast91952
NotSolved
02.07.2021 13:37:17 Gast60790
NotSolved
02.07.2021 14:21:53 Lukas Schwanz
NotSolved
02.07.2021 15:21:02 Gast69038
NotSolved
03.07.2021 12:23:36 Lukas Schwanz
NotSolved
03.07.2021 22:13:43 Gast93186
NotSolved
06.07.2021 09:40:14 Lukas Schwanz
NotSolved
07.07.2021 09:32:51 Gast9064
NotSolved
07.07.2021 09:44:08 Gast31074
NotSolved
07.07.2021 09:44:59 Gast91455
NotSolved
07.07.2021 21:22:17 Gast74934
NotSolved
01.07.2021 23:17:46 Gast65029
NotSolved