ich habe folgendes Problem wo ich leider nicht mehr weiter komme
Ich möchte unterschiedliche Zellenbereiche von einer ausgefüllten tabelle (Templatesheet)) ins (Zielsheet) kopieren
hier ist mein bisheriges programm:
Option Explicit
Sub generate()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim wksT As Worksheet
Dim i As Long
Dim j As Long
Dim Temp As Variant
Set wksQ = ThisWorkbook.Worksheets("Quelle")
Set wksZ = ThisWorkbook.Worksheets("Ziel")
Set wksT = ThisWorkbook.Worksheets("template")
With wksQ
For i = 11 To 15 'nach unten 65536
For j = 1 To 10 'Rechts 11
Select Case Cells(i, j)
Case "Apfel"
Temp = wksQ.Cells(i, 4).Value ' hier hole ich noch einen anderen _
Zelleninhalt welches
wksT.Cells(4, 4).Value = Temp ' den Tabelleninhalt des Template _
Sheets aktualisiert
' jetzt kommt der kopiervorgang von template worksheet nach ziel _
worksheet
Sheets("template").Select
Range("A1:I35").Select
Selection.Copy
Sheets("Ziel").Select
Range("A1:I35").Select
ActiveSheet.Paste
'nur möchte ich beim nächsten Schleifenduchlauf einen anderen Bereich _
_
auswählen
'von ("A4:I35") und dieser Bereich soll für die restlichen _
schleifendurchläufe auch so bleiben
' nur beim aller ersten Schleifen durchlauf soll ("A1: I35") ausgewä _
hlt werden
' und ausserdem möchte ich bei Jedem kopiervorgang ins Quellziel die _
bereiche
' hinten dran hängen
' z.b: 1. durchlauf A1:I35 (template) nach A1:I35 (ziel)
' 2. durchlauf A4:I35 (template) nach A36:I67(ziel)
' usw
Case "Birne"
' wenn nun Birne ausgewählt wird wird das gleiche wie bei Apfel gemacht
' nur nur ein anderer Bereich ausgewählt
z.b: 1. durchlauf A38:A57 (template) nach ende des Bereichs vom Ziel _
sheet
' bei 2 durchläufen wäre ja das ende A36:I67(ziel) bei x durchlä _
_
ufen ?
' ist es dynamisch machbar?
2. durchlauf A41:A57 (template) wieder im Ziel sheet hinten dran _
_
hängen
Case "Orange"
das gleiche wie bei apfel und birne nur ein anderer Bereich
End Select
Next j
Next i
End With
End Sub
ich hoffe ich konnte mein Problem einigermaßen darstellen, ich würde mich über die Antworten sehr freuen
vielen dank schonmal im voraus