Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

ComboBox CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige