Supportnet / Forum / Tabellenkalkulation

hallo zusammen Ich hab da ein kleines problemchen vielleicht kann mir da jemand etwas behilfich sein. ich probiere aus einer Zeile mit daten (Tabelle1) in ein anderes Tabellenblatt (Tabelle2) zu kopieren. Es sollte ungefähr so wie das Beispiel aussehen z.B. Tabelle1: A B C D 1 a 11 33 55 2 b hi al bb 3 c hu uh aa in Tabelle2 sollte es dann so aussehen: A B 1 a 11 2 33 3 55 4 b hi 5 al 6 bb 7 c hu 8 uh 9 aa wenn z.B in C1 (Tabelle1)kein Wert drin steht, sollte in der Tabelle2 die Zeile B2 wegfallen. mfg Chris

Hallo Chris,

Option Explicit

Sub transponieren()
    Dim rngZelle As Range, rngBereich As Range
    Dim intZ As Integer, ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = Worksheets("Tabelle1")
    Set ws2 = Worksheets("Tabelle2")
    Set rngBereich = ws1.Range("A1:C3")
    For Each rngZelle In rngBereich
        intZ = intZ + 1
    ws2.Cells(intZ, 1).Value = rngZelle
    Next
End Sub

Allerdings ist im Code dieser Satz

unberücksichtigt, da ich ihn nicht verstehe.

Gruß
Rainer

Hallo
Versuch das ´mal ein bisschen zu verdeutlichen!
Benutze code - /code für nichtproportionale Zeichendarstellung.

Gruß

ups sry:
vielleicht versteht man das besser:

Tabelle1:
A1 = a
B1 = 11
C1 = 33
D1= 55

in Tabelle2 sollte es dann so aussehen:

A1= a
B2=11
B3=33
B4=55

wenn z.B in C1 (Tabelle1)kein Wert drin steht, sollte in der Tabelle2 die Zeile B2 wegfallen.

Ganz langsam wird´s besser.

• Excel: Zellen kopieren
• Tabelle vergleichen und aktualisiren
• Zahlen in Spalten mit Makro Hochdrehen
• eingebettetes diagramm bearbeiten per VBA
• Zellen kopieren und tiefer einfügen mit Makro