Macro erweitern

Forumthread: Macro erweitern

Macro erweitern

05.05.2025 13:14:20

NicoHendrik

Hallo,

ich habe hier eine Tabelle, die ich mit einen Macro zum Teil ausfülle.
Wenn ein Name drinsteht, werden D bis L ausgefüllt.
Der Macro wird für den Name gesperrt wenn er schon mal ausgeführt wurde.
Wenn der Name gelöscht wird, werden D bis L gelöscht.
Der Macro geht nur bis Nr. 3. Die Funktion des Macros ist so richtig.
Wenn ich aber den Macro bis Name 40 erweitere, wird sie unendlich lang.

Bestimmt gibt es da eine bessere Lösung.

Dank im Voraus

Nico

https://www.herber.de/bbs/user/177339.xlsm

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Macro erweitern

05.05.2025 13:30:36

{Boris}
AW: Macro erweitern

05.05.2025 17:42:23

NicoHendrik
AW: Macro erweitern

05.05.2025 13:56:18

peter
AW: Macro erweitern

05.05.2025 14:21:28

NicoHendrik
AW: Macro erweitern

05.05.2025 17:07:39

NicoHendrik
AW: Macro erweitern

05.05.2025 17:22:12

peter
Meinst du das...

05.05.2025 14:08:02

Case
Vielleicht besser...

05.05.2025 14:27:26

Case
AW: Vielleicht besser...

05.05.2025 16:51:57

NicoHendrik
Wird in deiner...

05.05.2025 17:46:00

Case

AW: Macro erweitern

05.05.2025 13:30:36

{Boris}

Hi,

beschreibe doch mal mit Worten, was Du genau vorhast.

VG, Boris

AW: Macro erweitern

05.05.2025 17:42:23

NicoHendrik

Steht alles drin. Alle andere haben es verstanden

AW: Macro erweitern

05.05.2025 13:56:18

peter

Hallo



Sub Makro1()

    For i = 6 To 45  ' Zeilen durchsuchen

        If Range("C" & i) = "" Then

            Range("C" & i).Resize(, 11).Value = ""  ' alle 11 Spalten löschen

        Else

            If Range("M" & i) > 1 Then

                Range("D" & i).Resize(, 9).Value = 2 ' 9 Spalten ab D mit 2 auffüllen

                Range("M" & i).Value = 1



            End If

        End If

    Next

End Sub

Peter

AW: Macro erweitern

05.05.2025 14:21:28

NicoHendrik

Danke Peter,

absolut Spitze.

Gruß Nico

AW: Macro erweitern

05.05.2025 17:07:39

NicoHendrik

Hallo Peter,

dein Code funktioniert nur ist er sehr langsam wenn die Tabelle 370 Row`s hat

Gruß Nico

AW: Macro erweitern

05.05.2025 17:22:12

peter

Hallo

Bei mir dauert es 0,1 Sekunden bei einer Schleife von 6 bis 445 bzw. 0,6 Sekunden bei einer Schleife von 6 bis 4445. Hast Du das Makro geändert? Gibt es weiter Formeln ?

Mfg.
Peter

Meinst du das...

05.05.2025 14:08:02

Case

Moin Nico, :-)

... so: ;-)
https://www.herber.de/bbs/user/177341.xlsb

Servus
Case

Vielleicht besser...

05.05.2025 14:27:26

Case

Moin Nico, :-)

... so - da geht es automatisch beim Namen eintragen oder löschen (auch Mehrere): ;-)
https://www.herber.de/bbs/user/177342.xlsb

Servus
Case

AW: Vielleicht besser...

05.05.2025 16:51:57

NicoHendrik

Hallo Case,

der Erste gefällt mir besser, da ich ihn mit einen Button auslösen kann falls gewünscht.
Leider ist er sehr langsam bei eine grosse Tabelle mit 370 Row`s

Gruß Nico

Wird in deiner...

05.05.2025 17:46:00

Case

Moin Nico, :-)

... Originaldatei durch die Änderung vielleicht ein "Private Sub Worksheet_Change(ByVal Target As Range)" aufgerufen - falls du sowas drin hast? ;-)

Das könnte eine Bremse sein. Oder viele Formeln - die dann immer neu berechnet werden?

Servus
Case

Forumthread: Macro erweitern

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread