Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro zum Zellen verschieben

Forumthread: Makro zum Zellen verschieben

Makro zum Zellen verschieben
13.06.2003 12:45:23
JAN
Hallo

Ich möchte gerne ein Makro schreiben, das in einer Schleife Zellen in andere Spalten kopiert. Ich weiß aber nicht, wie ich mit dem curcell-Befehl ganze Zellen selecten bzw. kopieren und wieder einfügen kann. Kann mir da jemand helfen??

Das ist mein Versuch:

Dim hilf As String

For counter = 1 To 3
Set curcell = Worksheets("viewer3").Cells(1, counter)
hilf = (curcell.Value)
Set curcell = Worksheets("viewer3").Cells(2, counter)
curcell.Value = hilf
Next counter


Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Makro zum Zellen verschieben
13.06.2003 13:30:17
uf206

Hallo Jan,
Kopieren von Zellen und z.b. ganzen zeilen geht viel einfacher;
ein Beispiel wobei geSh und curSh 2 vorher definierte Tabellenblätter in 2 verschiedenen Datein sind:


endezeile = Range("A1").End(xlDown).Row 'Auslesen letzte gefüllte Zeile
stoRange = "k2:k" & endezeile 'Bereich StO
gegZ = 2
For Each varC1 In curSh.Range(stoRange)
aktCZeil = varC1.Cells.Row 'aktuelle Zeile abfragen
If varC1 = varB1 Then 'Standortvergleich
gegSh.Cells(gegZ, "A") = curSh.Cells(aktCZeil, "A").Value
curRange = "D" & aktCZeil & ":K" & aktCZeil 'Bereich zu kopieren
gegZRange = "D" & gegZ & ":K" & gegZ 'Bereich wohin kopieren
gegSh.Range(gegZRange) = curSh.Range(curRange).Value
gegZ = gegZ + 1
End If
Next 'Ende Schleife C

Anzeige
Re: Makro zum Zellen verschieben
13.06.2003 13:47:16
Jan

Vielen Dank, das hilft mir sehr weiter! :-)

;

Beliebteste Forumthreads (12 Monate)

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