Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
776to780
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
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten aus verschiedenen sheets in Hauptsheet

Daten aus verschiedenen sheets in Hauptsheet
29.06.2006 13:04:07
Uschi
Hallo liebes Forum,
ich habe eine Datei mit mehreren Blättern. Nun müssen in das Hauptblatt Daten aus den Folgeblättern eingetragen werden. D.h. die Namen in Spalte A vom Blatt "2006" müssen der Reihe nach durchlaufen werden. Es muß jeweils der Name in einem Folgeblatt gefunden werden und dann muß einmal der dazugehörige Wert aus der Spalte O aus z.B. "Team1" ins Blatt "2006" in Spalte C eingetragen werden und der zugehörige Wert aus Spalte N in "Team1" in die Spalte D im Blatt "2006". Ich denke wenn man sich den angehängten File anschaut versteht man, wie ich es meine.
Ein Name aus "2006" kann nur in einem Folgeblatt vorkommen. Man muß also nur nach dem ersten Treffer suchen.
Schwierig wird es, weil die Werte, die ich brauche, in den Team-Blättern nicht in der gleichen Zeile stehen, wie die Namen.
https://www.herber.de/bbs/user/34739.xls
Vielen Dank schon mal an alle.
Gruß
Uschi

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus verschiedenen sheets in Hauptsheet
01.07.2006 13:32:59
Gerd
Hallo Uschi,
das geht.
'Deine Datei öfnen
'Den VBA-Editor mit ALT + F11 öffnen,
' Menüleiste "Einfügen" -- "Modul" anklicken
' nachfolgenden Code ins Modul einfügen
' Speichern, Fenster schließen
'Starten im Excel mit ALT + F8 u. "ausführen"

Sub Daten_ins_Hauptblatt()
Dim i As Long, z As Long, strName As String, Gefunden As Range
With ThisWorkbook.Worksheets("2006")
For i = 2 To .Cells(2, 1).End(xlDown).Row
strName = .Cells(i, 1).Value
For z = 2 To Worksheets.Count
If Left(Worksheets(z).Name, 4) = "Team" Then
Set Gefunden = _
Worksheets(z).Range(Worksheets(z).Cells(6, 1), _
Worksheets(z).Cells(Rows.Count, 1).End(xlUp)) _
.Find(strName)
If Not Gefunden Is Nothing Then
.Cells(i, 3).Value = Gefunden.Offset(2, 13).Value
.Cells(i, 4).Value = Gefunden.Offset(1, 14).Value
z = Worksheets.Count
End If
End If
Next z
Next i
End With
End Sub

Gruß
Gerd
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige