Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
160to164
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!!!

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige