Kopier-Button
turok
Schreib ne Diplomarbeit und hab keine Zeit mehr mich großartig in VBA einzuarbeiten, daher eine erneute Frage:
Hab einen Button gemacht, der bei Betätigung, den Inhalt aus ausgewählten Zellen, in Zellen eines anderes Tabellenblatts kopiert! Das passiert, bis 11 Reihen voll sind, dann kommt ein Abbruchhinweis (in Form der Office-Büroklammer).
Hier der Programmausschnitt:
Private Sub C346_Button_Orthogonal_Click()
Static i As Integer
Worksheets("C346_Exp.Data (Orthogonal_Pos)").Cells(4 + i, 3).Value = Worksheets("C346_Scaled _
normal vector").Range("G11").Value
Worksheets("C346_Exp.Data (Orthogonal_Pos)").Cells(4 + i, 4).Value = Worksheets(" _
C346_Scaled normal vector").Range("G12").Value
i = i + 1
If i = 11 Then
Set balNew = Assistant.NewBalloon
balNew.Heading = "End of test record!"
balNew.Show
End If
End Sub
Wenn ich nun den Inhalt einiger Zellen lösche, in die zuvor durch Betätigung des Buttons reingeschrieben wurde, dann macht er bei erneuter Betätigung, mit der nächsten Reihe weiter!
Wie kann ich nun das so umschreiben, dass er wieder die Zellen füllt, die leer sind, ohne vorher die bereits gefüllten Zellen mit Werten zu überschreiben? Dachte da vielleicht an eine For-Schleife, mit der man die Zellen auf Inhalt überprüft (.....value = "")!?
Gruß
turok