Warum löscht mein Makro keine Zeilen

19.04.2025 22:00:52

Christian

Hallo,

ich bitte um Hilfe, hier meine Datei:
https://www.herber.de/bbs/user/177107.xlsm

warum löscht mein makro keine Zeilen, Zeile 3 oder 4 z.b. erfüllt doch die Bedingung dass in Spalte T eine 0 stehen muss und in Spalte V entweder Fernsehserie oder Miniserie, damit die Zeile gelöscht wird.

Danke Christian

AW: Warum löscht mein Makro keine Zeilen

19.04.2025 22:31:51

Onur

Weisst du nicht, was UCASE bedeutet ????

AW: Warum löscht mein Makro keine Zeilen

19.04.2025 22:46:55

BoskoBiati

Hi,

mit UCase wandelst Du den Begriff in Großbuchstaben um. "Fernsehserie" wird dann nicht mehr gefunden!

Case "FERNSEHSERIE", "MINISERIE"

Gruß

Edgar

AW: Warum löscht mein Makro keine Zeilen

20.04.2025 22:24:24

Christian

Hallo Edgar,

sorry habe gestern abend, als ich selbst auf die Lösung gekommen war, noch kurz Onur geschrieben und dann bis jetzt nicht mehr am Laptop gesessen.
Erstmal vielen Dank

Gestern Abend hatte ich folgendes gemacht:

    For zeile = 2 To lastRowQuelle

        Dim wertT As Variant, wertV As String

        wertT = wsQuelle.Cells(zeile, 20).Value ' Spalte T

        wertV = Trim(UCase(wsQuelle.Cells(zeile, 22).Value)) ' Spalte V



        ' Nur kopieren, wenn NICHT T = 0 UND (V = Fernsehserie ODER Miniserie)

        If Not (wertT = 0 And (wertV = "FERNSEHSERIE" Or wertV = "MINISERIE")) Then

            wsZiel.Range("A" & zielZeile & ":V" & zielZeile).Value = wsQuelle.Range("A" & zeile & ":V" & zeile).Value

            zielZeile = zielZeile + 1

        End If

    Next zeile

was dann auch funktioniert hatte.

Wenn ich da jetzt aber das U weglasse, sagt Excel mir Fehler beim Komprimieren, Erwartet Ausdruck.

AW: Warum löscht mein Makro keine Zeilen

20.04.2025 14:04:13

Piet

Hallo

und frohe Ostern. Du kannst UCase auch ganz weglassen. Da steht doch "Fernsehserie" und "Miniserie" als Text!

mfg Piet

AW: Freut mich das es jetzt klappt, frohe Ostern .... oWt

21.04.2025 00:55:57

Piet

...

AW: Freut mich das es jetzt klappt, frohe Ostern .... oWt

21.04.2025 08:50:36

Christian

frohe Ostern wünsche ich dir und den anderen Forumsteilnehmern auch

Danke

AW: Warum löscht mein Makro keine Zeilen

20.04.2025 14:08:01

Onur

Warte aber nicht auf eine Antwort - er hat es ja nicht mal nötig, sich zu bedanken !
Frohe Ostern, Piet !

AW: Warum löscht mein Makro keine Zeilen

20.04.2025 22:38:58

Christian

Hallo Onur,

deine Antwort Gern geschehen ! lese ich erst jetzt, habe nach meiner Rückmeldung gestern den Laptop ausgemacht und ihn jetzt erst wieder angemacht, war den ganzen Tag unterwegs und eingeladen. Deshalb konnte ich mich dafür auch noch nicht bedanken.

Um ehrlich zu sein, ich finde es nicht sehr nett, dass du mir hier gegenüber Piet solche Vorwürfe machst. Nicht jeder hat am Ostersonntag Zeit, einen Beitrag den ganzen Tag weiterzuverfolgen, für den es bereits eine funktionierende Lösung gibt. Ich kann es ja nachvollziehen, dass die Helfer hier eine zeitnahe Rückmeldung und auch einen Dank erwarten, aber das ist keine Rechtfertigung dafür, mir gegenüber Piet solche Vorwürfe zu machen. Ich bitte, dich, das in Zukunft zu unterlassen.

Nochmal zu deinem ersten Beitrag zu diesem Thema, ja ich habe zum ersten mal mit UCase gearbeitet und bin an dieser Stelle nicht weitergekommen. Warum muss man mir daraus solche Vorwürfe machen? (Die Art und Weise wie du es ausgedrückt hast, ist mir ebenfalls wie ein Vorwurf vorgekommen).

Gruß
Christian

AW: Warum löscht mein Makro keine Zeilen

20.04.2025 22:28:43

Christian

Hallo Piet,

sorry habe gestern abend, als ich selbst auf die Lösung gekommen war, noch kurz Onur geschrieben und dann bis jetzt nicht mehr am Laptop gesessen.
Erstmal vielen Dank

Gestern Abend hatte ich folgendes gemacht:

    For zeile = 2 To lastRowQuelle

        Dim wertT As Variant, wertV As String

        wertT = wsQuelle.Cells(zeile, 20).Value ' Spalte T

        wertV = Trim(UCase(wsQuelle.Cells(zeile, 22).Value)) ' Spalte V



        ' Nur kopieren, wenn NICHT T = 0 UND (V = Fernsehserie ODER Miniserie)

        If Not (wertT = 0 And (wertV = "FERNSEHSERIE" Or wertV = "MINISERIE")) Then

            wsZiel.Range("A" & zielZeile & ":V" & zielZeile).Value = wsQuelle.Range("A" & zeile & ":V" & zeile).Value

            zielZeile = zielZeile + 1

        End If

    Next zeile

was dann auch funktioniert hatte.

Wenn ich jetzt das UCase ganz weg lasse, gebe ich dir recht, funktioniert es ebenfalls.

Gruß
Christian

AW: Warum löscht mein Makro keine Zeilen

19.04.2025 22:32:52

Christian

ich habs gerade rausgefunden, ich muss die Begriffe in Großbuchstaben schreiben

AW: Warum löscht mein Makro keine Zeilen

19.04.2025 22:33:20

Christian

wenn ich Ucase nutze

AW: Warum löscht mein Makro keine Zeilen

19.04.2025 22:37:26

Onur

Gern geschehen !

Warum löscht mein Makro keine Zeilen

Forumthread: Warum löscht mein Makro keine Zeilen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Warum löscht mein Makro keine Zeilen

Forumthread: Warum löscht mein Makro keine Zeilen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread