Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
10.10.2025 09:33:21
Alle vorhanden Elemente in einer Spalte extra abbilden.
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen nebendran kopiern , einfügen

Forumthread: Suchen nebendran kopiern , einfügen

Suchen nebendran kopiern , einfügen
29.08.2019 11:20:04
Sarah
Hey brauche dringend hilfe..
folgendes:
Ich habe eine Combobox wenn ich einen Stringwert anklicke und auf Button1 drücke soll folgendes geschehn:
Stringwert wird in Tabelle "Verknuepfung" in Spalte B gesucht, wenn gefunden(bgefunden), dann kopiere bgefunden in Tabelle "KzB" Spalte B ( in die nächste Freie zeile)
Für nächste Freie zeile hab ich schon das .. 

Private Sub UserForm_Initialize()
Dim lngUntersterEintrag As Long
lngUntersterEintrag = Range("A65536").End(xlUp).row
Me.ComboBox1.List = Worksheets("Verknuepfung").Range("B2:B" & lngUntersterEintrag).Value
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen nebendran kopiern , einfügen
29.08.2019 12:10:59
Werner
Hallo Sarah,
was meinst du mit bgefunden.
Du willst den Wert, der in der Combobox1 ausgewählt ist im Blatt "Verknüpfung" suchen und von dort in ein zweites Blatt kopieren.
Wozu den Wert erst suchen und dann den Wert aus dem Blatt Verknüpufung kopieren. Du kannst doch auch überpüfen, ob der Wert aus der Combobox in Spalte B "Verknüpfung" vorhanden ist (mit Countif) und wenn ja, den Wert aus der Combobox ins Zielblatt schreiben.
Gruß Werner
Anzeige
AW: Suchen nebendran kopiern , einfügen
29.08.2019 12:23:27
Sarah
Ich brauch nicht den wert aus der Combobox sondern der nebendran ( -1 Spalte) Also Spalte A liegende Wert
Gruß Sarah
AW: Suchen nebendran kopiern , einfügen
29.08.2019 12:53:29
Werner
Hallo Sarah,
dann solltest du das auch mitteilen. 
Private Sub CommandButton1_Click()
Dim strSuch As String, raFund As Range
If Me.ComboBox1  "" Then
strSuch = Me.ComboBox1
Set raFund = Worksheets("Verknüpfung").Columns(2).Find(what:=strSuch, LookIn:=xlValues, _
lookat:=xlWhole)
If Not raFund Is Nothing Then
With Worksheets("KzB")
.Range("B" & .Cells(.Rows.Count, "B").End(xlUp).Offset(1).Row) = raFund.Offset(, -1)
End With
Else
MsgBox "Suchbegriff: " & strSuch & " ist im Blatt KzB nicht vorhanden."
End If
End If
Set raFund = Nothing
End Sub
Gruß Werner
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige