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
Betrifft: AW: Zeilenbereich auf Tabelle übertragen
von: Stefan
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