Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 05:06:02
Mahjong gratis: gioco di puzzle senza tempo
04.10.2025 05:04:16
Mahjong gratuito: gioco di puzzle senza tempo
03.10.2025 22:18:19
Dropdown
03.10.2025 20:19:48
Formatierung bei Zelländerung
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert mehreren Zellen zuweisen

Forumthread: Wert mehreren Zellen zuweisen

Wert mehreren Zellen zuweisen
15.06.2005 10:46:51
Patrick
Hallo Leute,
hoffe mir kann jemand helfen!!?
Bis jetzt wird der Text in Zeile 8 eingefügt, wie hier im Code zu sehen ist:
_______Worksheets("asc").Cells(8 + a, 1) = " Time"_______
Ich möchte jetzt aber das der Text nicht nur in Zeile 8 sondern auch in Zeile 13 ist. Das ganze wiederholt sich ein paar mal mit dem selben abstand a. Also der oben geschriebene Code ist in einer Schleife.
z.B. Zeile 8 = Time
Zeile 18 = Time mit a = 10
jetzt soll es so sein!
Zeile 8 = Time
Zeile 13 = Time
Zeile 18 = Time
Zeile 23 = Time
Schon mal Danke
MfG Patrick
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert mehreren Zellen zuweisen
15.06.2005 11:24:33
Harald
Hallo Patrick,
a = 8 'Startzeile
Worksheets("asc").cells(a, 1)
a = a + 5 'Erhöhung der Zeilennummer um 5
Das Ganze in eine Schleife (z.B. Do while a &lt 25.....loop )
Gruß
Harald
AW: Wert mehreren Zellen zuweisen
15.06.2005 11:27:56
IngGi
Hallo Patrick,
z. B. so:

Sub Time()
Dim b as byte
For b = 8 to 23 Step 5
Worksheets("asc").Cells(b, 1)="Time"
Next b
End Sub

Gruß Ingolf
Anzeige
AW: Wert mehreren Zellen zuweisen
15.06.2005 11:37:58
Patrick
Vielen Dank,
klappt so!!
AW: Wert mehreren Zellen zuweisen
15.06.2005 11:47:05
Dr.
Z.B. so:
Sheets(1).ChartObjects(1).Chart.SeriesCollection(3).Points(InputBox("welcher Datenpunkt?")).ApplyDataLabels
Aber es gibt sicher einen eleganten Weg, den jeweils letzten Datenpunkt zu bestimmen, doch da muss ich leider passen.
sorry falsch (oT)
15.06.2005 11:48:13
Dr.
.
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