title image


Smiley Re: je eine zeile aus 250 tabellen in eine kopieren
Hallo Christophleider hast du nicht geschrieben wohin die Daten in Tabelle "Daten" sollen. Ich habe si nun ab A1 kopiertSub Kopieren()    Dim I As Integer    For I = 1 To 250        Worksheets(I).Range("AB2:EZ2").Copy Destination:=Worksheets("Daten").Range("A" & I)    NextEnd SubNoch einen schönen Sonntag.Gruß Hajo

 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: