Thema Datum  Von Nutzer Rating
Antwort
11.04.2009 16:49:51 loulita
NotSolved
Blau Aw:Tabelle basteln
 16.04.2009 10:41:55 Holger
NotSolved
18.04.2009 19:46:21 loulita
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
16.04.2009 10:41:55		 Views:
979		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Tabelle basteln
Hallo loulita,
deine Spezifikation reicht für einen konkreten Vorschlag nicht aus. Der Abstand zwischen den Beispielspalten ist z.B. 6 und nicht 3. Die Systematik, welche Zeile weche Spalte füllen soll, ist völlig offen.
Befinden sich Quell- und Zielspalten auf einem oder mehreren Tabellenblättern?
Hinweise:
Ein Tabellenblatt aktivierst du mit
sheets("Tabellenblattname").activate
Die letzte beschriebene Spalte der Zeile i auf dem aktiven Tabellenblatt erhälst du z.B. mit
a = Cells(i, Columns.Count).End(xlToLeft).Column
auf einem anderen Tabellenblatt
a = sheets("Tabellenblattname").Cells(i, Columns.Count).End(xlToLeft).Column
den Inhalt einer Zelle sprichst du mit
a=sheets("Tabellenblattname").cells(Zeilennummer,Spaltennummer).value
an, wobei du "Value" auch weglassen kannst wie auch "sheets("Tabellenblattname")." auf dem aktiven Tabellenblatt. Zeilen und spalten beginnen ihre Zählung mit 1.
Daten von einer Zelle in eine andere überträgst du also mit
sheets("Zieltabellenblattname").cells(Zielzeilennummer,Zielspaltennummer).value=sheets("Quelltabellenblattname").cells(Quellezeilennummer,Quellspaltennummer).value
Eine Schleife von der Spalte G bis zu letzten Spalte der Zeile 3 mit der Sprunggröße 6 zur Abbildung der Tabellenwerte in die erste Spalte kannst du z.B. mit
for i=7 to Cells(i, Columns.Count).End(xlToLeft).Column Step 6
sheets("Zieltabellenblattname").cells((i-7)/6+1,1)=sheets("Quelltabellenblattname").cells(3,i)
next i
erreichen.
Wenn du die Reihenfolge der Zeilen z.B. in ein Array eingibst, kannst du z.B.
z=array(3,2,...)
for j=0 to ubound(z)
for i=7 to Cells(i, Columns.Count).End(xlToLeft).Column Step 6
sheets("Zieltabellenblattname").cells((i-7)/6+1,j+1)=sheets("Quelltabellenblattname").cells(z(j),i)
next i
next j
den Kopiervorgang durchführen.
Jetzt musst du selbst etwas basteln.
Ich hoffe, dass meine Hinweise geholfen haben. Den Code habe ich nicht getestet.
Gruß
Holger



loulita schrieb am 11.04.2009 16:49:51:

Hallo zusammen,

ich habe ein kleines Problem:

Ich soll eine Tabelle aufbauen, die Werte stehen in verschieden Plätzen aber in gleichen Zeilen(z.B. die erste Spalte besteht aus G3, M3, S3,....Immer um 3 Spalten weiter und die Zweite aus G2, M2, S2)

Hat jemand eine Idee?

Danke im Voraus

Gruss

loulita


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.04.2009 16:49:51 loulita
NotSolved
Blau Aw:Tabelle basteln
 16.04.2009 10:41:55 Holger
NotSolved
18.04.2009 19:46:21 loulita
NotSolved