Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1768to1772
1768to1772
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalt suchen mit Text+Datum

Forumthread: Zellinhalt suchen mit Text+Datum

Zellinhalt suchen mit Text+Datum
27.06.2020 12:08:30
Robert
Hallo, ich habe eine Frage. Ich möchte eine Zelle mit festem Text (Schichten bis zum) und variablen Datum (31.05.2020) suchen um dann die Spalte(n) in ein anderes Arbeitsblatt zu kopieren. Das mit dem suchen und kopieren habe ich bereits hin bekommen. Aber das die Zelle auch gefunden wird wenn das Datum variabel ist (mit Platzhalter?) das funktioniert leider nicht. Was muss verändert werden?
ZielSpalte = 1
For Spalte = 1 To .UsedRange.Columns.Count
If .Cells(5, Spalte).Value = "Schichten bis zum 31.05.2020" Then
.Columns(Spalte).Copy Destination:=Worksheets("Basis").Columns(ZielSpalte)
ZielSpalte = ZielSpalte + 1
End If
Next Spalte
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt suchen mit Text+Datum
27.06.2020 12:46:50
Werner
Hallo,
VBA bescheiden - die Beschreibung meiner Meinung nach auch.
Beschreib doch mal was du wie suchen willst.
Wenn ich dich richtig verstehen willst du eigentlich das Datum suchen, nur dass da nicht nur das Datum in der Zelle steht.
Wie suchst du? Gibst du das Datum als Suchbegriff in eine Inputbox ein, oder in eine Zelle?
Am besten wäre eine kleine Beispielmappe in der du den Ablauf darstellst.
Gruß Werner
Anzeige
AW: Zellinhalt suchen mit Text+Datum
27.06.2020 12:50:52
GerdL
Moin Robert!
If Left$(.Cells(5, Spalte), 17).Value = "Schichten bis zum" Then
Der Verweis-Punkt vor "Cells" stammt von dir!
Schicker wäre der Autofilter.
Gruß Gerd
AW: Zellinhalt suchen mit Text+Datum
27.06.2020 13:13:41
Robert
Hallo Gerd,
danke für den Tipp. Leider funktioniert dieser nicht. Ich erhalte immer die Fehlermeldung "Ungültiger Bezeichner" . Was kann damit gemeint sein?
Anzeige
AW: Zellinhalt suchen mit Text+Datum
27.06.2020 13:11:02
Robert
Hallo Werner, das stimmt. Habe mich etwas schlecht ausgedrückt.
Ich möchte den festen Text "Schichten bis zum" in der Zelle (Überschriftszelle) suchen und nicht das Datum da dieses ja monatlich wechselt. Die Spalten sollen dann Vollständig als Werte in ein anderes Arbeitsblatt kopiert werden.
Diese sind dann die Datenbasis für eine nachfolgende Auswertung. Den Suchbegriff würde ich in VBA eintragen da sich die Überschrift nicht ändert bis auf das monatliche Datum.
Anzeige
AW: Zellinhalt suchen mit Text+Datum
27.06.2020 13:23:17
Werner
Hallo,
z.B. so: 
Sub Schaltfläche1_Klicken()
Dim raFund As Range, loSpalte As Long
With Worksheets("Tabelle1")
Set raFund = .Rows(5).Find(what:="Schichten bis zum", _
LookIn:=xlValues, lookat:=xlPart)
If Not raFund Is Nothing Then
loSpalte = raFund.Column
MsgBox loSpalte
End If
End With
Set raFund = Nothing
End Sub
Gruß Werner
Anzeige
AW: Zellinhalt suchen mit Text+Datum
27.06.2020 13:39:53
Robert
Hallo Werner,
danke. das funktioniert schon sehr gut. Das gesuchte wird perfekt gefunden. Welche Änderungen im Code muss ich machen, um die Kopierfunktion für die gesamte Spalte bei der gefundenen Zelle auf Worksheets("Basis") zu übertragen. Hab es probiert aber bekomme es nicht hin. Am besten als "Nur Werte" ?
Anzeige
AW: Zellinhalt suchen mit Text+Datum
27.06.2020 14:39:09
Werner
Hallo,
mit Infos hälst du ziemlich hinter dem Berg.
In deinem ersten Code läufst du in einer Schleife durch die Spalten.
Kommt den dein "Suchbegriff" in Zeile 5 mehrfach vor und alle Spalten mit dem "Suchbegriff" in Zeile 5 sollen kopiert werden?
Gruß Werner
AW: Zellinhalt suchen mit Text+Datum
27.06.2020 15:10:50
Robert
Hallo,
der Suchbegriff kommt nicht mehrfach vor. Nur das Datum. Ja alle Spalten die das gesuchte enthalten sollen kopiert werden. Anbei mal ein Bsp. als Datei beigefügt.
Nur die grünen nicht die gelben Spalten sollen kopiert werden, anhand der Überschrift in der Zeile 5.
https://www.herber.de/bbs/user/138596.xlsm
Anzeige
AW: Zellinhalt suchen mit Text+Datum
27.06.2020 15:34:31
Werner
Hallo,
so: 
Option Explicit
Sub Schaltfläche1_Klicken()
Dim raFund As Range, loZielspalte
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
Set raFund = .Rows(5).Find(what:="Schichten bis zum", LookIn:=xlValues, _
lookat:=xlPart)
If Not raFund Is Nothing Then
.Columns(raFund.Column).Copy
With Worksheets("Basis")
loZielspalte = .Cells(5, .Columns.Count).End(xlToLeft).Offset(, 1).Column
If .Cells(5, 1) = "" Then loZielspalte = 1
.Columns(loZielspalte).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
End With
Set raFund = Nothing
End Sub
Gruß Werner
Anzeige
AW: Zellinhalt suchen mit Text+Datum
27.06.2020 16:01:10
Robert
Funktioniert super! Vielen dank für die schnelle Hilfe und Mühe. Viele Grüße
Gerne u. Danke für die Rückmeldung. o.w.T.
27.06.2020 16:02:53
Werner
;

Forumthreads zu verwandten Themen

Datumsberechnung mit Fiscal Monaten
andi

Hallo, würde mich freuen, wenn mir jemand bei meinem Problem helfen kann: ich habe ein Anfangs- (20.09.2008) und ein Enddatum (12.12.2008) und möchte die Differenz berechnen. Dazu muss ich jeden Monat einzeln dargestellt haben - der angebrochene September und der angebrochene Dezember ergeben d...
25.09.2008 10:48:56
Thread-ID: 1012259
2 Beiträge
Von Datum mit Zeitanzeige addieren bzw. subtrahier
Alexander

Hallo,
ich möchte von einer Zelle "14.11.08 00:00" eine Minute subtrahieren oder auch 23 Stunden und 59 Minuten addieren, so daß in der Nachbarzelle "14.11.08 23:59" steht.
Irgendwie stehe ich auf dem Schlauch.
Grüße
Alex
14.11.2008 21:25:00
Thread-ID: 1024716
3 Beiträge
Zu Datum Wochen hinzuaddieren
Roland

Hi,
ich habe eine Combobox auf einem Formular, die beim start mit dem heutigen Datum gefüllt wird.
Ich würde die Combobox gerne mit Einträgen füllen, wie Wochenweise gehen.
Also wenn man vom heutigen Datum ausgeht, sollte in der Combobox drin stehn:
28.01.2009
04.02.2009
...
28.01.2009 11:47:28
Thread-ID: 1044511
4 Beiträge
Ausgangsdatum + X Monate
Bertram

Hallo zusammen,
ich stehe heute mal wieder voll auf dem Schlauch, daher sollte mein Level lauten "Excel warum-einfach-wenn's-kompliziert-geht"
Ich möchte von einem Ausgangsdatum 3,6,9 und 12 Monate addieren und diese Monate Xen. Mit folgender Formel geht das. Aber geht das auch kürzer?<...
06.03.2009 10:39:42
Thread-ID: 1057192
7 Beiträge
Wert zu Datum addieren
Günter

Halo Zusammen,
ich habe mal wieder ein Problem, dass sicherlich nicht schwierig ist.
Ich kommen aber nicht drauf.
Ich möchte per VBA zu einem Datum, dass in einer Zelle steht eine anzhal Tage addieren, die in einer anderen Zelle stehen und dies in eine weitere Zelle schreiben.
H...
25.04.2009 11:34:41
Thread-ID: 1071087
5 Beiträge
24 Stunden zu einem Datum hinzuaddieren
Henning

Hallo zusammen,
ich habe schon im Archiv gesucht, aber leider immer noch keine Lösung gefunden. Vielleicht kann mir jemand bei meinem Schichtplan-Problem weiterhelfen.
Wie im Anhang zu sehen, habe ich das Problem, dass ich bei der Addition mit der Funktion ZEIT(X;0;0) Probleme bekomme,...
30.04.2009 12:14:34
Thread-ID: 1072133
3 Beiträge
Autofilter setzen 365 Tage ab Heute
Urmila

Hallo alle zusammen,
ich habe soeben ein Skript erstellt, was nicht wirklich funktioniert.
Dim d d = Date + 365 Selection.AutoFilter Field:=8, Criteria1:=d, Operator:=xlAnd Mein Ziel ist, alle Zellen anzuzeigen, die größer sind als 1 Jahr zum gegenwärtigen Datum (sprich Tag der Ausführ...
18.12.2009 14:09:20
Thread-ID: 1124915
4 Beiträge
Mittelwert nach Monaten berechnen
edie

Hallo zusammen,
wiederholt stehen in der Spalte A die Monate Januar bis Juli im Format (MMM) nach unten
in der Tabelle variabel. In der Spalte B und C die jeweiligen Werte, siehe Beispieldatei.
https://www.herber.de/bbs/user/67091.xls
Nun hätte ich gerne, wenn’s geht, die Monat...
08.01.2010 19:12:17
Thread-ID: 1128373
7 Beiträge
Datum + X Monate
Bastian

Hallo,
ich habe ein kleines Problem und weiss leider nicht die Funktion. Zu einem bestehenden Datum möchte ich gerne x Monate dazurechnen. Wie geht das mit Excel? Bsp.: 15.02.2002 + 1 Monat = 15.03.2002
Habe schon einiges ausprobiert, aber keine Lösung gefunden.Ich hoffe ihr könnt mir he...
24.04.2002 18:14:54
Thread-ID: 116054
2 Beiträge
Datum+Benutzerdefinierte Zelle in TEXT umwandeln
TommiH

Hallo,
ich habe folgendes Problem, ich habe eine Excel-Tabelle mit rund 200 Spalten von denen 3-4 mit dem Format Datum oder Benutzerdefiniert (hh:ss - also Zeitinformation) formatiert und auch entsprechend gefüllt sind. Der Rest sind Zahlen oder Text-Zellen-Formate.
Da ich das Ganze in...
23.05.2011 12:15:42
Thread-ID: 1215599
2 Beiträge
Anzeige
Datum + 30 Tage
Chris

Hallo,ich hab ein kleines Problem. Ich habe ein Datum z.B. 19.02.2002. Wie kann ich es schaffen, daß Excel dieses Datum nimmt, 30 Tage dazuzählt und mir das Datum+30 Tage ausgiebt.Danke & Gruß
Chris
29.05.2002 10:37:22
Thread-ID: 124493
2 Beiträge
Datum +-1 in Bereich finden
Gallanz

Hallo,
ich habe eine Liste mit Datumsangaben und möchte herausfinden, ob die Daten sich in einem Bereich von +-1 Tagen überschneiden. Dies soll dann als 1 (überschneidet sich) oder 0 (überschneidet sich nicht) angezeigt werden.
Bsp:
Datum Ergebnis
13.09.2012...
13.09.2012 12:09:02
Thread-ID: 1278462
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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