Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
444to448
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
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

96 Spalten füllen

96 Spalten füllen
23.06.2004 21:59:02
Achim
Hallo Leute,
muss 96 Spalten mit Zahlen füllen jeweils bis Zeile 366.
Spalte A also 366 mal die 1, Spalte B 366 mal die 2 usw.
Wie bekomm ich das am schnellsten gebacken? Kommt zu Testzwecken
mindestens 4 täglich vor.
Grüße Achim

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 96 Spalten füllen
K.Rola
Hallo,
hoffe, hab dich richtig verstanden:
Option Explicit

Sub fill96()
Dim c As Range, z As Long
For Each c In [a1:cr366].Columns
z = z + 1
c = z
Next
End Sub

Gruß K.Rola
AW: 96 Spalten füllen
Galenzo
markiere die kompletten Spalte A - gibt die 1 ein und bestätige mit STRG +ENTER
und siehe was passiert !!!!
oder:
in A1 die 1
in A2 die 2
beide zellen markieren und am rechnten unteren Anfasser bis in Spalte 96 ziehen
dann dann alle zahlen markieren und am rechten unteren Anfasser bis zile366 runterziehen
AW: 96 Spalten füllen
Achim
Hallo K.Rola,
super, spart ne Menge Arbeit, danke dir.
Grüße Achim
Anzeige
AW: 96 Spalten füllen - 100 x schneller
FP
Hallo Achim,
ist dieses Makro:

Sub FillA2CR()
Dim rngC As Range
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
Cells(1, 1) = 1
Range("A1").AutoFill Range("A1:CR1"), xlLinearTrend
Range("A1:CR1").AutoFill Range("A1:CR366")
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

Servus aus dem Salzkammergut
Franz

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige