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

Wortbezüge automatisch in anderes Arbeitsblatt

Forumthread: 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
Anzeige

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
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige