title image


Smiley Re: Aus Access exportierte Tabelle transponieren
Hallo,



wenn deine Daten in Spalte A (ab Zeile 1 untereinander) in Tabelle1 stehen,

dann werden sie mit dem nachfolgenden Makro in Tabelle2 in die Zeile 1 transponiert.



Gruß Peter



Sub Transponieren()



Dim WkShQ As Worksheet

Dim WkShZ As Worksheet

Dim lLetzte As Long



Application.ScreenUpdating = False



On Error Resume Next



Set WkShQ = Worksheets("Tabelle1")

Set WkShZ = Worksheets("Tabelle2")



If WkShQ.Range("A65536") = "" Then lLetzte = WkShQ.Range("A65536").End(xlUp).Row

If lLetzte > 256 Then

MsgBox "Es sind mehr als 256 Zeilen zu transponieren, das geht nicht.", _

16, " zu viele Zeilen."

Exit Sub

End If



WkShZ.Range("A1:Z" & lLetzte).ClearContents



WkShQ.Range("A1:A" & lLetzte).Copy

WkShZ.Range("A1").PasteSpecial Paste:=xlPasteValues, Transpose:=True



Application.ScreenUpdating = True



End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: