Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
328to332
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
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro mit Zähler ergänzen

Makro mit Zähler ergänzen
29.10.2003 11:15:02
mika
ich möchte Spalten jeweils eine Spalte nach rechts kopieren
wenn ich den Vorgang mit einem Makro aufzeichne, sieht das folgendermaßen aus:

Range("C:C").Select
Selection.Copy
Range("D:D").Select
ActiveSheet.Paste
Columns("C:C").Select
Selection.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:xlNone, SkipBlanks _
:= False, Transpose:=False

Bei der nächsten Ausführung des Makros soll Range ("D:D") nach ("E:E") kopiert werden und dann in ("D:D") die Formeln mit den Werten überschrieben werden usw.
Ich benötige also einen Zähler am Ende des Makros
Danke,
Mika

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro mit Zähler ergänzen
29.10.2003 11:47:40
Nayus
Hallo,
ich würde das mit einer Hilfszelle im Arbeitsblatt lösen (Hier D10).
So funktioniert das nur bis Spalte "Z"!!!

'Ansatz


Sub selCol()
Range(getCopyCol).Select
Selection.Copy
Range(getPasteCol).Select
ActiveSheet.Paste
Columns(getCopyCol).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'zu kopierende Spalte in Hilfszelle inkrementieren
ActiveSheet.Cells(1, 10) = Chr(Asc(getCopyCol) + 1)
End Sub



Function getCopyCol() As String
'Hilfszelle D10
getCopyCol = ActiveSheet.Cells(1, 10) & ":" & ActiveSheet.Cells(1, 10)
End Function



Function getPasteCol() As String
getPasteCol = Chr(Asc(getCopyCol) + 1) & ":" & Chr(Asc(getCopyCol) + 1)
End Function


Viel Erfolg,
Nayus
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige