Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

listenfeld: markieren, datensatz in tabelle suchen

listenfeld: markieren, datensatz in tabelle suchen
21.10.2004 12:32:08
Martin
hallo,
habe ein listenfeld(Druckauswahl). darin befinden sich namen. wenn ich einen namen auswähle und auf einen extra button klicke, soll der marierte name in tabelle1 (R-Übersicht) gesucht werden. ist er gefunden, soll die zeile in die tabelle2 (R-Einzel) kopiert werden.
wie ich den namen suche ist klar. ich scheitere an diesem listenfeld. ich war schon mal so weit, dass zumindest der erste name gesucht und gefunden und kopiert wurde, aber das war's dann auch. ZEILE ist definiert.

Private Sub Drucken_Click()
Sheets("R-Übersicht").Select
ZEILE = 0
Do
ZEILE = ZEILE + 1
Range("d" & ZEILE).Select
If ZEILE > 100 Then Exit Do
Loop Until StrComp(ActiveCell.Text, Druckauswahl.Text) = 0
Rows(ZEILE & ":" & ZEILE).Select
Selection.Copy
Sheets("R-Einzel").Select
Rows("2:2").Select
ActiveSheet.Paste
End Sub

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: listenfeld: markieren, datensatz in tabelle suchen
ChrisL
Hi Martin
Mal das ganze ohne Select und Schleife. Allerdings fehlt irgendwie die konkrete Frage.

Private Sub ListBox1_Click()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim Zeile As Long
Set WS1 = Worksheets("R-Einzel")
Set WS2 = Worksheets("R-Übersicht")
On Error GoTo ErrorHandler
Zeile = WorksheetFunction.Match(ListBox1, WS2.Columns(4), 0)
WS1.Range("A1").Select
WS2.Rows(Zeile).Copy WS1.Rows("2")
Exit Sub
ErrorHandler:
MsgBox "Fehler: Es konnte nicht kopiert werden. Prüfen Sie, ob der Suchbegriff vorhanden ist.", vbCritical, "Fehler"
End Sub

Gruss
Chris
Anzeige
AW: listenfeld: markieren, datensatz in tabelle suchen
21.10.2004 13:47:45
Martin
danke, werd ich mal probieren.
die frage war eigentlich: wie kann ich einen beliebigen namen in der listbox auswählen und diesen dann suchen. ich konnte zwar irgendeinen auswählen, aber es wurde immer der erste name in der listbox gesucht, egal welchen ich ausgewählt hatte
AW: listenfeld: markieren, datensatz in tabelle suchen
21.10.2004 13:57:40
Martin
hab das grad probiert.
das ergebnis ist genau das selbe wie bei meiner variante. egal welchen eintrag ich im listenfeld auswähle, es wird die zeile kopiert, die zum ersten listenfeldeintrag gehört... *grübel*
AW: listenfeld: markieren, datensatz in tabelle suchen
ChrisL
Hi Martin
Hast du MulitSelect aktiviert?
Gruss
Chris
AW: listenfeld: markieren, datensatz in tabelle suchen
21.10.2004 14:21:38
Martin
wenn es standardmäßig deaktiviert ist, dann ist es deaktiviert. das bezieht sich doch darauf, dass ich aus dem listenfeld mehrere markieren kann, oder?
Anzeige
AW: listenfeld: markieren, datensatz in tabelle suchen
ChrisL
Hi Martin
Ja genau so. Hätte das Problem vielleicht erklärt, aber standardmässig ist es deaktiviert.
hmmm also irgendwie kann ich den Fehler schlecht nachvollziehen, denn bei mir wird der korrekte Eintrag kopiert.
Am einfachsten wärs wenn du ein kleines Beispiel hochladen könntest. Z.B. frage ich mich nämlich auch, ob eine Suche überhaupt notwendig ist. Falls die Liste in Spalte D mit der ListBox korrespondiert, dann könnte man auch direkt über den ListIndex gehen etc. (viele Wege führen nach Rom).
Gruss
Chris
lösung
21.10.2004 14:45:43
Martin
nur eine kleinigkeit "übersehen"

Private Sub Drucken_Click()
Sheets("R-Übersicht").Select
ZEILE = 0
Do
ZEILE = ZEILE + 1
Range("d" & ZEILE).Select
If ZEILE > 100 Then Exit Do
Loop Until StrComp(ActiveCell.Text, RechnungName.Text) = 0
Rows(ZEILE & ":" & ZEILE).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("R-Einzel").Select
Rows("2:2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Anzeige
AW: lösung
ChrisL
Hi Martin
Danke fürs Feedback. Der andere Eintrag hat sich damit erledigt.
Wenn du den Code optimieren möchtest, versuchs mal ohne Select (siehe mein Beispiel). ;-)
Gruss
Chris
AW: lösung
21.10.2004 14:56:16
Martin
mach ich. danke dir für die tipps. werd ich umsetzen

300 Forumthreads zu ähnlichen Themen

Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Anzeige
TEXT in Tabelle umwandeln
Martin

Liebe Forumteilnehmer,
möchste aus einem TEXT in WORD der bestimmte wiederholte, standardisierte Abschnitte - in diesem fall Name, Vorname, Geb-Datum, eine Tabelle generieren. Geht das mit einem Makro aus Excel heraus?
Danke
Martin
02.02.2009 17:26:48
Thread-ID: 1046338
4 Beiträge
Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 Beiträge
Anzeige
Matrix (mit leeren zellen) in Liste umwandeln
Wolfango

Hallo nochmal,
(diese Frage knüpft an die vorhin gestellte Frage an; nur diesmal mit einem anderen Ansatz)
Wie kann ich die in der angehängten Matrix (noch) vorhandenen Werte, über Formeln sauber in einer Liste (Spalte) zusammenführen?
Die Datei https://www.herber.de/bbs/user/61614...
05.05.2009 11:55:18
Thread-ID: 1073036
5 Beiträge
Zeilen in Spalten umwandeln
Thomas0815

Hallo zusammen,
gibt es eine Möglichkeit in Excel mit Daten ausgefüllte Zeilen einfach in Spalten umzuwandeln?
Danke für Hinweise.
Grüße,
Thomas
19.06.2009 18:21:46
Thread-ID: 1082987
5 Beiträge
Matrix in Tabelle umwandeln
Lutz

Hallo Forum,
ich habe eine Matrix, welche ich gerne in eine Tabelle umwandeln würde. Da es sich in echt um mehr als 1000 Einträge handelt, wäre es klasse, wenn auch die Spalten A und B der Ergebnistabelle automisch erzeugt werden würden.
Anbei mal eine Beispiel, welches ich händisch erz...
13.08.2009 01:24:21
Thread-ID: 1095446
10 Beiträge
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
Makro Spaltendatensätze in Zeilen umwandeln
Notzm

Hallo Leute!
Ich habe eine Liste in welcher viele Datensätze in der Spalte A sind. (s. Ursprungsliste)
Dabei soll jeder Datensatz in einzelne Zeilen umgewandelt werden. (s. Zielliste)
Die Formatierung ist immer gleich.
Geht sowas?
Vielen Dank im Voraus!
Grüße Notzm
19.04.2010 15:56:35
Thread-ID: 1152649
9 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox

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
5
3
4
2
4
4
9
2
8
4
5
16
6
3
1
5
1
13
7
1
10
2
2
3