Makro mit Zähler ergänzen

Bild

Betrifft: Makro mit Zähler ergänzen
von: mika
Geschrieben am: 29.10.2003 11:15:02

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

Bild


Betrifft: AW: Makro mit Zähler ergänzen
von: Nayus
Geschrieben am: 29.10.2003 11:47:40

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


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Parameter in Kopfzeile"