Thema Datum  Von Nutzer Rating
Antwort
01.08.2017 17:03:15 Anna
NotSolved
01.08.2017 17:43:48 Kai
NotSolved
Rot "Kopier-Schleife" mit variablem Zellbereich
 01.08.2017 17:47:32 Kai
NotSolved
02.08.2017 09:49:26 Anna
NotSolved

Ansicht des Beitrags:
Von:
Kai		 Datum:
01.08.2017 17:47:32		 Views:
628		 Rating:
     
Antwort:
  Ja
Thema:
"Kopier-Schleife" mit variablem Zellbereich

Hallo Anna,

 

bist Du sicher, dass Du die Werte im gleichen Sheet in Zelle B3 einfügen möchstest?

Ich habe ein neues sheet "insert" eingefügt, in das die Daten kopiert werden.

So sollte es funtionieren:

 

Sub SpaltenKopieren()

Dim n_cust, n_prod, Kopierspalte_Ende As Integer
n_cust = 70
n_prod = 6
Kopierspalte_Ende = n_cust + n_prod + 2

Dim lngLetzteZeile As Long

'letzte verwendete Zeile in Spale A ermitteln
lngLetzteZeile = Worksheets("LGs").Cells(Rows.Count, 1).End(xlUp).Row

With Worksheets("LGs")

 .Range(.Cells(2, 2), .Cells(lngLetzteZeile, Kopierspalte_Ende)).Copy
 Sheets("insert").Range("B3").PasteSpecial Paste:=xlValues

End With

End Sub

 

Viele Grüße

 

Kai

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
01.08.2017 17:03:15 Anna
NotSolved
01.08.2017 17:43:48 Kai
NotSolved
Rot "Kopier-Schleife" mit variablem Zellbereich
 01.08.2017 17:47:32 Kai
NotSolved
02.08.2017 09:49:26 Anna
NotSolved