Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
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
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum suchen in anderem Blatt

Datum suchen in anderem Blatt
Nico
Hallöchen,
da mein letzter Beitrag wohl zu schwer war, hier eine Teilfrage:
Ich habe im Blatt 1 ein Datum in Zeile F6 (z.B. 10_2010).
In Blatt 2 habe ich eine Datumsreihe
01_2010
02_2010
...
02_2011 in Spalte A, Zeile 8-19.
Nun möchte ich, das die Zelle in Blatt 2, Spalte A, die das gleich Datum erhält wie in Zeile F6, Blatt1, markiert wird.
Danke für die Mühe.
Nico

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum suchen in anderem Blatt
26.10.2010 16:51:28
selli
hallo nico,
nimm die bedingte formatierung.
sie funktioniert allerdings nicht blattübergreifend, so dass eine zelle im 2.blatt eine verknüpfung zu blatt1 f6 haben sollte auf die sich die bedingte formatierung deiner datumszellen in blatt 2 bezieht.
gruß selli
AW: Datum suchen in anderem Blatt
26.10.2010 16:59:02
Nico
geht leider nicht, da ich dann noch weitermachen muss. Was ich genau brauche:
Wenn die Zeile in Blatt 2 erkannt ist, in der das gleiche Datum steht, dann soll in DIESER Zeile in
Spalte D, H, L, P, T die dort enthaltene Formel in Werte umgewandelt werden. Wollte ich dann ungefähr so machen:
Datum.Value = Datum.Value
Datum.Offset(0, 4) = Datum.Offset(0, 4)
Datum.Offset(0, 8) = Datum.Offset(0, 8)
Datum.Offset(0, 12) = Datum.Offset(0, 12)
Datum.Offset(0, 16) = Datum.Offset(0, 16)
und das für 9 Tabellenblätter. Mir fehlt irgendwie aber der Anfang oder die genaue Definition der Variable.
Wenn hier jemand eine Idee hat - gern :-)).
Anzeige
AW: evtl mit find ?
26.10.2010 17:27:31
hary
Hallo Nico
teste mal. 

Sub n()
Dim zelle As Range
With Worksheets("Tabelle2").Range("A:A")
Set zelle = .Find(Sheets("Tabelle1").Range("F6").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not zelle Is Nothing Then
zelle.Interior.ColorIndex = 3
End If
End With
End Sub

gruss hary
AW: evtl mit find ?
26.10.2010 17:54:54
Nico
super. Mit Harys code hat es geklappt. Ich habe jetzt nur "mache rot" durch ersetze Formel durch Wert geändert:
Dim zelle As Range
With Worksheets("Blatt2").Range("A8:A19")
Set zelle = .Find(Sheets("START").Range("F6").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not zelle Is Nothing Then
zelle.Offset(0, 3) = zelle.Offset(0, 3)
zelle.Offset(0, 7) = zelle.Offset(0, 7)
zelle.Offset(0, 11) = zelle.Offset(0, 11)
zelle.Offset(0, 15) = zelle.Offset(0, 15)
zelle.Offset(0, 19) = zelle.Offset(0, 19)
End If
End With
Das i-Tüpfelchen wäre es jetzt noch, wenn ich alle 9 Blätter mit einem Code durchlaufen könnte, so ungefähr:
With Worksheets("Blatt2").Range("A8:A19") AND (&) Worksheets("Blatt4") AND .....
Ist das irgendwie machbar?
Anzeige
AW: evtl mit find ?
26.10.2010 18:08:09
hary
Hallo Nico
Teste mal in einer Kopie deiner Mappe.
Code ungetestet! 

Sub test()
Dim Sh As Worksheet
Dim zelle As Range
Application.ScreenUpdating = False
For Each Sh In Worksheets
If Sh.Name  "Start" Then
With Sh.Range("A8:A19")
Set zelle = .Find(Sheets("START").Range("F6").Value, LookIn:=xlValues, lookat:= _
xlWhole)
If Not zelle Is Nothing Then
zelle.Offset(0, 3) = zelle.Offset(0, 3)
zelle.Offset(0, 7) = zelle.Offset(0, 7)
zelle.Offset(0, 11) = zelle.Offset(0, 11)
zelle.Offset(0, 15) = zelle.Offset(0, 15)
zelle.Offset(0, 19) = zelle.Offset(0, 19)
End If
End With
End If
Next
Set zelle = Nothing
Application.ScreenUpdating = True
End Sub

gruss hary
Anzeige
AW: evtl mit find ?
26.10.2010 18:11:00
Nico
Hey Hary,
ist leider nicht jedes Worksheet. Nur 9 von 16. Oder kann ich diese so anordnen, dass man sagen kann:
for worksheet (1) bis worksheet (9)?
AW: evtl mit find ?
26.10.2010 18:19:35
hary
Hallo
Mit sheet(1) spricht man die Stelle der Tabelle an. Wenn die nicht an erster Stelle(ganz links) sitzt geht es nicht.
Wie heissen die Tabellen, Du schreibst was von Blatt2 Blatt4, wie gehts weiter?
gruss hary
AW: evtl mit find ?
26.10.2010 18:28:04
Nico
Die Blätter heißen:
932V, 933V, 923V, 954V,
932P, 933P, 923P, 954P, 959P
Und wenn ich alle 9 als erste Blätter setze?
AW: evtl mit find ?
26.10.2010 18:32:36
hary
Hallo
wenn Du die aan den Anfang setzt, versuchs mal so. Ungeteste. 

Sub n()
Dim i As Long
Dim zelle As Range
Application.ScreenUpdating = False
For i = 1 To 9 Step 2
With Sheets(i).Range("A8:A19")
Set zelle = .Find(Sheets("START").Range("F6").Value, LookIn:=xlValues, lookat:= _
xlWhole)
If Not zelle Is Nothing Then
zelle.Offset(0, 3) = zelle.Offset(0, 3)
zelle.Offset(0, 7) = zelle.Offset(0, 7)
zelle.Offset(0, 11) = zelle.Offset(0, 11)
zelle.Offset(0, 15) = zelle.Offset(0, 15)
zelle.Offset(0, 19) = zelle.Offset(0, 19)
End If
End With
Next
Set zelle = Nothing
Application.ScreenUpdating = True
End Sub

gruss hary
muss ertmal weg.
Anzeige
AW: evtl mit find ?
26.10.2010 18:48:52
Nico
Super, hat geklappt!! Habe sogar noch meine START-Tabelle und eine CHECK-Tab vorweg gestellt.
Danke für deine Mühe und dir noch einen schönen Abend
Nico
Dim i As Long
Dim zelle As Range
Application.ScreenUpdating = False
For i = 3 To 11 Step 1
With Sheets(i).Range("A8:A19")
Set zelle = .Find(Sheets("START").Range("F6").Value, LookIn:=xlValues, lookat:= _
xlWhole)
If Not zelle Is Nothing Then
zelle.Offset(0, 3) = zelle.Offset(0, 3)
zelle.Offset(0, 7) = zelle.Offset(0, 7)
zelle.Offset(0, 11) = zelle.Offset(0, 11)
zelle.Offset(0, 15) = zelle.Offset(0, 15)
zelle.Offset(0, 19) = zelle.Offset(0, 19)
End If
End With
Next
Set zelle = Nothing
Application.ScreenUpdating = True
Anzeige
AW: mit Array
26.10.2010 20:32:10
hary
Hallo Nico
so koennen die betr. Tabelle stehen wo sie wollen. 

Sub n()
Dim blaetter, wks As Worksheet, n As Integer
Dim ZELLE As Range
Application.ScreenUpdating = False
blaetter = Array("932V", "933V", "923V", "954V", "932P", "933P", "923P", "954P", "959P")
For Each wks In Worksheets
For n = 0 To UBound(blaetter)
If blaetter(n) = wks.Name Then
With wks.Range("A8:A19")
Set ZELLE = .Find(Sheets("START").Range("F6").Value, LookIn:=xlValues, lookat:= _
xlWhole)
If Not ZELLE Is Nothing Then
ZELLE.Offset(0, 3) = ZELLE.Offset(0, 3)
ZELLE.Offset(0, 7) = ZELLE.Offset(0, 7)
ZELLE.Offset(0, 11) = ZELLE.Offset(0, 11)
ZELLE.Offset(0, 15) = ZELLE.Offset(0, 15)
ZELLE.Offset(0, 19) = ZELLE.Offset(0, 19)
End If
End With
End If
Next n
Next wks
Set Zelle = nothing
Application.ScreenUpdating = True
End Sub

gruss hary
Anzeige
@Selli anderem Blatt
26.10.2010 17:08:44
hary
Hallo Selli
geht auch Blattuebergreifend mit indirekt.
Bsp.Tabelle2 A1Formel ist =A1=INDIREKT("Tabelle1!F6")
gruss hary
AW: @Selli anderem Blatt
26.10.2010 17:15:48
selli
hallo hary, nico (wer auch immer),
dann lass doch bei veränderung der zelle f6 in blatt 1 eine schleife von zelle a8 bis a19 in blatt2 laufen welche die werte vergleicht.
bei übereinstimmung überschreibst du die anschliessenden zellen in der jeweiligenspalte ganz einfach mit ihrem eigenen wert. bsp. cells(i,4).value=cells(i,4).value.
dann ist aber die formel weg.
ein beispiel kann ich dir jetzt leider nicht basteln, weil ich keine zeit mehr habe. morgen evtl.
gruß selli
Anzeige
@ nic AW: @Selli anderem Blatt
26.10.2010 17:17:11
selli
hallo hary,
hab da wohl die personen durcheinander gebracht.
danke für den tipp.
gruß selli

302 Forumthreads zu ähnlichen Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Anzeige
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 15:48:18
Thread-ID: 1004492
8 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Bestimmten wert aus anderer Tabelle ermittlen.
Torsten

stehe gerade etwas auf dem schlauch....grummel sehe bestimmt den formel vor zeilen nicht ;)
also mal meion problem mal kurz umrissen:
Tabelle A - sheet1
Spalte B : Nummern
Spalte G : Bezeichner
Tabelle B - sheet2
Spalte G : Nummern
Spalte H : Bezeichner
erklärung...
10.09.2008 17:31:48
Thread-ID: 1008877
2 Beiträge
Wert aus Tabellenblättern in ein anderes Blatt übe
Heiderer

Hallo!
Folgende Ausgangssituation: Ich habe ein Excel-Sheet mit 4 Tabellenblättern. In Tabelle1 stehen all meine gesamten Produkte. In Tablle 2 – 4 stehen jeweils einzelne Produkte. Nun möchte ich, dass wenn ich einen Wert in der Tabelle 2 – 4 schreibe, dieser mir automatisch in die Tabelle...
11.09.2008 06:58:00
Thread-ID: 1008960
6 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Zelladresse in anderer Tabelle finden
Frank

Hallo Spezi's
zu folgendem Problem hab ich im Archiv nix passendes gefunden. Vielleicht kann ja jemand helfen.
In Tabelle1 finde ich per Makro die erste leere Zelle in Spalte C. Die Spalte C kann unterschiedlich gefüllt sein, darum kann die erste leere Zelle unterschiedliche Adressen ha...
11.11.2008 10:47:00
Thread-ID: 1023458
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
7
2
2
5
1
5
10
4
3
9
3
1
2
17
8
2
2
4
5
1
4
1
3