Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel vba Spalten umkopieren
#1
Hallo zusammen,

habe leider schon wieder eine Frage an Euch und hoffe auf Hilfe.

Ich möchte im ersten Schritt in einem Workbook aus einer Tabelle Werte aus einer Spalte (die ganze Spalte) in eine andere Tabelle in der gleichen Datei kopieren.

Mit diesem Code habe ich es versucht - es kommt aber eine Fehlermeldung und ich komme nicht drauf wo das Problem liegt.
Es kommt immer der Fehler Laufzeitfehler 40036 - Anwendungs- oder objektdefinierter Fehler.

Code:
Sub SpaltenKopieren()
  Dim Spalte As Integer
  Dim ZielSpalte As Integer
 
  dayOffset = 2
  strZeile = 5
  Spalte = 16
 
  With ActiveSheet
     
      'Aus Datum den Tag ermitteln + Offset für Zielspalte
      datTag = Left(Range("L10"), 2) + dayOffset
      Sheet2 = Format(Range("L10"), "MMMM")        'hier soll der Monat herausgelesen werden.
     
      ZielSpalte = datTag
     
      lRow = Cells(Rows.Count, 4).End(xlUp).Row
      Range("D1:D" & lRow).SpecialCells(xlCellTypeVisible).Copy _
        Destination:=Sheets(Sheet2).Range(Cells(strZeile, ZielSpalte), Cells(strZeile, ZielSpalte))
       
  End With
End Sub

Was mache ich da falsch?

Und weitergehend, wie müsste der Code aussehen wenn ich die kopierte Spalte in eine andere Datei auf ein bestimmtes Tabellenblatt kopieren möchte?

Vielleicht habt Ihr mir ja eine Lösung für beide Fragen.
Mit freundlichen Grüßen / Best regards
                          //
----------o00o---°(_)°---o00o----------------------

Erich
Antwortento top
#2
Hallo

so??
Code:
Sub SpaltenKopieren()
  Dim Spalte As Integer
  Dim ZielSpalte As Integer
  Dim dayOffset As Integer, strZeile As Integer, datTag As Integer, sheet2 As Worksheet, lrow As Long
  Dim WB As Workbook
 
  Set WB = Workbooks("Mappe2.xlsx") 'Beispiel. Muss geöffnet sein
 
  dayOffset = 2
  strZeile = 5
  Spalte = 16

  With ActiveSheet
    
      'Aus Datum den Tag ermitteln + Offset für Zielspalte
      datTag = Left(Range("L10"), 2) + dayOffset
      Set sheet2 = WB.Sheets(Format(Range("L10"), "MMMM"))        'hier soll der Monat herausgelesen werden.
    
      ZielSpalte = datTag
    
      lrow = Cells(Rows.Count, 4).End(xlUp).Row
      .Range("D1:D" & lrow).SpecialCells(xlCellTypeVisible).Copy _
        Destination:=sheet2.Cells(strZeile, ZielSpalte)
  End With
End Sub


LG UweD
[-] Folgende(r) 1 Benutzer sagt Danke an UweD für diesen Beitrag:
  • sharky51
Antwortento top
#3
Hallo Uwe,

danke für die Hilfe und den Hinweis.

Funktioniert prima!
Mit freundlichen Grüßen / Best regards
                          //
----------o00o---°(_)°---o00o----------------------

Erich
[-] Folgende(r) 1 Benutzer sagt Danke an sharky51 für diesen Beitrag:
  • UweD
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste