Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1044to1048
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
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per Userform oder Inputbox Daten selektieren

Per Userform oder Inputbox Daten selektieren
05.02.2009 16:36:55
Bernd

Hallo Freaks,
ich habe im Archiv gesucht, aber leider nichts gefunden.
Ich suche ein Makro, in das ich per Userform (oder Inputbox?) einen Begriff (Namen) eingebe, dann VBA in das Tabellenblatt 1 geht, in Spalte G den Suchbegriff (Namen) sucht und dann als Ergebnis der Suche die Spalten A - E von Tabelle 1 in Tabelle 2 schreibt.
Ich hoffe, ich konnte mein Anliegen einigermaßen verständlich beschreiben.
Hat jemand ein Beispiel vielleicht parat?
Grüße und Danke
Bernd

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
hier ein Beispiel mit Inputbox...
05.02.2009 17:58:49
Matthias
Hallo
mal als Ansatz gedacht

Option Explicit
Sub bernd()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim rng As Range
Dim strg As String
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
strg = InputBox("bitte Suchbegriff eingeben", " Suche nach ...", "World")
For Each rng In wks1.Range("G:G")
If rng = strg And strg  "" Then MsgBox strg & " wurde gefunden in Zeile " & rng.Row
Next
End Sub


zum beseren Verstehen das Sheet:
https://www.herber.de/bbs/user/59135.xls
nun muss man nur noch wissen wohin die Daten genau sollen (Tabelle2) ist klar, aber wohin!
Gruß Matthias

Anzeige
hier ein konkreteres Beispiel ...
06.02.2009 06:13:39
Matthias
Hallo
hier nochmal etwas konkreter
Userbild



Option Explicit
Sub bernd()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim rng As Range
Dim strg As String
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
strg = InputBox("bitte Suchbegriff eingeben" & vbLf & "Schreibweise beachten", " Suche nach ... _
", "World")
If strg  "" Then
For Each rng In wks1.Range("G:G")
If rng = strg Then
wks2.Cells(1, 7).Value = wks1.Cells(rng.Row, 7)
wks2.Cells(1, 1).Value = wks1.Cells(rng.Row, 1)
wks2.Cells(1, 2).Value = wks1.Cells(rng.Row, 2)
wks2.Cells(1, 3).Value = wks1.Cells(rng.Row, 3)
wks2.Cells(1, 4).Value = wks1.Cells(rng.Row, 4)
wks2.Cells(1, 5).Value = wks1.Cells(rng.Row, 5)
End If
Next
End If
Set wks1 = Nothing
Set wks2 = Nothing
End Sub




https://www.herber.de/bbs/user/59147.xls
Gruß Matthias
Anzeige
AW: hier ein konkreteres Beispiel ...
06.02.2009 13:21:45
Bernd
Hallo Matthias,
erst einmal meinen herzlichen Dank an Dich für die Mühe, die du dir mit mir machst.
Dein Beispiel kommt der gesuchten Lösung schon sehr nahe. In der Kriterienspalte G sind aber die Kriterien mehrfach vorhanden und alle zeilen mit dem gesuchten Kriterium müssten auf Tabellen 2. Ich habe dein Beispiel mal ergänzt und auch in Tab. 2 den Lösungswunsch händisch eingetragen.
https://www.herber.de/bbs/user/59177.xls
Vielen Dank,
Bernd
überarbeitete Datei ... bitte hier ...
06.02.2009 17:48:00
Matthias
Hallo

https://www.herber.de/bbs/user/59182.xls

und der Code schon mal zum lesen:


Option Explicit
Sub bernd()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim rng As Range
Dim strg As String
Dim Loletzte As Long
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
strg = InputBox("bitte Suchbegriff eingeben", " Suche nach ...", "World")
For Each rng In wks1.Range("G:G")
If rng = strg And strg  "" Then
If wks2.Cells(Rows.Count, 7).End(xlUp).Row + 1




Gruß Matthias
Anzeige
@ Matthias
06.02.2009 20:31:00
Bernd
Hallo Matthias,
habe tausend Dank!!!! Du bist echt super. Würde dir gerne am nächsten Oktoberfest eine Maß Bier dafür ausgeben.
Grüße
bernd

62 Forumthreads zu ähnlichen Themen

Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Dateidialog anstatt Inputbox
Jan

Hi
Tino hat mir vor langer Zeit einen coolen Code geschrieben. Ich bin soweit zufrieden damit. Würde aber gerne den Code dahingehend verändern, daß nicht die Inputbox kommt, sondern der Dateidialog geöffnet wird. Damit sind die User nicht ständig auf den gleichen Pfad gebunden wenn sie die...
30.03.2009 15:11:05
Thread-ID: 1065319
3 Beiträge
Anzeige
per VBA viele Diagramm-Datenreihen formatieren
Bernd

Guten Abend allerseits,
ich habe es tatsächlich geschafft, in ein Diagramm 235 Datenreihen mit Diagrammtyp xlXYScatterLines einzubinden. Nun suche ich eine Lösung, um diese Datenreihen in einer bestimmten Art und Weise zu formatieren. Händisch viel Arbeit, deswegen möchte ich die Datenreihe...
23.08.2009 19:49:55
Thread-ID: 1098037
5 Beiträge
Inputbox zur Dateisuche
Christopher

Hallo Leute,
ich habe ein Makro mit dem ich Daten aus einer Tabelle aus Jul09.xls in eine andere Tabelle in Berlin.xls kopieren kann.
Sub Artikelnummer_kopieren_Kraft() Windows("Jul09.xls").Activate Sheets("KRAFTREG ").Select Range("B10:B79").Select Selection.Copy Windows("Berlin.xls")....
23.09.2009 09:53:41
Thread-ID: 1104812
9 Beiträge
VBA Inputbox Type Parameter Problem
Bernhard

Liebes Forum,
bislang (Excel 2003) war es möglich eine Variable aus einer Inputbox auszulesen und mit Type:=0 konnte man außerhalb der Inputbox auf eine Zelle klicken - die Zelladresse wurde dann in die Inputbox übernommen und konnte ausgewertet werden.
Beispiel:
str_cell_input =...
20.01.2010 15:00:09
Thread-ID: 1131397
4 Beiträge
VBA Datum in INPUTBOX in Tabelle suchen
Klaus

Nachdem ich nun seit einigen Stunden das Forum durchforstet habe, gehen mir langsam die Suchbegriffe aus. Daher frag ich jetzt einfach einmal......
Ich habe (mal wieder) so eine Tabelle mit einer Zinsstaffel. In Spalte B steht immer die Valuta oder eben das Buchungsdatum.
Ich hab mir be...
22.04.2010 16:03:34
Thread-ID: 1153334
2 Beiträge
VBA: textbox afterupdate format Datum
Bernd

Hallo zusammen,
irgendwie bekomme ich das nicht richtig hin, vielleicht kann mir jemand behilflich sein und den Code berichtigen.
Hier mein Code, der nicht funktioniert:
Private Sub TextBox5_AfterUpdate() 'TextBox5 = format(CDbl(TextBox5), "TT.MM.JJJJ") End Sub Vielen Dank im...
03.06.2013 19:44:47
Thread-ID: 1316131
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm 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
2
2
11
2
2
4
8
3
1
2
4
10
1
3
4
9
4
1
9
3
7
3
8
2
1