Übernehmen in ein anderes Formularblatt
09.01.2015 16:53:24
Mark
ist es möglich den Code so umzuschreiben, das es möglich ist, mehrere Zellen zu Kopieren, also nicht alle gleichzeitig sondern via Auswahl durch einen Button der sich auf die Zelle bezieht?
Momentan ist der Code an einen Button "geknüpft" der die unten im Code beschriebene Zelle anspricht.
Der User hat aber die Möglichkeit bzw soll die Möglichkeit haben auch andere Zellen zu kopieren.
Ansonsten müßte ich die Formel noch 300 mal schreiben mit den jeweiligen zellbezügen, aber ich glaube nicht, daß das Sinn macht lol
Herzlichen Dank im Voraus
Gruß
Mark
hier der Code
Sub ZelleKopierenet1()
i = 0
a = 0
e = 13
' e = 13 -- bedeutet bis zu 13 Zellen beginnend am Anfang z.B. D8
' können belegt werden ( D8 ; D10 ; D12 ; usw. bis D8006 ) im 2er Schritt
Sheets("Datenbank Ziele essen trinken").Select
Cells(11, 3).Copy
Sheets("Planungsblatt").Select
For i = a To (e - 1) Step 1
If Len(Cells((8 + (i * 2)), 3)) = 0 Then
Leer = Len(Cells((8 + (i * 2)), 3))
Cells((8 + (i * 2)), 3).PasteSpecial Paste:=xlPasteValues
If Leer = 0 Then Exit For
Else
If i = (e - 1) And Len(Cells((8 + (i * 2)), 3)) > 0 Then
MsgBox ("Alle Zellen belegt")
End If
End If
Next i
End Sub
