Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro verbessern

Makro verbessern
24.04.2003 10:04:45
Remo
Guten Morgen!

Mittels einem Makro lösche ich verschiedene
Bereiche. Mit "i" gebe ich die Zeile an.
Ich muss in den Zeilen 4-24, 29-30, 36-38 die
Inhalte der Zellen der Spalten B - O löschen.
Nun bestimme ich die Zeilen mit:
For i = 4 To 24
For i = 29 To 30
For i = 36 To 38
(Siehe Makro)

Kann ich die Bereiche irgendwie auch zusammen nehmen?
Bin gespannt auf die Ideen der Excel-Götter...

Sub löschen ()

For i = 4 To 24
Range(Cells(i, 2), Cells(i, 15)).Select
Selection.ClearContents
next i

For i = 29 To 30
Range(Cells(i, 2), Cells(i, 15)).Select
Selection.ClearContents
next i

For i = 36 To 38
Range(Cells(i, 2), Cells(i, 15)).Select
Selection.ClearContents
next i
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
man kann es sich auch schwer machen
24.04.2003 10:09:17
moe

Hallo Remo
Versuch es mal so

Sub Zellenlöschen()

Range(Cells(4, 2), Cells(24, 15)).ClearContents
Range(Cells(29, 2), Cells(30, 15)).ClearContents
Range(Cells(36, 2), Cells(38, 15)).ClearContents

End Sub

Re: Makro verbessern
24.04.2003 10:11:20
Andreas Schindler

Wenn die Bereiche gleich groß wären, dann wäre das sicherlich sinnvoll,

ansonsten könntest Du nur wie folgt vorgehen:

For i = 4 To 38
if ((i < 25) or (i=29) or (i=30) or (i>35)) then
Range(Cells(i, 2), Cells(i, 15)).Select
Selection.ClearContents
endif
next i


Halte ich aber auch nicht für sehr sauber....

Andreas

Re: Makro verbessern
25.04.2003 00:08:07
Alf

Hallo Remo

Eine eindeutige Vereinfachung ist die Einführung einer Hilfsfunktion.
Die For-Schleife ist überflüssig.

Gruss Alf



Anzeige
Einzeiler
25.04.2003 10:57:47
Martin Beck

Hallo,

noch kürzer ist

Gruß
Martin Beck

Angeber :-)
25.04.2003 17:19:40
moe

Gruss

moe

Danke, so bin ich halt :-) (oT)
25.04.2003 19:24:41
Martin Beck



Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige