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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige