seit einiger Zeit (kein Profi) beschäftige ich mich konkret mit dem Thema VBA. Ich bin dabei, ein bereits von mir geschriebenes Programm (Excel) für eine Kegler-Vereinigung in VBA umzuschreiben.
Meine Kenntnisse in VBA habe ich mir aus Büchern, Foren und vielen Beispielen aus dem Internet angeeignet. Seit längerem suche ich nach einer bestimmten Lösung.
Wie kann ich bestimmte Kegler-Ergebnisse aus der Tabelle 1 in eine Tabelle 2 innerhalb der Arbeitsmappe kopieren?
Die Kegler Ergebnisse sollen im ersten Schritt einzeln und im zweiten Schritt von Nr.: 1 bis zum Ende der Tabelle übertragen werden können.
Den ersten Schritt (Einzel-Übertragung) habe ich gelöst.
Hier habe ich die entsprechenden Werte kopiert.
Nr. Tabelle 2 /Hollern / Cells CI CJ CR CY Tabelle 1/ Kegler / Cells AA AF AO AS
3 Testname, Kurt 401 -19 1 4 Testname, Kurt 401 -19 1 4
Beim zweiten Schritt habe ich meine Probleme mit der Umsetzung.
Ich möchte über den Button Gesamte Tabelle übertragen Die Tabelle Hollern mit den gleichen o.a. Daten in die Tabelle Kegler (100 Kegler) und deren Ergebnisse kopieren.
Ich habe im Herbers Excel/VBA-Archiv Werte aus Tabelle 1 nach Tabelle 2 kopieren folgendes Beispiel gesehen:
' Das Makro soll Daten aus der Tabelle1 wie folgt in die Tabelle2 kopieren:
' Es sollen die Daten aus Tabelle1 in Zelle AM15, AN15 und AP15 kopiert werden
' und zwar in die Daten aus AM 15 in die Tabelle2 in die erste freie Zelle der
' Spalte A (beginnend ab Zeile 5!).
' Dann sollten die Daten aus AN15 in die Spalte B der gleichen Zeile (in Tabelle2)
' und die aus AP 15 in die Spalte C der gleichen Zeile (in Tabelle2) kopiert werden!
'
Public Sub Kopieren()
Dim lLetzte As Long
With Worksheets("Tabelle2")
lLetzte = IIf(.Range("A65536") "", 65536, .Range("A65536").End(xlUp).Row) + 1
If lLetzte
Können Sie mir dabei helfen, dies für meine Bedürfnisse anzupassen?
Ich habe das nicht leider geschafft.
Vielen Dank
Stanley69