Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen aus Spalten vaiable übernehmen und anfügen
08.07.2019 10:38:30 Andrea
NotSolved
08.07.2019 10:50:52 ANdrea
NotSolved
08.07.2019 13:51:24 Gast59027
NotSolved
08.07.2019 13:52:47 Gast59027
NotSolved
08.07.2019 20:56:53 Gast2506
NotSolved
10.07.2019 03:51:23 Werner
NotSolved
10.07.2019 11:10:05 Andrea
NotSolved
10.07.2019 12:57:12 Gast59027
NotSolved
10.07.2019 13:34:18 Werner
*****
NotSolved
19.07.2019 14:42:06 Gast26468
NotSolved

Ansicht des Beitrags:
Von:
Andrea
Datum:
08.07.2019 10:38:30
Views:
99
Rating: Antwort:
  Ja
Thema:
Zellen aus Spalten vaiable übernehmen und anfügen
Hallo, ich habe ein Problem. Ich möchte aus einer Tabelle bestimmte Zellen pro Spalte (von Zeile 15 bis zu letzt benutzten Zeile) an das Ende einer anderen Tabelle kopieren. Eigentlich sind es mehrere Spalten aber ich scheitere schon eine zu kopieren. Das war mein Versuch und es führt zu einen Laufzeitfehler 13. Das ganze sieht im Moment so aus: Sub KopiereBereich() Dim Quelltab As Worksheet Dim Zieltab As Worksheet Dim Zelle As Range Dim Zaehler As Long Set Zieltab = ActiveWorkbook.Worksheets("Test") Dim I As Long Dim J As Long Dim LetzteZeileZieltab As Long Dim LetzteZeileQuelltab As Long 'On Error GoTo Fehlerbehandlung 'Daten der Anlage übernehmen For I = 5 To Worksheets.Count If Worksheets(I).Cells(1, 3).Value <> "" Then LetzteZeileZieltab = Zieltab.Cells(Rows.Count, 2).End(xlUp).Row LetzteZeileZieltab = LetzteZeileZieltab + 1 Worksheets(I).Range("C1:C13").Copy Zieltab.Cells(LetzteZeileZieltab, 2).PasteSpecial Transpose:=True Application.CutCopyMode = False LetzteZeileQuelltab = Worksheets(I).Cells(Rows.Count, 2).End(xlUp).Row 'For J = 15 To LetzteZeileQuelltab Worksheets(I).Range(Cells(J, 1), Cells(LetzteZeileQuelltab, 1)).Copy _ Destination:=Worksheets(Zieltab).Range(Cells(LetzteZeileZieltab, 16), Cells(LetzteZeileQuelltab _ LetzteZeileZieltab + 1, 16)) ', (Range("K" & J & ":K" & LetzteZeileQuelltab))).Select 'Worksheets(Zieltab).Cells("O" & LetzteZeileZieltab).Select 'Worksheet(Zieltab).Range(.Cells(LetzteZeileZieltab, 16), .Cells( _ LetzteZeileZieltab + LetzteZeileQuelltab, 16)).Paste 'LetzteZeileQuelltab = LetzteZeileQuelltab + 1 'Next J End If Next I Fehlerbehandlung: End Sub Der Fehler kommt an der Zeile: Worksheets(I).Range(Cells(J, 1), Cells(LetzteZeileQuelltab, 1)).Copy Destination:=Worksheets(Zieltab).Range(Cells(LetzteZeileZieltab, 16), Cells(LetzteZeileQuelltab + LetzteZeileZieltab + 1, 16)) Über HIlfe wäre ich super dankbar

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen aus Spalten vaiable übernehmen und anfügen
08.07.2019 10:38:30 Andrea
NotSolved
08.07.2019 10:50:52 ANdrea
NotSolved
08.07.2019 13:51:24 Gast59027
NotSolved
08.07.2019 13:52:47 Gast59027
NotSolved
08.07.2019 20:56:53 Gast2506
NotSolved
10.07.2019 03:51:23 Werner
NotSolved
10.07.2019 11:10:05 Andrea
NotSolved
10.07.2019 12:57:12 Gast59027
NotSolved
10.07.2019 13:34:18 Werner
*****
NotSolved
19.07.2019 14:42:06 Gast26468
NotSolved