Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1120to1124
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
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String im Array suchen und Treffer anzeigen

String im Array suchen und Treffer anzeigen
Udo
Hallo,
ich bräuchte mal Eure fachmännische Hilfe.
Ich möchte einen Begriff aus einer TextBox in 12 verschiedenen Tabellenbättern suchen, und die gefundenen Einträge mit den entsprechenden Tabellenblatt-Namen anzeigen lassen.
Meine bisherigen "Versuche" lassen mich verzweifeln ...
(mein Versuch)
Private Sub CommandButton_suchen_Click()
Dim arr As Variant, tbsuch As String
arr = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", _
"September", "Oktober", "November", "Dezember")
tbsuch = TextBox_suchen.Value
For Each tbsuch In arr
If TextBox_suchen.Value = True Then
MsgBox Worksheet.Name
Exit For
End If
Next
End Sub

Für Eure Hilfe im Voraus vielen Dank,
Udo
AW: String im Array suchen und Treffer anzeigen
29.11.2009 00:45:36
IngGi
Hallo Udo,
so?
Private Sub CommandButton_suchen_Click()

Dim arr As Variant
Dim tbsuch As String
Dim intTB As Integer

arr = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", _
     "September", "Oktober", "November", "Dezember")
tbsuch = TextBox_suchen.Value

For intTB = 0 To 11
  If Not Worksheets(arr(intTB)).Cells.Find(What:=tbsuch, LookAt:=xlPart) Is Nothing Then
    MsgBox Worksheets(arr(intTB)).Name
    Exit For
  End If
Next 'intTB 
   
End Sub
Code eingefügt mit VBA in HTML 2.0.0.3size>
Gruß Ingolf
Anzeige
AW: String im Array suchen und Treffer anzeigen
29.11.2009 01:11:12
Udo
Hallo Ingolf,
ja fast.
Leider gibt er mir immer nur den Wert in "Januar" wieder. Die anderen Monate werden nicht angezeigt (In Februar, März und Juni ist der Wert aber auch vorhanden.).
Kann man das so machen, dass in der Box alle gefundenen Treffer gleichzeitig anzeigt?
Aber ich hab keine Fehlermeldung mehr ... *freu*
Gruß,
Udo
hier mein Vorschlag dazu.
29.11.2009 06:44:06
Tino
Hallo,
Private Sub CommandButton1_Click()
Dim varArr As Variant
Dim tbsuch$
Dim i%, ii%, iTreffer%

varArr = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", _
     "September", "Oktober", "November", "Dezember")

tbsuch = TextBox_suchen.Value

With Application.WorksheetFunction
    For i = 0 To 11
        ii = IIf(i = 8 Or i = 10, 1, 2)
        iTreffer = .CountIf(Sheets(varArr(i)).UsedRange, tbsuch)
        varArr(i) = varArr(i) & String(ii, vbTab) & " '" & iTreffer & "' " & vbCr
    Next 'intTB 
End With

MsgBox Join(varArr, ""), vbInformation, "Trefferliste"
End Sub
Gruß Tino
Anzeige
AW: hier mein Vorschlag dazu.
29.11.2009 10:31:08
Udo
Hallo Tino,
die MsgBox ist genau so wie ich meinte... Danke !!!
Leider "vergisst" die Formel manchmal einen Treffer anzuzeigen. (wenn ich z.B.: "Miete" suche, zeigt er mir in Februar eine null an).
Aber zum besseren Verständnis habe ich die Datei mal hochgeladen.
https://www.herber.de/bbs/user/66253.xls
Gruß,
Udo
AW: hier mein Vorschlag dazu.
29.11.2009 10:50:03
Nepumuk
Hallo,
dann versuch es mal so:
Private Sub CommandButton_suchen_Click()
    Dim strMonthArray(1 To 12) As String, strFirstAddress As String
    Dim lngMonth As Long, lngCounter As Long
    Dim objCell As Range
    For lngMonth = 1 To 12
        lngCounter = 0
        strMonthArray(lngMonth) = MonthName(lngMonth)
        With Worksheets(strMonthArray(lngMonth))
            Set objCell = .Cells.Find(What:=TextBox_suchen.Text, _
                LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
            If Not objCell Is Nothing Then
                strFirstAddress = objCell.Address
                Do
                    lngCounter = lngCounter + 1
                    Set objCell = .Cells.FindNext(objCell)
                Loop Until objCell.Address = strFirstAddress
            End If
        End With
        strMonthArray(lngMonth) = strMonthArray(lngMonth) & _
            String(IIf(lngMonth = 9 Or lngMonth >= 11, 1, 2), vbTab) & " '" & _
            CStr(lngCounter) & "' " & vbCr
    Next
    Set objCell = Nothing
    MsgBox Join(strMonthArray, ""), vbInformation, "Trefferliste"
End Sub

Gruß
Nepumuk
Anzeige
AW: hier mein Vorschlag dazu.
29.11.2009 10:57:55
Udo
Hallo Nepumuk,
das funktioniert perfekt !!!
DANKE !! (auch an die vorherigen Mithelfer)
Aber eine kleine Frage habe ich dann doch noch ...
Kann man anstatt der "1" ein "Ja", und anstatt der "0" ein leeres Feld anzeigen lassen? (der schnelleren Übersicht wegen)
Aber nur, wenn das nicht viel Aufwand ist.
Ansonnsten vielen herzlichen Dank nochmal,
Gruß,
Udo
AW: hier mein Vorschlag dazu.
29.11.2009 11:10:05
Nepumuk
Hallo,
dann so:
Private Sub CommandButton_suchen_Click()
    Dim strMonthArray(1 To 12) As String
    Dim lngMonth As Long
    Dim blnFound As Boolean
    Dim objCell As Range
    For lngMonth = 1 To 12
        strMonthArray(lngMonth) = MonthName(lngMonth)
        Set objCell = Worksheets(strMonthArray(lngMonth)).Cells.Find( _
            What:=TextBox_suchen.Text, LookIn:=xlValues, _
            LookAt:=xlPart, MatchCase:=False)
        blnFound = Not objCell Is Nothing
        strMonthArray(lngMonth) = strMonthArray(lngMonth) & _
            String(IIf(lngMonth = 9 Or lngMonth >= 11, 1, 2), vbTab) & _
            IIf(blnFound, "Ja", "Nein") & vbCr
    Next
    Set objCell = Nothing
    MsgBox Join(strMonthArray, ""), vbInformation, "Trefferliste"
End Sub

Gruß
Nepumuk
Anzeige
DANKE !!!
29.11.2009 11:14:20
Udo
Hallo Nepumuk,
D A N K E !!!
Das ist perfekt.
Gruß,
Udo
Perfekt ?....
29.11.2009 11:20:22
robert
Hi,
hab mir diesen beitrag angesehen wg.Tino und Nepumuk lösungen-die sind OK ;-)
...aber hast du schon zB.im september ein jänner datum eingetragen ?
sollte doch nicht möglich sein-oder ?
nichts für ungut.. :-)
gruß
robert
AW: Perfekt ?....
29.11.2009 11:27:49
Udo
Hallo Robert,
was ist ein "jänner Datum"?
solltest Du den Text "Übertrag aus 2008" meinen, da kann ich helfen. Ich habe die Datei auf 300kb verkleinern müssen und alle einträge (bis auf die Testeinträge) gelöscht und anschließend umbenannt (damit ich nicht ausversehen im "Original" herumprobiere).
Ansonnsten kläre mich bitte auf.
Gruß,
Udo
Anzeige
AW: Perfekt ?....
29.11.2009 16:53:02
robert
Hi Udo,
ich meinte folgendes:
gib mal zB. im September-Kassabuch bei einer Ausgabe ein Jänner-Datum ein.
ME dürfte im jeweiligen Monatkassabuch nur das jeweilige Monatsdatum möglich sein.
Denn wenn du im Jänner eine Ausgabe hast, kannst Du sie doch nicht im September mit Jänner
Datum eintragen.
Probier es einmal aus.
Gruß
robert
AW: Perfekt ?....
29.11.2009 17:27:55
Udo
Hallo Robert,
nachdem ich erst mal bei Wikipedia nachgelesen habe was ein "Jänner-Datum" ist, weiß ich was Du meintest.
Du hättest aber auch einfach "Januar-Datum" sagen können - nicht wahr? (selten gebräuchlich im Süddeutschen Raum und teilen Österreichs).
Hättest Du Dir meine hochgeladene Datei RICHTIG angeschaut...., dann wüsstest Du, dass bei einer Monats-Auswahl in der Maske AUTOMATISCH zum RICHTIGEN Monats-Blatt gesprungen wird.
Ich fände es einen schönen Zug von Dir, wenn Du in Zukunft erst liest bevor Du die Hilfe und die damit verbundene Arbeit nicht mit diesen unsinnigen kommentaren verunglimpfst.
Danke !
Gruß,
Udo
Anzeige
WAS IST LOS ?..
29.11.2009 18:16:02
robert
..ich hab mir deine datei angeschaut und zB. mit September getestet-
was steht im september ? ein Januar(Jänner) Datum-oder ?
ins monatsblatt wird gesprungen-ok
du hast deine datei gar nicht so getestet wie ich, aber dumme sprüche klopfen!!!!!!!
September
 BCDEFGH
1        Kassenbuch
2       
3       
4       
5MonatSeptember        Blatt Nr. 1
6Jahr2000         
7EinnahmenAusgabenMwSt. 7%MwSt. 19%BestandBeleg DatumText
8   500,00 €Übertrag aus Dezember 2008
9500,00 €0,00 €0,00 €0,00 €1.000,00 €15.01.2008 
10        1.000,00 €   
11        1.000,00 €   
12        1.000,00 €   
13        1.000,00 €   
14        1.000,00 €   
15        1.000,00 €   

verbundene Zellen
F1:H4
B8:E8
G8:H8

verwendete Formeln
Zelle Formel
F8 =August!F98
F9 =B9-C9+F8
F10 =B10-C10+F9
F11 =B11-C11+F10
F12 =B12-C12+F11
F13 =B13-C13+F12
F14 =B14-C14+F13
F15 =B15-C15+F14

Tabellendarstellung in Foren Version 4.28


Anzeige
OT-@R: Take It Easy,...
29.11.2009 18:35:18
Luc:-?
...Robert,
Leute, die andere der eigenen Fehler beschuldigen, wird's wohl immer geben. Und irgendwann erwischt's hier jeden, auch den Friedlichsten, mal... ;-)
Gruß Luc :-?
AW: WAS IST LOS ?..
29.11.2009 18:36:08
Udo
Hey....,
Dumm sind Menschen, die eine Rechnung aus 2008 in die Buchführung von 2000 eingeben wollen ...
Richtig, DAS habe ich nicht getestet - weil ... ICH versuche ja keine Rechnung aus 2008 in 2000 einzugeben... - gelle
Das mal dazu.
Aber weißt Du was?
Du hast einfach Recht.
..das hat doch nichts mit..
29.11.2009 18:44:07
robert
..der Jahreszahl was zu tun !
willst du mich nicht verstehen?
es geht darum, dass momentan in allen monaten ein datum eingegeben werden kann, das
nicht dem monatsblatt entspricht.
das sollte auch keine kritik, sondern nur ein hinweis sein, dass das nicht sein sollte.
warum du so überreagiert hast, ist mir ein rätsel...
gruß
robert
Anzeige
OT: Kritik kratzt am EGO! ;-) Gruß owT
30.11.2009 02:11:15
Luc:-?
:-?
Ego hin, Ego her...
30.11.2009 07:53:28
robert
hi Luc,
es gibt genug gute helfer hier, wenn man eine lösung von ihnen testet und
meldet einen "fehler" , so waren bisher immer alle dankbar und haben
freundlich reagiert.
denn nur wer nichts arbeitet kann keine fehler machen ;-)
gruß
robert
Da haste recht, außer, man stirbt dran! ;-) orT
01.12.2009 01:19:54
Luc:-?
...Gruß :-?
für Teilbegriffe...
29.11.2009 11:03:25
Tino
Hallo,
verwende Platzhalter
z. Bsp.
tbsuch = TextBox_suchen.Value & "*"
oder
tbsuch = "*" & TextBox_suchen.Value & "*"
Gruß Tino
AW: ...Optik
29.11.2009 11:07:58
Udo
Hallo Tino,
der Nepumuk hat das absolut super hinbekommen. So wie er das programmiert hat funktioniert das auch mit Teil-Namen. (ausprobiert).
Jetzt geht es nur noch um eine "Optische" Sache.
Für Deine Hilfe aber vielen Dank !!
Gruß,
Udo
Anzeige
ok. wenn es nur um ja oder nein geht
29.11.2009 11:25:55
Tino
Hallo,
hier die Version mit ja oder nein.
Private Sub CommandButton_suchen_Click()
Dim varArr As Variant
Dim tbsuch$
Dim i%, ii%

varArr = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", _
     "September", "Oktober", "November", "Dezember")

'Stern als Platzhalter verwenden oder dies bei der TextBox_suchen mit angeben. 
tbsuch = "*" & TextBox_suchen.Value & "*"

With Application.WorksheetFunction
    For i = 0 To 11
        ii = IIf(i = 8 Or i = 10, 1, 2)
        If .CountIf(Sheets(varArr(i)).UsedRange, tbsuch) = 0 Then
            varArr(i) = varArr(i) & String(ii, vbTab) & " 'nein' " & vbCr
        Else
            varArr(i) = varArr(i) & String(ii, vbTab) & " 'ja' " & vbCr
        End If
    Next 'intTB 
End With

MsgBox Join(varArr, ""), vbInformation, "Trefferliste"
End Sub
Gruß Tino
DANKE !!!
29.11.2009 11:30:12
Udo
Hey Tino,
vielen lieben Dank für Deine tatkräftige Hilfe !!!
Doch inzwischen ist das Thema erledigt. Es funktioniert alles so wie es sollte ...
Danke Dir nochmal.
Gruß,
Udo

315 Forumthreads zu ähnlichen Themen

Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Mehrzeilige Textbox mit Enter nächsten Zeile?
Timo

Hallo Ihr,
ich habe eine mehrzeilige Textbox.
Wie bringe ich diese dazu wenn Enter gedrückt wird der Cursor eine Zeile nach unten springt und nicht in die nächste Textbox?
Mit "shift & Enter" gehts! Ich hätte aber gerne nur Enter!
2. Frage in der Textbox stehen bereits ein...
17.11.2008 14:48:08
Thread-ID: 1025232
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
3
2
4
2
4
5
1
2
4
3
21
3
2
2
1
5
7
4
5
8
4
4
2
7
3