Wie kann man diese Codes kombinieren?
Code 1 (per CommandButton): wird der Bereich A16:L16 im Tabellenblatt Grundformular kopiert und schaltet dann in das Tabellenblatt Übersicht
Sub Eintragungenübernehmen()
Range("A16:L16").Select
Selection.Copy
Sheets("Übersicht").Select
End Sub
In Übersicht wähle ich per Doppelklick auf Zellen in Spalte A verschiedene Tabellenblätter an. (Die kopierten Daten befinden sich noch im Kopierspeicher.)
Code 2:
'zur Ansteuerung einzelner Trainingsnachweise mit Doppelklick
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For Each Sheet In ThisWorkbook.Sheets
If Sheet.Name ActiveSheet.Name Then
Sheet.Visible = False
End If
Next
If ActiveCell.Column = 1 Then
Sheets(ActiveCell.Row).Visible = True
Sheets(ActiveCell.Row).Activate
Cancel = True
End If
End Sub
Mit Doppelklick habe ich nun das ausgewählte Tabellenblatt.
Um die letzte beschriebene Zeile auf dem aktiven Tabellenblatt zu ermitteln und in der nächsten die Daten einzufügen
Code 3:
Range(A65536).End(xlUp).Offset(1,0).Select
Selection.Paste
Wie kann ich Code2 und Code3 verbinden?
Für eure Antworten dankbar
Alex