title image


Smiley Re: Wie automatisch Bezüge auf Tabellenblätter erstellen?
Hallo,



die Zieltabelle muss das erste Blatt sein, also ganz links stehen.

Mit dieser Prozedur kannst Du alles übertragen:



Sub Btest()

Dim vArr() As Variant

Dim lngWs As Long

Dim lngZ As Long

lngWs = ThisWorkbook.Worksheets.Count

ReDim vArr(2 To lngWs, 1 To 1)

For lngZ = 2 To lngWs

vArr(lngZ, 1) = "=" & Worksheets(lngZ).Cells(2, 1).Address(External:=True)

Next lngZ

ActiveSheet.Range(Range("A1"), Range("A1").Offset(lngWs - 2, 0)) = vArr

End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß Uwe



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: