Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Tabellenblätter

Forumthread: mehrere Tabellenblätter

mehrere Tabellenblätter
21.09.2004 08:23:58
Klaus
Hallo nochmals
Ich habe nun noch folgendes Problem:
Ich möchte den Wert (es sind Nachnamen) der Aktiven Zelle aus der Tabelle "Mitarbeiter" in mehreren Tabellenblättern (Januar-Dezember)in den Spalten "C" suchen lassen. Ist der Name gefunden, soll der Wert rechts neben dem Suchnamen der Tabelle "Mitarbeiter" in die 14. Spalte ("N") der Tabellen (Januar-Dezember) eintragen werden.
Ich hoffe, es ist einigermassen verständlich...
Vielen Dank im Voraus
Gruss Klaus
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Tabellenblätter
21.09.2004 09:05:56
Uwe Küstner
Hallo Klaus,
so sollte es gehen: 

Sub SucheNamen()
Dim strN As String
Dim ws As Worksheet
Dim wsArray As Sheets
Dim rngZelle As Range
Dim rngSpalte As Range
Set wsArray = ActiveWorkbook.Sheets(Array("Januar", "Februar", "März", "April")) 'usw. bis Dezember
strN = ActiveCell
For Each ws In wsArray
Set rngSpalte = ws.Range("C1", ws.Cells(Rows.Count, 3).End(xlUp))
For Each rngZelle In rngSpalte.Cells
If rngZelle.Value = strN Then
rngZelle.Offset(0, 11) = ActiveCell.Offset(0, 1).Value
Exit Sub
End If
Next rngZelle
Next ws
End Sub
Gruß Uwe
Anzeige
AW: mehrere Tabellenblätter
21.09.2004 09:21:14
Klaus
Hallo Uwe
Du bist unbezahlbar...........
Wunderbar, es klappt prima
Gruss Klaus
klappt doch nicht
21.09.2004 09:45:54
Klaus
Hallo Uwe
Leider klappt es doch nicht so ganz. Der Wert wird nur im Tabellenblatt "Januar" eingetragen
Gruss Klaus
AW: klappt doch nicht
21.09.2004 09:55:24
Uwe Küstner
Hallo Klaus,
oh, hab ich vergessen zu ändern: ersetze das 'Exit Sub' durch 'Exit For'.
Sollte der gesuchte Name mehrmals in einem Blatt vorkommen können, dann entferne
das 'Exit ...' ganz.
Gruß Uwe
Anzeige
AW: klappt doch nicht
21.09.2004 10:01:32
Klaus
Hi Uwe
nun gehts!!!!!!!!!
Nochmals vielen Dank
Gruss Klaus
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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