Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte löschen in 30 TABS's, per Schleife

Forumthread: Werte löschen in 30 TABS's, per Schleife

Werte löschen in 30 TABS's, per Schleife
15.01.2015 12:39:20
Dieter(Drummer)
Guten Tag, Makro Spezialisten,
ich möchte in den 30 TAB's "VeraBsV01)und den TAB's "VeraV02" bis "VeraV30" Werte löschen. Die zu löschenden Werte sind in allen TAB's in den gleichen Zelladressen.
Bisher rufe ich im Makro jeden TAB einzeln auf und lösche die Werte in der Tabelle und dies dann 30 mal.
Mein bisheriger Code ist:
  • 'Jahresaltwerte löschen
    Sub MgJahrWertRaus()
    Application.ScreenUpdating = False
    Windows("RabVeraMg.xls").Activate
    'VeraBsV01
    Sheets("VeraBsV01").Select
    Application.xlAutomatic = False 'Berechnungsautomatic aus
    'Löschen Altwerte
    Range( _
    "B16:B45,B49:B77,B81:B111,B115:B145,B148:B178,B182:B212,B215:B245,B249:B279,B283:B312,B316:B346,B350:B380,B383:B413" _
    ).Select
    Selection.ClearContents
    Range("A2").Select
    'VeraV02
    Sheets("VeraV02").Select
    Application.xlAutomatic = False 'Berechnungsautomatic aus
    Range( _
    "B16:B45,B49:B77,B81:B111,B115:B145,B148:B178,B182:B212,B215:B245,B249:B279,B283:B312,B316:B346,B350:B380,B383:B413" _
    ).Select
    Selection.ClearContents
    Range("A2").Select

    • usw. bis "VeraV30".
    Kann man das nicht per Schleife durch alle 30 TAB's machen, da ja alle zu löschenden Werte in jedem Tab, in der gleichen Zelladresse gelöchet werden sollen?
    Wäre schön, wenn mir da geholfen werden kann.
    Gruß,
    Dieter(Drummer)

    Anzeige

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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Werte löschen in 30 TABS's, per Schleife
    15.01.2015 12:43:07
    Rudi
    Hallo,
    Ohne Select!!!
    Schema: 
    for i=2 to 30
Sheets("verav" &Format(i,"00").Range(....).clearcontents
nexti

    Gruß
    Rudi

    AW: Sehe ich das richtig, dass
    15.01.2015 12:57:12
    Dieter(Drummer)
    Danke Rudi für Deine Rückmeldung.
    An welcher Stelle des Makros muss ich den Deine Angaben einfügen, da ja die erste Tabelle "VeraBsV01" heißt und dann erst die nächsten Tabellen "VeraV02" bis "VeraV30"?
    Gruß, Dieter(Drummer)

    Anzeige
    AW: Sehe ich das richtig, dass
    15.01.2015 13:12:40
    Rudi
    Hallo,
    nach dem Löschen in VeraBSV01. 
    Sub MgJahrWertRaus()
Dim i As Integer
Const sRange As String = _
"B16:B45,B49:B77,B81:B111,B115:B145,B148:B178,B182:B212," _
& "B215:B245,B249:B279,B283:B312,B316:B346,B350:B380,B383:B413"
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Workbooks("RabVeraMg.xls")
.Sheets("VeraBsV01").Range(sRange).ClearContents
For i = 2 To 30
.Sheets("VeraV" & Format(i, "00")).Range(sRange).ClearContents
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub

    Gruß
    Rudi

    Anzeige
    AW: Danke Rudi, einfach perfekt!
    15.01.2015 13:22:38
    Dieter(Drummner)
    Gruß, Dieter(Drummer)

    AW: @Rudi: Makro hängt bei ...
    15.01.2015 14:58:32
    Dieter(Drummer)
    Hallo Rudi,
    dieses Makro rufe ich auf und dann bleibt es bei:
    .Sheets("VeraBsV01").Range(sRange).ClearContents
    leider hängen mit Markierung gelb.
    Du siehst, dass ich die zu löschenden Zellen erweitert habe, aber da wird es wohl nicht dran liegen.
    Die Datei "RabVeraMg.xls" ist geladen.
    Hier das gesamte Makro:
  • 
Sub MgJahrWertRaus()
Dim i As Integer
Const sRange As String = _
"B16:B45,B49:B77,B81:B111,B115:B145,B148:B178,B182:B212," _
& "B215:B245,B249:B279,B283:B312,B316:B346,B350:B380,B383:B413," _
& "D16:D45,D49:D77,D81:D111,D115:D145,D148:D178,D182:D212," _
& "D215:D245,D249:D279,D283:D312,D316:D346,D350:D380,D383:D413," _
& "F16:F45,F49:F77,F81:F111,F115:F145,F148:F178,F182:F212," _
& "F215:F245,F249:F279,F283:F312,F316:F346,F350:F380,F383:F413," _
& "H16:H45,H49:H77,H81:H111,H115:H145,H148:H178,H182:H212," _
& "H215:H245,H249:H279,H283:H312,H316:H346,H350:H380,H383:H413," _
& "J16:J45,J49:J77,J81:J111,J115:J145,J148:J178,J182:J212," _
& "J215:J245,J249:J279,J283:J312,J316:J346,J350:J380,J383:J413," _
& "L16:L45,L49:L77,L81:L111,L115:L145,L148:L178,L182:L212," _
& "L215:L245,L249:L279,L283:L312,L316:L346,L350:L380,L383:L413"
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Workbooks("RabVeraMg.xls")
.Sheets("VeraBsV01").Range(sRange).ClearContents
For i = 2 To 30
.Sheets("VeraV" & Format(i, "00")).Range(sRange).ClearContents
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub

    • Wäre schön wenn Du nochmal helfen kannst.
    Gruß, Dieter(Drummer)

    Anzeige
    AW: Zuviele zu löschende Zellen?
    15.01.2015 18:16:01
    Dieter(Drummer)
    Hi Spezialisten,
    Dieses Makro läuft ohne Probleme und es werden Zellen nur in B und D gelöscht:
  • 
Sub MgJahrWertRaus()
Dim i As Integer
Const sRange As String = _
"B16:B45,B49:B77,B81:B111,B115:B145,B148:B178,B182:B212," _
& "B215:B245,B249:B279,B283:B312,B316:B346,B350:B380,B383:B413," _
& "D16:D45,D49:D77,D81:D111,D115:D145,D148:D178,D182:D212," _
& "D215:D245,D249:D279,D283:D312,D316:D346,D350:D380,D383:D413"
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Workbooks("RabVeraMg.xls")
.Sheets("VeraBsV01").Range(sRange).ClearContents
For i = 2 To 30
.Sheets("VeraV" & Format(i, "00")).Range(sRange).ClearContents
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub

    • Wenn ich diese Variante laufen lasse, bleibt das Makro hängen (fette Zeile):
  • 
Sub MgJahrWertRaus()
Dim i As Integer
Const sRange As String = _
"B16:B45,B49:B77,B81:B111,B115:B145,B148:B178,B182:B212," _
& "B215:B245,B249:B279,B283:B312,B316:B346,B350:B380,B383:B413," _
& "D16:D45,D49:D77,D81:D111,D115:D145,D148:D178,D182:D212," _
& "D215:D245,D249:D279,D283:D312,D316:D346,D350:D380,D383:D413," _
& "F16:F45,F49:77,F81:F111,F115:F145,F148:F178,F182:F212," _
& "F215:F245,F249:F279,F283:F312,F316:F346,F350:F380,F383:F413"
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Workbooks("RabVeraMg.xls")
.Sheets("VeraBsV01").Range(sRange).ClearContents
For i = 2 To 30
.Sheets("VeraV" & Format(i, "00")).Range(sRange).ClearContents
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub

    • Was ist da falsch?
    Mit der Bitte um weitere Hilfe.
    Gruß, Dieter(Drummer)

    Anzeige
    AW: Zuviele zu löschende Zellen?
    15.01.2015 18:45:53
    Rudi
    Hallo,
    das sind wohl zu viele Bereiche. 
    Sub MgJahrWertRaus()
Dim i As Integer, j As Integer
Const sRange As String = _
"B16:B45,B49:B77,B81:B111,B115:B145,B148:B178,B182:B212," _
& "B215:B245,B249:B279,B283:B312,B316:B346,B350:B380,B383:B413"
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Workbooks("RabVeraMg.xls")
.Sheets("VeraBsV01").Range(sRange).ClearContents
For i = 2 To 30
For j = 0 To 4 Step 2
.Sheets("VeraV" & Format(i, "00")).Range(sRange).Offset(, j).ClearContents
Next j
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub

    Gruß
    Rudi

    Anzeige
    AW: Danke Rudi, das hab ich mir ...
    15.01.2015 18:53:43
    Dieter(Drummer)
    schon gedacht.
    Ich nehme halt mehrere Makros, die jeweils nur 2 Spaltenbereiche löschen, so muss ich halt drei Makros nehmen, um insgesamt 6 Spaltenbereiche zu löschen.
    Schade, aber da kann man wohl nichts machen.
    Danke und Gruß,
    Dieter(Drummer)

    AW: Danke Rudi, das hab ich mir ...
    15.01.2015 19:00:56
    Rudi
    Hallo,
    man kann schon was machen.
    Eine Lösung für B, D, F hab ich dir ja geschickt.
    Gruß
    Rudi

    Anzeige
    AW: Rudi, hab's jetzt so gelöst und es geht
    15.01.2015 19:07:36
    Dieter/Drummer)
    Danke Rudi, da komm ich schon mit klar.
    Gruß, Dieter(Drummer)
    'von Rudi Maintaire am 15.01.2015 13:12:40
'MgV01 Jahresaltwerte löschen
Sub MgJahrWertRaus1()
Dim i As Integer
Const sRange As String = _
"B16:B45,B49:B77,B81:B111,B115:B145,B148:B178,B182:B212," _
& "B215:B245,B249:B279,B283:B312,B316:B346,B350:B380,B383:B413," _
& "D16:D45,D49:D77,D81:D111,D115:D145,D148:D178,D182:D212," _
& "D215:D245,D249:D279,D283:D312,D316:D346,D350:D380,D383:D413"
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Workbooks("RabVeraMg.xls")
.Sheets("VeraBsV01").Range(sRange).ClearContents
For i = 2 To 30
.Sheets("VeraV" & Format(i, "00")).Range(sRange).ClearContents
Next i
End With
'Application.Calculation = xlCalculationAutomatic
Call MgJahrWertRaus2
End Sub
Sub MgJahrWertRaus2()
Dim i As Integer
Const sRange As String = _
"F16:F45,F49:F77,F81:F111,F115:F145,F148:F178,F182:F212," _
& "F215:F245,F249:F279,F283:F312,F316:F346,F350:F380,F383:F413," _
& "H16:H45,H49:H77,H81:H111,H115:H145,H148:H178,H182:H212," _
& "H215:H245,H249:H279,H283:H312,H316:H346,H350:H380,H383:H413"
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Workbooks("RabVeraMg.xls")
.Sheets("VeraBsV01").Range(sRange).ClearContents
For i = 2 To 30
.Sheets("VeraV" & Format(i, "00")).Range(sRange).ClearContents
Next i
End With
'Application.Calculation = xlCalculationAutomatic
Call MgJahrWertRaus3
End Sub
Sub MgJahrWertRaus3()
Dim i As Integer
Const sRange As String = _
"J16:J45,J49:J77,J81:J111,J115:J145,J148:J178,J182:J212," _
& "J215:J245,J249:J279,J283:J312,J316:J346,J350:J380,J383:J413," _
& "L16:L45,L49:L77,L81:L111,L115:L145,L148:L178,L182:L212," _
& "L215:L245,L249:L279,L283:L312,L316:L346,L350:L380,L383:L413"
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Workbooks("RabVeraMg.xls")
.Sheets("VeraBsV01").Range(sRange).ClearContents
For i = 2 To 30
.Sheets("VeraV" & Format(i, "00")).Range(sRange).ClearContents
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub

    Anzeige
    AW: Rudi, hab's jetzt so gelöst und es geht
    15.01.2015 19:22:44
    Rudi
    Hallo,
    da die Bereiche alle nebeneinande liegen, musst du nur meinen letzen Code nehmen und die Schleife in
    For j=0 to 8 Step 2
    ändern.
    Dann brauchst du nur 1 Code.
    Gruß
    Rudi

    AW: Rudi, mit der Umsetzung bin ich ...
    15.01.2015 20:20:46
    Dieter(Drummer
    leider überfordert. Da reicht mein Wissenstand nicht.
    Wäre natürlich toll, wenn Du das noch für mich einbauen könntest.
    Gruß, Dieter(Drummer)
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    Aus Schleife wenn Zelle einen Rahmen hat???
    TOM

    Guten Morgen zusammen
    Ich habs probiert aber irgendwie habe ich noch einen Denkfehler oder was auch immer......grrrrrrr!?
    Möchte gerne eine Do Schlaufe die durchläuft bis die Aktive Zelle unten einen Rahmen hat.
    Do While ActiveCell.Borders(xlEdgeBottom).LineStyle = xlContinuous
    ...
    27.08.2008 11:12:00
    Thread-ID: 1005013
    3 Beiträge
    eine Schleife in Webabfrage
    mehmet

    Hallo Forum,
    ich habe mit dem Macrorecorder Webabfrage aufgezeichnet.
    Diese habe ich ergänst mit der URL Adresse und Zellinhalte.
    Hier die Aufzeichnung bzw. überarbeitete Version:
    Sub TAF1() derLink = "http://www.dieseite.de/main. _ htm?tp=sa&flag=" Sheets("Tabelle1").Sele...
    29.08.2008 09:30:05
    Thread-ID: 1005675
    2 Beiträge
    Schleife um ein Makro bauen
    Matthias

    Hallo zusammen,
    ich habe folgendes Makro, das per vlookup auf ein zweites Tabellenblatt greift:
    Sub importSortKey() Range("A2").select ActiveCell.FormulaR1C1 = _ "=IF(RC[1]="""","""",VLOOKUP(RC[1],Sortierschlüssel!C:C[1],2))" End Sub
    Zur Formel: RC[1] = Zelle B2;
    Ich würde d...
    01.10.2008 11:26:00
    Thread-ID: 1013562
    7 Beiträge
    Anzeige
    Variable in Forschleife
    Jens

    Hallo Ihr,
    ich habe folgendes Problem:
    Ich habe 9 Variablen definiert und diese sind mit Werten belegt. Jetzt möchte ich diese innerhalb einer Schleife einzelnen Zellen zuweisen. Geht das?
    Beispiel für 3 Variablen:
    Dim var1 As Integer
    Dim var2 As Integer
    Dim var3 As Inte...
    08.10.2008 13:49:00
    Thread-ID: 1015052
    5 Beiträge
    Schleife einbauen und variabler Tabellenname
    Markus

    Hallo zusammen,
    nach langer Suche bin ich auf folgendes funkionierendes Makro gestoßen. Diese Makro möchte ich gerne ein wenig anpassen und dazu brauche ichEure Hilfe!
    Sub PDF_Druck() Dim strAktuellerDrucker As String strAktuellerDrucker = Application.ActivePrinter Worksheets("Tabelle...
    16.10.2008 19:25:00
    Thread-ID: 1016959
    3 Beiträge
    Makro - einfache VBA Schleife für Excel
    pc-doc@k-u-p.de

    Hallo VBA MAkro Profis,
    programmiere fast nie in VBA mehr Web js, php/mysql,
    und brauche eine einfache VBA Schleife für Excel:
    Ich möchte in mehreren Registerblättern einer Arbeitsmappe in der
    Spalte D Zeile für Zeile checken ob
    ein Wert in der Zelle steht
    und wenn...
    20.10.2008 11:51:00
    Thread-ID: 1017619
    8 Beiträge
    Schleife in Formel
    Jochen

    Hallo,
    kann ich mit einer Formel eine Schleife laufen lassen?
    Meine Tabelle sieht etwa so aus:
    Pos. Stückzahl
    1 10
    2 15
    3
    4 2
    5 3
    6
    7
    8 10
    9 11
    10
    11
    12 12
    Meinergeb...
    11.11.2008 14:25:00
    Thread-ID: 1023549
    9 Beiträge
    VBA Code: wenn B1 <> blank, dann I in A1 schreiben
    maxx_1985

    Hi mit'nander
    Braeuchte einen kleine Code dafuer:
    wenn B1 blank, dann schreibe ein I in A1.
    kann mir vielleicht jemand helfen? :-)
    vielen vielen dank
    denis
    18.11.2008 16:27:16
    Thread-ID: 1025694
    5 Beiträge
    Gesamtwert in Zell über Multiplikationsschleife...
    Jessi

    Hallo zusammen,
    habe wieder mal eine Frage:
    Ich habe eine Tabelle in der Spalte X und Y, ab der Zeile 5 Werte multipliziert werden und die Zeilen
    5 bis einschließlich 88 und anschließend ab Zeile 160 bis einschließlich die Zeile 182 aufsummiert werden. Wie bekomme ich das am geschic...
    10.12.2008 14:51:00
    Thread-ID: 1031705
    4 Beiträge
    Mittelwerte bilden in Schleifen
    WMüller

    Hallo zusammen,
    ich habe das Archiv durchgesehen, konnte jedoch leider keine passende Lösung für mein Problem finden. Da ich ein Anfänger im Umgang mit VBA bin, würde ich mich über ein Feedback sehr freuen. Ich denke, dass Problem ist eigentlich nicht zu schwierig, ich habe "lediglich" Prob...
    14.01.2009 15:01:21
    Thread-ID: 1039672
    6 Beiträge
    Schleife integer
    Michael

    Hallo!
    Wenn in der Zelle E3:E40 ein Wert auftaucht der nicht einer Zahl entspricht, soll Ändern erscheinen.
    Gruß Michael
    28.01.2009 18:01:18
    Thread-ID: 1044658
    12 Beiträge
    Wie kann ich hier eine Schleife ...
    Thomas

    Hi Profis,
    Wie kann ich hier eine Schleife einbauen sodas das Passwort nur einmal eingegeben wird und die Tabelle somit für einen Zeitraum von ca 60minuten freigeben wird. Den Code hab ich hier aus dem Archiv und an meine Bedürfnisse mit basteln angepasst. Er überwacht einen Zellbereich und...
    02.02.2009 11:29:00
    Thread-ID: 1046127
    9 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige