Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
148to152
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
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zahl zuweisen

Zahl zuweisen
17.08.2002 13:37:08
Max M.
Hallo Leute,

ich habe hier ein Makro das einer grünen Zelle eine Zahl zuweist.
Da meine Tabelle sehr groß ist, dauert es eine Weile bis das Makro alle grünen Zellen eine Zahl zugewiesen hat. Wie kann ich dieses Makro ändern, dass es nach grünen Zellen nur in Spalte AC sucht??????

Dim Zelle As Range, Zahl
Zahl = InputBox("Bitte eine Zahl eingeben")
If Zahl = "" Then Exit Sub
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Interior.ColorIndex = 4 Then
Zelle = Zahl
End If
Next Zelle

Max M.

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

Betreff
Datum
Anwender
Anzeige
Re: Zahl zuweisen
17.08.2002 14:02:38
andreas e
Sub ae()
Dim Zelle As Range, Zahl
Zahl = InputBox("Bitte eine Zahl eingeben")
If Zahl = "" Then Exit Sub
For Each Zelle In Range("Ac:Ac")
If Zelle.Interior.ColorIndex = 4 Then
Zelle = Zahl
End If
Next Zelle
End Sub

gruß
andreas e

Re: Zahl zuweisen
17.08.2002 14:12:58
Max M.
Hallo Andreas

vielen Dank für deine Hilfe.
Das Makro funktioniert jetzt viel schneller (9sec.)vorher (32sec.).

Gruß Max

Re: Zahl zuweisen
17.08.2002 14:25:55
andreas e
hey max,
evtI könnte man ja auch die ZahI der ZeIIen begrenzen nicht bis ganz nach unten ? range AC1 bis rangeac688 der je nach Iänge deiner TabeIIe

gruß
andreas e

Anzeige
Re: Zahl zuweisen
17.08.2002 14:29:57
Max M.
Andreas, das ganze soll Laufen von AC9:AC1008.

Max.

Re: Zahl zuweisen
17.08.2002 14:32:52
andreas e
Sub ae()
Dim Zelle As Range, Zahl
Zahl = InputBox("Bitte eine Zahl eingeben")
If Zahl = "" Then Exit Sub
For Each Zelle In Range("AC9:AC1008")
If Zelle.Interior.ColorIndex = 10 Then
Zelle = Zahl
End If
Next Zelle
End Sub

gruß
andreas e

Re: Zahl zuweisen
17.08.2002 14:40:10
Max M.
Andreas, vielen Dank, jetzt ist es nach 1 sec. fertig.

Gruß Max.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige