Hallo,

wenn die Frage noch offen ist hier ein Lösungsvorschlag:

(allerdings würde ich die A2 bis B3 jeweils eine Zeile tiefer setzen und dann natürlich das Range("A4").select auch um diese eine Zeile erhöhen:

Option Explicit

Sub das_kleine_Einmaleins()

Dim i As Integer

Dim Faktor1, Faktor2 As Integer

Range("C1:F2").Select

'das WITH spart Schreibarbeit

With Selection

.Merge

.Value = "Das kleine Einmaleins"

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.Font.Size = 16

.Font.Bold = True

.Font.Name = "Arial"

End With

Faktor1 = 3

Range("A2").Value = "Faktor 1"

Range("B2").Value = 3

Range("A3").Value = "Faktor 2"

Range("B3").Value = "Produkt"

'Vorbereitung der Schleife für die Werte 1 bis 9, die durch i repräsentiert werden.

i = 1

Range("A4").Select

For i = 1 To 9

ActiveCell.Value = i

ActiveCell.Offset(0, 1).Value = i * Faktor1

ActiveCell.Offset(1, 0).Activate

'das NEXT zählt das i automatisch um 1 hoch

Next

'Wenn i > 9 wird die Schleife angebrochen...

End Sub

Herzliche Grüße

...zur Antwort

Hallo, welche Excel-Version nutzt du? Ich habe gerade einen Versuch in Excel 2019 unternommen. In einem Tabellenblatt habe ich den Bereich durch "Einfügen" / "Tabelle" zu einer Tabelle gemacht, die vorhandenen Daten gefiltert (bewusst mit Lücke) und das Filterergebnis mit copy/paste auf ein zweites Blatt kopiert. Das Ergebnis wird nicht mehr gefiltert angezeigt, enthält aber nur das Filterergebnis des 1. Blattes.

...zur Antwort

Hallo, ich bin neu hier und habe daher die Frage eben erst gelesen. Ist das Problem noch akut? Ich würde die erste Tabelle sortieren nach Namen und Daten, dann über eine Schleife die Namen solange durchlaufen, wie der Name noch gleich ist und jeweils die Daten in Variable übernehmen, in die Tabelle 2 wechseln und dort eintragen, Zelle + 1 navigieren und in die erste Tabelle zurück. Bei Namenswechsel in der zweiten Tabelle entsprechend navigieren (1 Zeile tiefer, Namen eintragen, eine Spalte weiter, Datum eintragen...)

...zur Antwort