Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

verbessern mit Schleife geht das ?

Forumthread: verbessern mit Schleife geht das ?

verbessern mit Schleife geht das ?
30.06.2004 11:59:46
marc
hallo zusammen,
wie kann ich den unten stehenden Code verbessern
bzw.durch Schleifeneinsatz verkuerzen ?
-
marc.

Option Explicit
Sub WeekValuesDel()
Dim wks As Worksheet
Dim wbk As Workbook
Workbook.Open Filename:="C:\Liste\Bericht.xls"
Worksheets("KA").Range("B3:G31").ClearContents
Worksheets("BR").Range("B3:G31").ClearContents
Worksheets("SL").Range("B3:G31").ClearContents
Worksheets("KWs").Range("B3:G31").ClearContents
Worksheets("WRA").Range("B3:G31").ClearContents
Worksheets("Mo01").Range("C7:J16").ClearContents
Worksheets("Di01").Range("C7:J16").ClearContents
Worksheets("Mi01").Range("C7:J16").ClearContents
Worksheets("Do01").Range("C7:J16").ClearContents
Worksheets("Fr01").Range("C7:J16").ClearContents
Worksheets("KW_Ges01").Range("C7:J16").ClearContents
Worksheets("Mo01").Range("G2:H3").ClearContents
Worksheets("Di01").Range("G2:H3").ClearContents
Worksheets("Mi01").Range("G2:H3").ClearContents
Worksheets("Do01").Range("G2:H3").ClearContents
Worksheets("Fr01").Range("G2:H3").ClearContents
Worksheets("KW_Ges01").Range("G2:H3").ClearContents
Worksheets("D.KA").Range("A3:B22").ClearContents
Worksheets("D.BR").Range("A3:B22").ClearContents
Worksheets("D.SL").Range("A3:B22").ClearContents
Worksheets("D.K'w").Range("A3:B22").ClearContents
Worksheets("D.Wra").Range("A3:B22").ClearContents
Worksheets("D.Ges").Range("B2:T6").ClearContents
wbk.Save
wbk.Close
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: verbessern mit Schleife geht das ?
GerdZ
Hallo marc,
etwa so: 
Option Explicit
Sub WeekValuesDel()
Dim wks As Worksheet
Dim wbk As Workbook
Workbooks.Open Filename:="C:\Liste\Bericht.xls"
For Each wks In Worksheets(Array("KA", "BR", "SL", "KWs", "WRA"))
wks.Range("B3:G31").ClearContents
Next
For Each wks In Worksheets(Array("Mo01", "Di01", "Mi01", "Do01", "Fr01", "KW_Ges01"))
wks.Range("C7:J16,G2:H3").ClearContents
Next
For Each wks In Worksheets(Array("D.KA", "D.BR", "D.SL", "D.K'w", "D.Wra"))
wks.Range("A3:B22").ClearContents
Next
Worksheets("D.Ges").Range("B2:T6").ClearContents
wbk.Save
wbk.Close
End Sub
Gruß
Gerd
Anzeige
AW: verbessern mit Schleife geht das ?
marc
Hallo Gerd,
danke fuer deine Hilfe, ich werde mich gleich an die Arbeit machen.
Danke.
marc :o)
AW: verbessern mit Schleife geht das ?
Marcel
vielleicht so:
Option Explicit

Sub WeekValuesDel()
Dim wks As Worksheet
Dim wbk As Workbook
Workbook.Open Filename:="C:\Liste\Bericht.xls"
Sheets(Array("KA", "BR", "SL", "KWs", "WRA")).Range("B3:G31").ClearContents
Sheets(Array("Mo01", "Di01", "Mi01", "Do01", "Fr01", "KW_Ges01")).Range("C7:J16,G2:H3").ClearContents
Sheets(Array("D.KA", "D.BR", "D.SL", "D.K´w", "D.Wra")).Range("A3:B22").ClearContents
Worksheets("D.Ges").Range("B2:T6").ClearContents
wbk.Save
wbk.Close
End Sub

Gruß
Marcel
Anzeige
;

Forumthreads zu verwandten Themen

Outlook Express statt Outlook mit Code ansprechen?
greenhorn

Hallo,
zum automatsichen Versand von E-Mails mit Outlook aus Excel heraus habe ich folgenden Code:
Sub sende_stoermeldung(mld As String) Dim MyMessage As Object, MyOutApp As Object 'InitializeOutlook = True Set MyOutApp = CreateObject("Outlook.Application") 'Nachrichtenobject erstelle...
19.08.2008 13:13:21
Thread-ID: 1002911
7 Beiträge
Blätter Zusammenfassen mit Bezug auf Ursprungzelle
Peter

Hallo liebe Exel und VBA Fangemeinde
nachdem ich nun mehrere Tage durch die Tiefen dieses sensationellen Forum gewühlt habe,
und nicht weiter komme, versuche ich es mit meinem ersten Posting.
In einer Excelliste habe ich eine unbestimmte Anzahl Arbeitsblätter und möchte diese auf e...
22.08.2008 23:37:54
Thread-ID: 1004040
10 Beiträge
Anzeige
Beim Start abfragen mit Passwort
Peter

Hallo
brauche Hilfe und Ideen
Ich möchte gern meine Datei beim Öffnen mit einer Passwortabfrage schützen.
Die Datei startet mit Tabellenblatt"Start"
Dann soll eine Userform mit Textfeld oder Inputbox starten und mit einem Passwort wird die Datei freigegeben, sonst bricht Excel...
06.09.2008 23:10:00
Thread-ID: 1007911
3 Beiträge
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
userform mit multipage anpassen
angeldust

Hallo liebe User
Habe eine UserForm mit Multipage jede einzelne Seite Fragt den Benutzer
nach seinen Angaben Zb die seite 1 name, vorname seite 2 adresse auf der seite 3 kann
man ein 10 stll. code eintragen, so nun sollten diese seiten gespeichert werden ,
1. Frage ich hab ein...
28.10.2008 15:08:06
Thread-ID: 1019972
2 Beiträge
Muss nochmal nerven: Textbox mit Tabs einlesen
TomTom

Hi,
bin leider immer noch nicht weiter gekommen, suche immer noch die Möglichkeit, eine Textdatei (mit Tabstopps Trennzeichen) in eine Excel Datei zu lesen. dabei sollte man mit dem öffnen Dialog die Datei vorher auswählen können.
Hier nochmal meine Datei:
https://www.herber.de/bbs/...
06.11.2008 08:27:00
Thread-ID: 1022143
5 Beiträge
Zellen schützen mit Passwort per Makro
Stefan

Hallo zusammen,
habe heute vormittag auf meine Frage wie ich Zellen abhängig vom Datum sperren kann folgendes Makro erhalten..Dafür erstmal vielen Dank ;-)
Jetz würde ich das ganze gern um ein Passwort ergänzen da sonst Dritte den Schutz ja leicht wieder aufheben könnten
' Private...
11.11.2008 13:02:13
Thread-ID: 1023525
4 Beiträge
Zellen schützen mit Passwort per Makro
Stefan

Hallo zusammen,
habe heute vormittag auf meine Frage wie ich Zellen abhängig vom Datum sperren kann folgendes Makro erhalten..Dafür erstmal vielen Dank ;-)
Jetz würde ich das ganze gern um ein Passwort ergänzen da sonst Dritte den Schutz ja leicht wieder aufheben könnten
' Private...
11.11.2008 13:12:00
Thread-ID: 1023528
2 Beiträge
GROSSES PROBLEM MIT GROSSER EXCEL-Tabelle
Stefan

Hallo,
habe aus mehreren Excel-Tabellen eine grosse Tabelle mit über 18000 Zeilen zusammengestellt. Diese möchte ich nun sortieren lassen (nach der Spalte "Name", "Datum"). Problem: Menüpunkt "Daten sortieren" läßt sich nicht mehr anwählen. Warum?
Vielleicht weil einige Zellen falsch bz...
07.01.2009 16:33:00
Thread-ID: 1037611
4 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
ausfüllen mit festen Adressen ohne absolut setzen!
Ralf

Hallo,
mein Excel 2003 füllt plötzlich Funktionen nach rechts aus und wiederholt dabei die ursprünglichen Zelladressen ohne dass diese absolut gestetzt sind.
Ich habe also z.B. =a1*a2 in einer Zelle, ziehe mit dem Ausfüllkästchen um zwei Spalten nach rechts und als Ergebnis steht überal...
19.01.2009 15:39:24
Thread-ID: 1041522
4 Beiträge
Zelladresse in Code mit - Syntaxfrage
Peter

Guten Tag
Innerhalb eines Codes füge ich eine neue Codezeile ein. Dabei gibt mir "Variante 1" für die Zeile 5 den richtigen Wert.
Nun möchte ich G5 ersetzen, damit in jeder Schlaufe der richtige Wert resultiert.
Anstatt G5 schreibe ich für G
[spName].column ' dies ergibt die Zah...
11.02.2009 08:54:00
Thread-ID: 1049441
7 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