Zeilenbereich auf Tabelle übertragen

Servus zusammen,
bin heute zum ersten mal hier und hoff das mir jemand helfen kann :)
Hab natürlich schon meinen lieben Freund Google um Rat gefragt, allerdings finde ich nicht ganz das passende bzw ist es für mich recht schwierig einen VBA Code umzubauen wenn man es nie richtig gelernt hat ;)
Zu meinem derzeit größeren Problem:
ich habe es tatsächlich geschaft eine funktionierende Userform an mein Formular anzupassen ...
Alles was ich in der Userform eingebe, wird in meiner ersten Tabelle ab Zeile 8 eingetragen.
in Tabelle "Q" wird, ebenfalls mit der Userform, ein Kürzel eingetragen.
Jedes Kürzel hat einen Bezug zu einem Bestimmten Tabellenblatt.
Nun hätte ich gerne, das alle Daten die in der ersten Tabelle ab Zeile "8" eingetragen wurden, ihrem Kürzel entsprechend auf das richtige Tabellenblatt ab Zeile "33" kopiert werden.
- Die Reichenfolge sollte dabei nicht geändert werden
- Die Spalten zum kopieren, wären von "A" bis "S"
(Die Spalten beim Einfügen sind die selben)
- Die Übertragung der Daten könnte evtl.
Beim Öffnen des jeweiligen Blattes ausgeführt werden.
-Der Bezug von Kürzel und Tabellen-Namen, kann aus der letzten Tabelle erfolgen.
Spalte "A" Kürzel Spalte "B" Blattname
Ich hoff ich hab soweit an alles gedacht und hoffe sehr das mir jemand helfen kann.
Gruß Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,
in das Modul "DieseArbeitsmappe":

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim vntReturn As Variant
    Dim strAbbreviation As String
    vntReturn = Application.Match(Sh.Name, Tabelle7.Columns(2), False)
    If Not IsError(vntReturn) Then
        Application.ScreenUpdating = False
        strAbbreviation = Tabelle7.Cells(Clng(vntReturn), 1).Value
        Call Range(Cells(33, 1), Cells(Rows.Count, 19)).ClearContents
        With Tabelle46
            If .FilterMode Then Call .ShowAllData
            Call .Rows(7).AutoFilter(Field:=17, Criteria1:=strAbbreviation)
            With .AutoFilter.Range
                With .SpecialCells(xlCellTypeVisible)
                    If .Areas.Count = 1 Then
                        If .Areas(1).Rows.Count = 1 Then
                            Tabelle46.AutoFilterMode = False
                            Exit Sub
                        End If
                    End If
                End With
                Call Range(.Cells(2, 1), .Cells(.Rows.Count, 19)).Copy( _
                    Destination:=Cells(33, 1))
            End With
            .AutoFilterMode = False
        End With
        Application.ScreenUpdating = True
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Zeilenbereich auf Tabelle übertragen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilenbereich auf Tabelle übertragen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread