Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 21:30:42
Bilder aus URL in Zelle einfügen - Code anpassen
07.05.2024 20:36:09
xverweis / name Funktion
07.05.2024 20:10:42
Datum z.B. 1897 wird nicht als Datum angezeigt
07.05.2024 19:47:07
Excel Lohnabrechnung anhand 2 Suchkriterien
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
AW: mehrere Tabellenblätter
21.09.2004 09:21:14
Klaus
Hallo Uwe
Du bist unbezahlbar...........
Wunderbar, es klappt prima
Gruss Klaus
Anzeige
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
AW: klappt doch nicht
21.09.2004 10:01:32
Klaus
Hi Uwe
nun gehts!!!!!!!!!
Nochmals vielen Dank
Gruss Klaus

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige