title image


Smiley Re: (E97)VBA-Problem: Daten von vertikal in horizontal
Hallo Hardy,



ich finde Deine Aufgabenstellung recht unübersichtlich. Kannst Du mir noch mal in Pseudo-Code aufschreiben, was das Programm leisten soll? Ich glaube, das ist am deutlichsten.



Wenn es nur darum geht, Zelleninhalte von untereinander in nebeneinander zu transponieren, dann schlage ich eine Vereinfachung vor:



Sub vereinfachen()

Dim Zähler As Long

Zähler = 1

Do

Worksheets("tabelle2").Cells(1, Zähler) = Worksheets("tabelle1").Cells(Zähler, 1)

Zähler = Zähler + 1

Loop Until Worksheets("tabelle1").Cells(Zähler, 1) = ""



End Sub



Salute

Alonso
deutschsprachige Wikibooks

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: