Das Archiv des Excel-Forums

Zeilenbereich auf Tabelle übertragen

• Zeilenbereich auf Tabelle übertragen von Stefan vom 06.09.2019 23:43:36
• AW: Zeilenbereich auf Tabelle übertragen - von Hajo_Zi am 07.09.2019 07:36:36
  • AW: Zeilenbereich auf Tabelle übertragen - von Stefan am 07.09.2019 09:38:10
    • AW: Zeilenbereich auf Tabelle übertragen - von Hajo_Zi am 07.09.2019 09:53:04
      • AW: Zeilenbereich auf Tabelle übertragen - von Stefan am 07.09.2019 10:41:11
        • AW: Zeilenbereich auf Tabelle übertragen - von Nepumuk am 07.09.2019 12:28:52
          • AW: Zeilenbereich auf Tabelle übertragen - von Stefan am 07.09.2019 14:04:27
            • Autofilter in Excel 2003 - von Nepumuk am 07.09.2019 14:13:33
        • ..Hajo ist immer so,egal welcher Tag...:-) oT - von robert am 07.09.2019 12:51:23

Betrifft: Zeilenbereich auf Tabelle übertragen
von: Stefan

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

Betrifft: AW: Zeilenbereich auf Tabelle übertragen
von: Hajo_Zi
Geschrieben am: 07.09.2019 07:36:36
Hallo Stefan,
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.

Betrifft: AW: Zeilenbereich auf Tabelle übertragen
von: Stefan

Betrifft: AW: Zeilenbereich auf Tabelle übertragen
von: Hajo_Zi
Geschrieben am: 07.09.2019 09:53:04
Danke für dioe Datei.
Dann warte mal bis jemnand auf Deinen Rechner schaut. In Tabelle 1 sind keine Daten.
Ich bin dann raus, da ich dies nicht mache.
Viel Erfolg noch.
Gruß Hajo

Betrifft: AW: Zeilenbereich auf Tabelle übertragen
von: Stefan

Betrifft: AW: Zeilenbereich auf Tabelle übertragen
von: Nepumuk
Geschrieben am: 07.09.2019 12:28:52
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

Betrifft: AW: Zeilenbereich auf Tabelle übertragen
von: Stefan

Geschrieben am: 07.09.2019 14:04:27
Hallo Nepumuk,
Cool danke erstmal für den Code :)
Allerdings passt ihm die Zeile irgendwie nich so ganz :
"With .AutoFilter.Range"
Anwendungs oder Objektdefinierter Fehler ??? //
Autofilter Methode des Range Objekts konnte nicht ausgeführt werden ??
Laufzeitfehler 1004
liegt des evtl an meiner Excel Version :(
@Robert : danke für die Info :D

Betrifft: Autofilter in Excel 2003
von: Nepumuk
Geschrieben am: 07.09.2019 14:13:33
Hallo Stefan,
das sollte auch in der Version 2003 funktionieren. Aber testen kann ich es nicht.
Ich lass die Frage offen.

Betrifft: ..Hajo ist immer so,egal welcher Tag...:-) oT
von: robert

Geschrieben am: 07.09.2019 12:51:23

Excel-Beispiele zum Thema "Zeilenbereich auf Tabelle übertragen"

Suche über mehrere Tabellen		Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt		Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen.		Tabellenblätter benennen
Tabellenblatt auswählen		Zustand von Tabellenblatt-Checkboxes ermitteln
Tabellenblattnamen der VBE-Projekte ändern		Tabellenblattnamen nach Datum
Gefilterte Daten in neues Tabellenblatt übertragen		Zeichentabelle StandBy
Wochentage Mo - Fr in Tabelle eintragen		Mehrmals vorkommende Werte in neues Tabellenblatt
Kommentare in geschützte Tabellen einfügen		Tabellen vergleichen
Grafiken im Tabellenblatt ordnen		Einzelnes Tabellenblatt speichern
Tabellenblattnamen in eine ListBox einlesen		Tabellenblätter in umgekehrter Reihenfolge drucken
Anwendername in Tabellenblatt eintragen		Arbeitszeittabelle und SVERWEIS-Formel
Druck aus mehreren Tabellenblättern auf eine Druckseite		Daten von Tabelle1 auf Tabelle2 übertragen
Zwei Tabellen wechselseitig ändern		Wert in Tabelle suchen und in UserForm ausgeben
Tabellen hinzufügen und sortieren		Tabellenvergleich und Übernahme der Doppel
Fußballtabelle aktualisieren		Termine in Jahrestabelle eintragen
Tabellencode nach Kopieren des Blattes löschen		Tabellenblatt in UserForm
Nach Eingabe Werte aus Tabellen Übernehmen		Errechnung von Schulnoten anhand einer Punktetabelle
Fußballergebnisse in Tabelle eintragen und zu HTML konvertieren		Tabelle vor der Bearbeitung schützen
Geburtstage eines vorzugebenden Monats in neue Tabelle		Dateinamen in Tabelle einlesen
Übernahme von Werten mit "x" in eine zweite Tabelle		Letztes Speicherdatum in die Fußzeile aller Tabellenblätter
Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern		Den selben Bereichsnamen in mehreren Tabellenblättern
Textdatei in Tabellenblatt importieren		Tabellen hinzufügen und mit Namen aus einer Liste belegen
Einzelnes Tabellenblatt unter Tagesdatum speichern		Dateien einer Ordnerliste in einer Tabelle zusammenstellen
Tabellen für die Werktage eines Monats erstellen		Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen
Tabellenblattbereich als Email versenden		Daten in jeweils einer Spalte zweier Tabellen vergleichen
Gefilterte Daten ohne Zwischenablage übertragen		Werte ohne Zwischenspeicher übertragen
Diagramm aus Arbeitsblatt in Diagrammblatt übertragen		Rechnung mit Überträgen
Werte zu Zieladressen übertragen		Werte nur mit Zahlenformaten übertragen
Werte aus UserForm-TextBox in bestimmten Formate übertragen		Zellinhalte aus Einzelblättern in Deckblatt übertragen
Daten in umgekehrter Reihenfolge übertragen		Namen der Leute mit dem höchsten Umsatz übertragen
Filtern und Ergebnisse in Tabellen übertragen		Wert in Tabelle 2 suchen und Fundstellen übertragen
Daten übertragen oder addieren		Werte übertragen, wenn numerisch
Gruppenüberschriften in Nebenspalten übertragen		ListBox-Elemente beim Anklicken in Tabelle übertragen
UserForm-TextBox-Eingaben im Format [hh]:mm in Zellen übertragen		Werte vergleichen und übertragen