kopieren von bestimmten zellen
07.07.2003 16:33:02
mike
das unten angeführte makro soll einzelne zellen von einer strat-tabelle in bestimmte zellen
einer ziel-tabelle kopieren. so wie es unten steht werden die werte in der selben zeile der ziel-tabelle geschrieben wie sie in der start-tabelle stehen. ich komme nicht dahinter welche änderung ich einfügen muss damit die werte in der ziel-tabelle nach der ersten freien zeile untereinander und ohne leerzeilen geschrieben werden.
danke im voraus für eure hilfe
mike
Sub Juli()
' Kopiert die Daten für Juli aus der Tabelle Archiv
Application.ScreenUpdating = False
Dim i As Integer
Dim Archiv As Worksheet
Set Archiv = Excel.Worksheets("Archiv")
Archiv.Activate
For i = 2 To 150 'i = durchsuchte Zeile: 1 bis 150
If Month(Archiv.Cells(i, 4)) = 7 Then
With Excel.Worksheets("07-2003")
'---- Fügt jetzt von Archiv in die Tabelle ein ----
.Cells(i, 1).Value = Archiv.Cells(i, 6).Value
.Cells(i, 4).Value = Archiv.Cells(i, 1).Value
.Cells(i, 5).Value = Archiv.Cells(i, 2).Value
.Cells(i, 6).Value = Archiv.Cells(i, 3).Value
.Cells(i, 7).Value = Archiv.Cells(i, 76).Value
'------------ Einfügen Ende ------------
.Activate 'automatisch neue Tabelle in den Vordergrund
End With
End If
Next i
Application.ScreenUpdating = True
End Sub
Anzeige