Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ablauf wiederholen

Ablauf wiederholen
23.05.2005 10:14:05
Hamza
Hallo Leute,
hab folgenden Makro mit dem Macro Recorder aufgezeichnet.

Sub Makro1()
Range ("J1355").Activate
ActiveCell.FormulaR1C1 = "=COUNTIF(Kalender!R283C[-6],""U"")"
ActiveCell.FormulaR1C1 = "=COUNTIF(Kalender!R283C[-6],""U"")"
Range("J1356").Activate
ActiveCell.FormulaR1C1 = "=COUNTIF(Kalender!R283C[-5],""U"")"
Range("J1357").Activate
ActiveCell.FormulaR1C1 = "=COUNTIF(Kalender!R283C[-4],""U"")"
Range("J1358").Activate
ActiveCell.FormulaR1C1 = "=COUNTIF(Kalender!R283C[-3],""U"")"
Range("J1367").Activate
ActiveCell.FormulaR1C1 = "=COUNTIF(Kalender!R283C[6],""U"")"
Range("J1368").Activate
ActiveCell.FormulaR1C1 = "=COUNTIF(Kalender!R283C[7],""U"")"
Range("J1369").Activate
ActiveCell.FormulaR1C1 = "=COUNTIF(Kalender!R283C[8],""U"")"
Range("J1383").Activate
ActiveCell.FormulaR1C1 = "=COUNTIF(Kalender!R283C[22],""U"")"
Range("J1384").Activate
ActiveCell.FormulaR1C1 = "=COUNTIF(Kalender!R283C[23],""U"")"
Range("J1385").Activate
ActiveCell.FormulaR1C1 = "=COUNTIF(Kalender!R283C[24],""U"")"
End Sub

Das ist ein Vorgang der sich immer wiederholt. In der gleichen Spalte aber nicht in der gleichen Zeile. Das heißt das ich nach 10 Zeilen wieder das gleiche machen muss nur mit dem Unterschied das sich Bezug "Kalender!r283[x] auf R284[x] ändert.
Besteht irgendwie eine Möglichkeit das ich das mit Makro lösen kann. Es würde mir auch reichen wenn ich jedesmall nur eine kleinigkeit bei dem Makro ändern müßte. Ist immerhin besser als jede einzelne Zelle einzeln zu bearbeiten.
Danke schonmal im Voraus
Gruß
Hamza

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ablauf wiederholen
23.05.2005 13:53:11
Harald
Hallo Hamza,

Sub zahl()
x = 4
For n = 1355 To 1385
Cells(n, 1) = WorksheetFunction.CountIf(Cells(283, x), "U")
x = x + 1
Next n
End Sub

Formel wird in J1355 bis 1385 eingeschleift und zählt ab Spalte 283 nach rechts, wenn da ein U steht.
Na, dann hoff ich mal, dass ich richtig verstanden und gezählt hab.
Probiers erstmal mit ner Kopie ;-))
Gruß
Harald
Zusatz
23.05.2005 14:02:35
Harald
Hallo Hamza,
wenn er in einem anderen Blatt (namens Kalender) zählen soll

Sub zahl()
x = 4
For n = 1355 To 1385
Cells(n, 1) = WorksheetFunction.CountIf(Sheets("Kalender").Cells(283, x), "U")
x = x + 1
Next n
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige