Ich habe ein großes Problem, ich hoffe irgend jemand kann mir helfen.
Ich probiere jetzt schon seid über einer Woche, finde aber keine Lösung.
Ich möchte z.B. von Tabelle1 den Bereich A3:G3 Zeile für Zeile kopieren
in Tabelle2 im Bereich C5:I5 einfügen, berechnen, den ausgewerteten
Bereich C8:I8 kopieren und in Tabelle1 unter K3:Q3 einfügen.
Zum besseren Verständnis habe ich einen Makro Code angehängt.
Diesen Makro Code habe ich einfach aufgezeichnet.
In der originalen Datei ist eine Aufzeichnung aber nicht möglich, weil der Datenbereich über 1000 Zeilen lang ist.
Ist es möglich das aufgezeichnete Makro so zu schreiben, dass es automatisch den Datenbereich durchläuft und Zeile für Zeile kopiert.
Ich hoffe es hat jemand eine Idee und kann mir Helfen .
Ich Danke im Voraus.
Gruß Robert.
Anhang:
Sub auswertung()
'
' auswertung Makro
' Makro am 07.05.2003 von Robert aufgezeichnet
'
'
Range("A3:G3").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("C5:I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Calculate
Range("C8:I8").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("K3:Q3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A4:G4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("C5:I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Calculate
Range("C8:I8").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("K4:Q4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A5:G5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("C5:I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C8:I8").Select
Application.CutCopyMode = False
Calculate
Range("C8:I8").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("K5:Q5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A6:G6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("C5:I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Calculate
Range("C8:I8").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("K6:Q6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A7:G7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("C5:I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Calculate
Range("C8:I8").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("K7:Q7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A8:G8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("C5:I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Calculate
Range("C8:I8").Select
Selection.Copy
Sheets("Tabelle1").Select
Range("K8:Q8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub