Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

felder in andere tabellenblatt einfuegen

Forumthread: felder in andere tabellenblatt einfuegen

felder in andere tabellenblatt einfuegen
25.09.2002 17: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 18: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 18: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

Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
22.08.2008 00:08:00
Thread-ID: 1003658
2 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 17:48:18
Thread-ID: 1004492
7 Beiträge
Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 19:54:00
Thread-ID: 1006231
3 Beiträge
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
17.09.2008 00:51:11
Thread-ID: 1010207
5 Beiträge
Wechselbild in der Tabelle
WalterK

Hallo,
die angehängte Tabelle habe ich in der Recherche gefunden, mittels VBA wird ein Wechselbild gesteuert.
2 Fragen hätte ich dazu:
1.) Ich möchte 2 andere Bilder einfügen, wie kann ich diese dann mit dem Makro ansprechen, muss ich den Bildern Namen geben ....?
2.) Das Makro...
18.09.2008 21:50:12
Thread-ID: 1010845
8 Beiträge
Datensätze in Tabellenblätter schreiben
TomTom


Hi,
ich habe eine Excelmappe mit 4 Bättern. Auf dem ersten Blatt (Spalte A) stehen die Rohdaten drin. Die sehen in etwar so aus:
START;flag,2,23,,,,34,45,33,45,,,,,,,56
ATTEMPT;flag,1,45,,12,,34,,,45,,,,,7,,56
START;flag,2,23,,,,34,45,33,45,,,,,,,56
STOP;flag,3,45,,5,,,...
30.09.2008 15:43:00
Thread-ID: 1013375
2 Beiträge
Anzeige
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 10:11:00
Thread-ID: 1013510
5 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 12:06:48
Thread-ID: 1014629
3 Beiträge
Anzeige
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 13:24:26
Thread-ID: 1015295
1 Beitrag
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 12:53:15
Thread-ID: 1016793
4 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum