Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1808to1812
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
Inhaltsverzeichnis

In mehreren Sheets Value

In mehreren Sheets Value
03.02.2021 11:19:20
Heinz
Hallo im Forum,
Ich habe in einer Mappe Sheets mit den Namen KW_01, KW_02 bis KW_53
Könnte man für alle Sheets einmal den Code anwenden ?
Range("A1:C100") = Range("A1:I100").Value
Danke
SG, Heinz

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In mehreren Sheets Value
03.02.2021 11:24:24
Rudi
Hallo,
nein, das muss du mit einer Schleife machen.
Gruß
Rudi
AW: In mehreren Sheets Value
03.02.2021 11:38:41
Werner
Hallo,
Public Sub Test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Left(ws.Name, 2) = "KW" Then
With ws
.Range("A1:C100") = .Range("A1:I100").Value
End With
End If
Next ws
End Sub
Gruß Werner
AW: In mehreren Sheets Value
03.02.2021 11:44:39
Nepumuk
Hallo Heinz,
wie soll das gehen die Werte von neun Spalten in 3 Spalten zu packen?
Gruß
Nepumuk
uups...
03.02.2021 11:51:20
Werner
Hallo Nepumuk,
...ist mir gar nicht aufgefallen - einfach reinkopiert.
Gruß Werner
AW: uups... Blödsinn
03.02.2021 12:31:54
Heinz
Hallo Werner, Rudi u. Nepumuk
Natürlich sollte es Range("A1:I100") = Range("A1:I100").Value heißen.
Recht herzlichen Dank für eure Hilfe.
SG, Heinz
Anzeige
Läuft wie geschmiert. Danke OT
03.02.2021 12:35:01
Heinz
.
Gerne u. Danke für die Rückmeldung. o.w.T.
03.02.2021 19:47:55
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige