Makroprogrammierung: Zelle erhöhen
31.07.2003 14:48:06
Mercutio
folgendes Problem:
Ich möchte folgendes in einer Schleife realisieren. Der Inhalt einer Zelle soll kopiert werden, wo anders eingefügt und dann wieder der Inhalt der Anfangszelle allerdings um 9 erhöht (Also erst A1 und dann A10) kopiert und wo anders eingefügt werden.
Mein bisheriger Code:
Sub Evaluation()
' Evaluation Makro
' Makro am 31.07.2003 von Mercutio aufgezeichnet
SheetFirst = Application.InputBox("Bitte den Tabellennamen eingeben in der sich die TANs befinden:")
TanAnzahl = Application.InputBox("Bitte die erforderliche TAN-Anzahl eingeben:")
ZellenBegin = Application.InputBox("Bitte die Anfangszelle eingeben (Bsp.: A9):")
SheetLast = Application.InputBox("Bitte den Tabellennamen eingeben in die die TANs eingefügt werden sollen:")
ZellenEnd = Application.InputBox("Bitte die Zielzelle eingeben (Bsp.: B2):")
TanZaehler = TanAnzahl
Do While TanZaehler > 0
Sheets(SheetFirst).Select
Range(ZellenBegin).Copy
Sheets(SheetLast).Select
Range(ZellenEnd).Select
ActiveSheet.Paste
'Das hier geht nicht
Range(ZellenBegin) = Range(ZellenBegin) + 9
Range(ZellenEnd) = Range(ZellenEnd) + 1
'Und das hier auch nicht
ZellenBegin = ZellenBegin + 9
ZellenEnd = ZellenEnd + 1
'bis hier. Es handelt sich wie gesagt um die Erhöhung der Zelle nicht des Inhaltes :-)
TanZaehler = TanZaehler - 1
Loop
MsgBox "Die TANs wurden von " & SheetFirst & " nach " & SheetLast & " kopiert."
'MsgBox "Die Schleife wurde " & Zähler & " mal durchlaufen."
'Sheets("TANS Regelungstechnik").Select
'Range("A9,A18,A27").Copy
'Sheets("Regelungstechnik").Select
'Range("B2").Select
'ActiveSheet.Paste
Application.CutCopyMode = False
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub