Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

felder in andere tabellenblatt einfuegen

Forumthread: felder in andere tabellenblatt einfuegen

felder in andere tabellenblatt einfuegen
25.09.2002 15:44:46
thomasdahm
ich habe eine tabelle mit "name" und "vorname" in den ersten zwei spalten und verschiedene kategorien in den folgenden 14 spalten.
Findet sich hinter einem namen in einer kategorie ein eintrag, moechte ich name und vorname in eine Liste in einem anderen Tabellenblatt automatisch einfuegen. Kann mir da jemand weiterhelfen. Vielen Dank!!!

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: felder in andere tabellenblatt einfuegen
25.09.2002 16:03:50
Andi H
versuch mal dieses MAkro,
prüft im ersten Blatt, falls treffer vorhanden werden Name und Vorname ins 2te Tabellenblatt geschrieben
sub test()
dim i as integer
dim x as integer
for x = 2 to 20000
if sheets(1).cells(x,1) = "" then goto fin:
for i = 3 to 14
if cells(x,i) <> "" then goto zz:
next i
goto h:
zz:
sheets(2).activate
cells(65000,1).end(xlup).offset(1,0).value = sheets(1).cells(x,1)
cells(65000,1).end(xlup).offset(0,1).value = sheets(1).cells(x,2)
h:
next x
fin:
end sub

grüsse Andi H

Anzeige
Re: felder in andere tabellenblatt einfuegen
25.09.2002 16:09:30
Chris
Dim name, vorname, anzahlzeilen1, anzahlzeilen2
Sheets("Sheet1").Select
anzahlzeilen1 = Range("A1").End(xlDown).Row
anzahlzeilen2 = 2
For i = 2 To anzahlzeilen1
Sheets("Sheet1").Select
name = ActiveSheet.Cells(i, 1).Formula
vorname = ActiveSheet.Cells(i, 2).Formula
For y = 3 To 17
Sheets("Sheet1").Select
If ActiveSheet.Cells(i, y).Formula <> "" Then
Sheets("Sheet2").Select
ActiveSheet.Cells(anzahlzeilen2, 1).Formula = name
ActiveSheet.Cells(anzahlzeilen2, 2).Formula = vorname
anzahlzeilen2 = anzahlzeilen2 + 1
GoTo ende
End If
Next y
ende:
Next i


Zeile 1 bleibt unberücksichtigt, da ich davon ausgehe, dass du in der 1. Zeile die Titel hast. Die Blattnamen heissen Sheet1 (Quelle) und Sheet2 (Ziel).

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige