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
1768to1772
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
1768to1772
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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?
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
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

312 Forumthreads zu ähnlichen 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
Anzeige
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
Wenn Zahl Dann Datum + 1
Dominik

Hallo zusammen,
folgendes Problem:
Ich habe 2 Spalten - SpalteA (Inhalt: Julianischer Kalender bzw. Zahlen von 100 bis 113)
SpalteB (Inhalt: soll mit einem Datum gefüllt werden)
Nun in Spalte A wechseln die Zahlen nicht von Zeile zu Zeile, sondern es kommt vor dass die Zahl 100...
06.02.2009 12:08:00
Thread-ID: 1047706
9 Beiträge
Anzeige
Datum mit Zahl addieren ohne Sams-/Sonntag
Alwar

Guten tag liebe Community
zu meinem Problem, ich habe ein Anfangsdatum und die Information wieviele Schichten ich brauche um etwas bestimmtes zu produzieren. Das Problem ich will das Excel automatisch auf das Anfangsdatum drauf rechnet d.h.
z.B.
A1 =Anfangsdatum..B1 =Schicht..........
01.04.2009 09:18:21
Thread-ID: 1065818
18 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
Anzeige

Links zu Excel-Dialogen

InputBox

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
3
8
6
17
4
2
3
6
9
3
21
1
9
1
1
4
1
4
3
2
2
6
4