Das Archiv des Excel-Forums
Das Archiv des Excel-Forums
Betrifft: Zeilenbereich auf Tabelle übertragen
von: Stefan
Geschrieben am: 06.09.2019 23:43:36
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
Geschrieben am: 07.09.2019 09:38:10
Servus Hajo,
stimmt da hast du recht ... könnte schwierig werden sich das ganze vorzustellen
Hab die Datei jetzt frei geräumt und ein paar Beispieldaten eingegeben.
Hoffe das passt so :)
https://www.herber.de/bbs/user/131895.xls
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
Geschrieben am: 07.09.2019 10:41:11
Na vielen Dank auch ...
wennst an schlechten Tag hast dann bleib im Bett aber lass es nich an mir aus ...
Zur Info ... da waren Daten eingetragen. Allerdings hatte die Datei zuviele MB und so musste ich löschen und löschen und löschen und anscheinend hab ich dann die Zeilen mit den Daten in Tabelle 1 auch erwischt.
Ich lad jetzt nochmal eine Datei hoch wo wieder daten drin stehen.
Meine Info hast aber schon mitbekommen,
dass ich zum ersten mal hier bin und ich somit nicht weis wie jeder es gerne hätte.
Ich bin froh über jede Hilfe aber glei von Anfang an komisch anreden lassen, muss ich mich auch nich!
So hoffe es passt jetzt Danke an jede weitere Hilfe die kommt
Gruß Stefan
https://www.herber.de/bbs/user/131896.xls
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
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