Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Macro kürzen

Forumthread: Macro kürzen

Macro kürzen
26.02.2006 00:02:18
Rene
Moin zusammen,
Könnte mir jemand sagen wie ich diesen Code:

Sub Test()
Range("B16").Formula = "=IF(Teilnehmer!A16="""","""",If(Teilnehmer!G16=""Y1"",Teilnehmer!A16,""""))"
Range("C16").Formula = "=IF(Teilnehmer!B16="""","""",If(Teilnehmer!G16=""Y1"",Teilnehmer!B16,""""))"
Range("D16").Formula = "=IF(Teilnehmer!C16="""","""",If(Teilnehmer!G16=""Y1"",Teilnehmer!C16,""""))"
Range("E16").Formula = "=IF(Teilnehmer!D16="""","""",If(Teilnehmer!G16=""Y1"",Teilnehmer!D16,""""))"
Range("F16").Formula = "=IF(Teilnehmer!E16="""","""",If(Teilnehmer!G16=""Y1"",Teilnehmer!H16,""""))"
End Sub

kürzer bekomme? Da dieses für eine Zeile ist und ich das ganze aber für 50 Zeilen bräuchte wäre es doch eine ganz schöne Arbeit.
Für Hilfe wäre ich sehr dankbar.
Gruß Rene
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Macro kürzen
26.02.2006 00:16:33
K.Rola
Hallo,
den Bereich musst du anpassen.
Option Explicit

Sub Test()
[B16].Formula = "=IF(Teilnehmer!A16="""","""",If(Teilnehmer!$G$16=""Y1"",Teilnehmer!A16,""""))"
[B16].AutoFill Destination:=[B16:z16], Type:=0
End Sub

Gruß K.Rola
AW: Macro kürzen
26.02.2006 00:17:10
MichaV
Hallo,

Sub bla()
Range("B16:Z16").Formula = "=IF(Teilnehmer!A16="""","""",If(Teilnehmer!$G$16=""Y1"",Teilnehmer!A16,""""))"
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Macro kürzen
26.02.2006 00:50:08
Rene
Hi,
Danke für die Antwort,würde es noch eine Lösung geben wenn ich das ganze bis Zeile 65 brauch,oder muß ich das ganze einzeln eintragen?
Gruß Rene
AW: Macro kürzen
26.02.2006 00:53:26
MichaV
Hallo,
mal ausprobiert?

Sub bla()
Range("B16:Z65").Formula = "=IF(Teilnehmer!A16="""","""",If(Teilnehmer!$G$16=""Y1"",Teilnehmer!A16,""""))"
End Sub

Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Macro kürzen
26.02.2006 01:00:55
Rene
Hi Micha,
Danke dir.Und wenn man es sich ansieht doch so einfach.
Na nun klappt es aber.
Gruß Rene
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum