Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kleinigkeit...

Kleinigkeit...
24.04.2006 15:58:01
Guenther
Hallo zusammen
folgendes Problem:
Wie kann ich Informationen, die in Sheet1 reihenweise eingetragen werden sollen, in sheet2 spaltenweise darstellen. also:
sheet1: a1=Kurt, b1=karl,...
sheet2: a1=kurt, a2=karl,...
Immer wenn ich in sheet1 etwas eintrage, soll es in sheet2 automatisch uebernnommen werden.
Kann mir nicht vorstellen, dass die Loesung schwierig ist, aber komme grad echt nicht dahinter.
Kann mir vielleicht jmd. helfen?
Vielen Dank dafuer!
Guenther

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kleinigkeit...
24.04.2006 16:06:43
UweN
Hallo Günther,
schreib' diese Formel in A1 in Sheet2:
=INDIRECT("Sheet1!"&ADDRESS(COLUMN();ROW()))
oder auf deutsch:
=INDIREkT("Sheet1!"&ADRESSE(Spalte();Zeile()))
Diese Formel kannst Du jetzt in jede Richtung kopieren.
Hilft das weiter ?
Gruss
Uwe
AW: Kleinigkeit...
24.04.2006 16:22:13
Guenther
Hallo Uwe,
vielen Dank, aber ich steh auf der Leitung. Innerhalb der gleichen Datei brauche ich die Infos aus d2 (sheet1) in a2(sheet2). Muss es dann heissen:
=INDIRECT("Sheet1!"(COLUMN(d);ROW(2))) ?
Bitte nochmals um kruze Antwort - DANKE!
AW: Kleinigkeit...
24.04.2006 16:42:47
UweN
Hallo Günther,
wenn Deine Daten in Sheet1 in A2 beginnen, dann schreibst Du in Sheet2!D2 diese Formel rein:
=INDIRECT("Sheet1!"&ADDRESS(COLUMN(B1);ROW(A1)))
Diese Formel kannst Du dann nach rechts und nach unten kopieren.
Gruss
Uwe
Anzeige
AW: Kleinigkeit...
24.04.2006 16:53:07
Guenther
Danke, dass du es nochmal erklaert hast.
Gruesse Guenther
AW: Kleinigkeit...
24.04.2006 16:08:35
loca
das einzige was ich sehe, wär das ganze sheet mit formeln zu füllen....

Sub transformation ()
Sheets("sheet2").Select
For row = 1 To 50
For column = 1 To 50
Cells(row, column) = "=sheet1!R" & column & "C" & row
Next column
Next row
End Sub

AW: Kleinigkeit...
24.04.2006 16:41:52
Guenther
Danke - damit sollte es funktionieren
Gruesse Guenther

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige