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

Wortbezüge automatisch in anderes Arbeitsblatt

Wortbezüge automatisch in anderes Arbeitsblatt
03.12.2003 08:00:41
Oliver Meyer
Hallo zusammen,

ich will aus einer Arbeitsmappe Werte, die unter einer bestimmten Kategorie aufgeführt sind, automatisch in ener anderen Arbeitsmappe, die den Namen der Kategorie hat, übertragen.
Als Beispiel,ich habe eine Zeile mit:

A1=Kategorie , A2=Betrag, A3=Verbraucher, A4=XXXXXXX, usw.; dann:
B1=Schreibwaren, B2=15DM , B3=Oliver , B4=XXXXXXX, usw.

im Arbeitsblatt "Auflistung" und will, dass alle Werte die in einer Zeile stehen und in der Spalte "Kategorie" dem Begriff "Schreibwaren" zugeordnet sind, in einem anderen Arbeitblatt, dass den Namen "Schreibwaren" hat, automatisch aufgelistet werden.

Kann mir jemand dabei helfen,

Grüsse

Oliver

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wortbezüge automatisch in anderes Arbeitsblatt
03.12.2003 10:05:30
Martin Beck
Hallo Oliver,

versuch's mal mit folgendem Makro:


Sub Aufteilen()
Set wks = Worksheets("Auflistung")
s = wks.Range("A1").End(xlToRight).Column
For i = 2 To s
Blatt = wks.Cells(1, i)
wks.Columns(i).Copy Destination:=Worksheets(Blatt).Range("A1")
Next i
End Sub


Gruß
Martin Beck

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige