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

Mit Userform Wert suchen

Forumthread: Mit Userform Wert suchen

Mit Userform Wert suchen
17.09.2008 08:38:00
Thorsten
Hallo,
ich gebe in meiner UF ein Datum ein und möchte, dass dieses Datum in der Tabelle gefunden wird. Ich habe in der Tabelle die Daten vom 1.1.09 bis 31.12.09 stehen, möchte also, dass mit ok-klick auf das eingetragene Datum springt.
Wie kann ich das am besten realisieren?
Danke schonmal für die Hilfe.
Gruße Thorsten
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Userform Wert suchen
17.09.2008 09:10:20
Beverly
hi Thorsten,
angenommen deine Datumswerte stehen in Spalte A und du gibst das zu suchende Datum in TextBox1 ein:

Private Sub CommandButton1_Click()
Dim loZeile As Long
On Error Resume Next
loZeile = Application.Match(CDbl(DateValue(TextBox1)), ActiveSheet.Columns(1), 0)
If Err > 0 Then
MsgBox "Datum nicht gefunden"
Else
Application.Goto reference:=Cells(loZeile, 1), Scroll:=True
End If
On Error GoTo 0
Err.Clear
End Sub



Anzeige
Noch eine kleine Frage...
17.09.2008 09:26:00
Thorsten
Hey,
perfekt. Hat prima funktioniert.
Hast Du evtl. noch eine Lsg. dafür, wenn ich zusätzlich in einer ComboBox einen Namen suche, die sich in Zeile 7 (A - Z) befinden, finden kann? Er soll dann die Zelle auswählen, die den Treffpunkt zwischen Datum und Name ergibt. Ich hoffe, ich hab das einigermaßen Verständlich geschrieben. :)
Anzeige
AW: Noch eine kleine Frage...
17.09.2008 10:29:19
Beverly
Hi Thorsten,

Private Sub CommandButton1_Click()
Dim loZeile As Long
Dim raZelle As Range
On Error Resume Next
loZeile = Application.Match(CDbl(DateValue(TextBox1)), ActiveSheet.Columns(1), 0)
If Err > 0 Then
MsgBox "Datum nicht gefunden"
Else
Set raZelle = Rows(7).Find(ComboBox1, lookat:=xlWhole)
Application.Goto reference:=Cells(loZeile, raZelle.Column), Scroll:=True
End If
On Error GoTo 0
Err.Clear
End Sub



Anzeige
Eine noch. :)
17.09.2008 10:57:00
Thorsten
Vorab erstmal: VIELEN VIELEN DANK. Du bist die beste.
Nur eins noch: Gibt es eine Möglichkeit das Datum über 2 Textfelder so anzusteuern, dass er einen
"Von bis" Bereich zu dem dazugehörigen Namen ansteuert?
Dann wäre ich fertig. :) Den Rest bekomme ich dann alleine hin...
AW: Eine noch. :)
17.09.2008 11:07:02
Beverly
Hi Thorsten,
ich weiß nicht, ob ich deine Frage richtig interpretiert habe

Private Sub CommandButton1_Click()
Dim loZeile As Long
Dim loZeile2 As Long
Dim raZelle As Range
On Error Resume Next
loZeile = Application.Match(CDbl(DateValue(TextBox1)), ActiveSheet.Columns(1), 0)
loZeile2 = Application.Match(CDbl(DateValue(TextBox2)), ActiveSheet.Columns(1), 0)
If Err > 0 Then
MsgBox "Datum nicht gefunden"
Else
Set raZelle = Rows(7).Find(ComboBox1, lookat:=xlWhole)
Application.Goto reference:=Range(Cells(loZeile, raZelle.Column), Cells(loZeile2, raZelle. _
Column)), Scroll:=True
End If
On Error GoTo 0
Err.Clear
End Sub



Anzeige
AW: Eine noch. :)
17.09.2008 11:32:00
Thorsten
PERFEKT. Ich danke Dir herzlich... :)
Doch noch eine Frage an Beverly
17.09.2008 12:32:00
Thorsten
Hallo nochmal,
kann man bei der Markierung irgendwie die Sonntage weglassen? Also Datum prüfen ob Sonntag und dann die nicht markieren...
Gruß Thorsten
AW: Doch noch eine Frage an Beverly
17.09.2008 14:23:49
Beverly
Hi Thorsten,

Private Sub CommandButton1_Click()
Dim loZeile As Long
Dim lozeile2 As Long
Dim raZelle As Range
Dim raSelektion As Range
On Error Resume Next
loZeile = Application.Match(CDbl(DateValue(TextBox1)), ActiveSheet.Columns(1), 0)
lozeile2 = Application.Match(CDbl(DateValue(TextBox2)), ActiveSheet.Columns(1), 0)
If Err > 0 Then
MsgBox "Datum nicht gefunden"
Else
Set raZelle = Rows(7).Find(ComboBox1, lookat:=xlWhole)
For Each raZelle In Range(Cells(loZeile, raZelle.Column), Cells(lozeile2, raZelle.Column)) _
If Weekday(Cells(raZelle.Row, 1), vbMonday)  7 Then
If raSelektion Is Nothing Then
Set raSelektion = raZelle
Else
Set raSelektion = Union(raSelektion, raZelle)
End If
End If
Next raZelle
Application.Goto reference:=raSelektion, Scroll:=True
End If
On Error GoTo 0
Err.Clear
End Sub



Anzeige
...
17.09.2008 14:44:50
Thorsten
Super. Alles funktioniert..
Wie lange ist man dabei um sowas SO zu können? :)
Eine allerletzte Frage...dann fertig
17.09.2008 15:13:00
Thorsten
Hallo nocheinmal.
erst mal muss ich sagen, dass das so alles perfekt gelaufen ist. Klappt prima.
Nun habe ich eine letzte Frage.
Zunächste ein Hintergrund: Das ganze wird eine Urlaubsdatei, die sich mit dem Userform leichter füllen lassen soll als manuell, weil die Erfahrung gezeigt hat, dass man doch mal verrutcht.
Die letzte Anforderung ist, einen Eintrag in die markierten Felder zu setzen. Ich mach das gerade mit raSelektion.Value = Textbox3.value (geht). Jetzt ist es so, dass, an jedem 2. Samstag, wenn von Montag bis Samstag freigenommen wurde, Montag - Freitag ein U eingetragen werden soll und am Samstag ein FR. Wie gesagt, nur an jedem 2. Samstag und auch nur, wenn komplette Woche U eingegeben wurde.
Ich weiß nicht, ob sowas möglich ist. Wenn nicht, müssen hier doch manuelle Eingaben gemacht werden. Ich dachte, ich frag trotzdem mal an. :) Falls genauere Angaben nötig sind, bin ich auch per Mail zu erreichen. (th.sturze@gmx.net)
Anzeige
AW: Eine allerletzte Frage...dann fertig
18.09.2008 10:53:00
Beverly
Hi Thorsten,
ich denke, da ist der Aufwand einfach zu hoch, um das vollautomatisch zu machen, weil es einfach zu viele möglichen Varianten gibt. Aber vielleicht hat ja ein anderer Helfer Lust und Zeit dazu. Deshalb stelle ich den Beitrag mal auf offen.
Zu deiner Frage aus deinem vorhergehenden Beitrag: ich mache das seit 3 Jahren und 2 Monaten.

Anzeige
AW: Mit Userform Wert suchen
17.09.2008 09:58:12
wernernico
Hallo,
hänge doch an dei Click-ereignis des OK-Knopfes ein Routine die den Zelleninhalt deines Datenbereiches mit dem Inhalt des Eingabefeldes vergleicht und bei übereinstimmung auswählt.
Das Ganze könnte so aussehen, wobei ich davon Ausgehe, dass die Datumswerte in einer Spalte stehen:
For Zeile = ErsteZeileDatum to LetzteZeileDatum
If Cells(Zeile, Spalte).Value = Userform.Datenfeld.Value Then
Cells(Zeile, Spalte).select
Exit For
End If
Next Zeile
Anzeige
;

Forumthreads zu verwandten Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
die bedingte Formatierung be
Lemmi

Hallo zusammen,
wie kann ich die Bedingte Formatierung ersetzen durch eine "normale " Formatierung
Ich habe in einem Bereich A1:B100 einige bedingte Formatierungen, diese sollten eben durch die selbe Formatierung ersetzt werden!
Kann man das umsetzen?
Gruß
Lemmi
08.08.2008 08:45:25
Thread-ID: 1000161
5 Beiträge
if mit or Verknüpfung?
Tom

Hi,
ich versuch gerade ein If mit Or Verknüpfung hinzubekommen.
Hier mal der Code:
If Datei1Name = "" Or Datei2Name = "" Or TextD1v = "" Or TextD2v = "" Or TextD1A = "" Or _ TextD1E Or TextD2An Then Error = MsgBox("Es müssen alle Felder gefüllt sein", 48, "Eingabe Fehler") Else <...
08.08.2008 11:29:57
Thread-ID: 1000222
9 Beiträge
Zeitformat aus England nicht korrekt
Uschi

Hallo liebes Forum,
folgendes Problem:
Ich bekomme eine Liste mit Zeiten aus Großbritannien, in der die Nullen fehlen, wenn es nicht über eine Stunde geht (:17:22). Ist die Zeit größer als eine Stunde, wird sie korrekt angezeigt (01:17:22). Kann ich irgendwie bei allen Zeiten, wo die St...
08.08.2008 12:29:48
Thread-ID: 1000252
3 Beiträge
Anzeige
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Daten zählen mit AutoFilter
TomTom

Hi,
hier ist ein Code, der nach bestimmten Kriterien schaut und diese zählt und das Ergebnis in Tebelle2 einträgt:
Dim TB1, TB2
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
TB2.Range("M8") = WorksheetFunction.CountIf(TB1.Range("D:D"), "Green")
TB2.Range("M10...
08.08.2008 23:34:00
Thread-ID: 1000446
10 Beiträge
Anzeige
AutoFilter zeigt nicht alle Einträge
Andre

Hallo Excel-Freunde,
ich weiß, dieses Problem tauchte schon öfters auf.
Aber irgendwie passt das nicht zu meinem Problem:
Ich habe eine Excel-Tabelle, in der ihc mit VBA den AutoFilter aktiviere und gewisse Spalten filtere. Will ich nun eine gewisse "planned_effort(in hours)"-Spalt...
10.08.2008 15:47:23
Thread-ID: 1000645
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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