Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

namensbestandteile in VBA suchen lassen

Forumthread: namensbestandteile in VBA suchen lassen

namensbestandteile in VBA suchen lassen
12.01.2005 15:28:38
Susi
Hallo,
folgende Situation.
Es gibt Spalte A (mit Namen z. B. Puma GmbH blub blab) und daneben eine Spalte B mit einer Nummernfolge die immer verschieden ist. Nun soll der Anwender die Möglichkeit haben per CommandButton eine Input Box zu öffnen und die Bestandteile (z. B. nur Puma oder nur blub) dort einzugeben. Als nächstes (da der Name öfter vorkommen kann) muss eine Auflistung der Namen mit den dazugehörigen Nummern erscheinen und der Anwender kann einen davon auswählen. Die Auswahl wir dann automatisch in z. B. Zelle C1 geschrieben.
Anzeige
AW: namensbestandteile in VBA suchen lassen
RR
Hallo,
versuche es mal damit:

Sub Suche()
On Error GoTo ende:
SB = InputBox("suchbegriff")
range("a1:a21000").Select
For Each zelle In Selection
If Not zelle.Find(What:=SB, LookIn:=xlFormulas, LookAt:=xlPart) Is Nothing Then
zelle.Activate
If MsgBox("Weitersuchen?", vbYesNo) = vbNo Then GoTo ende:
End If
Next
ende:
MsgBox ("Ende der Suche!")
cells(1,3)=Cells(zelle.Row, 2)
End Sub

Anzeige
AW: namensbestandteile in VBA suchen lassen
Susi
Hallo,
danke für den Vorschlag, klappt aber net so ganz. Mir zeigt er kein Ergebnis an und schreibt nichts in c3. Ich kenn mich da fast nicht aus. Ausser einer InputBox oder einer IfSchleife ists bei mir schon aus.
Gruß
AW: namensbestandteile in VBA suchen lassen
RR
Hallo,
bei mir macht er das. Habe in Spalte A beliebige Namen stehen und in B Nummern. Er sucht alle die Spalte A nach dem Suchbegriff ab und wenn man bei Weitersuchen? "nein" eingibt, schreibt er den Wert in C1.
Ist zwar nicht ganz das, was du wolltest, aber vom Prinzip ist es das gleiche...nur einfacher zu schreiben.
Anzeige
AW: namensbestandteile in VBA suchen lassen
Volker
Hallo Susi,
hab mal ein bisschen rumgeknobelt und Dir ein Bsp. gebastelt, das Dir eine Auswahlliste in C1 erzeugt
Der Suchbegriff muß in B1 eingegeben werden und und einen Starbutton gibt es auch nicht,
aber das kriegst Du ja vielleicht selbst hin.
Wenn nicht, einfach schreien.
https://www.herber.de/bbs/user/15988.xls
Gruß
Volker
Anzeige
AW: namensbestandteile in VBA suchen lassen
Susi
Hallo,
vielen Dank, hat alles wunderbar geklappt. Die Inputbox hab ich gerade noch :-) selbst hingkriegt. Hat mir sehr geholfen.
Gruß
Susi
AW: namensbestandteile in VBA suchen lassen
Susi
Eine Frage hab ich noch. Wie kann ich es einstellen das er zu den Namen in Spalte A auch noch die dazugehörigen Nummern in Spalte B angezeigt bekommen.
Ist es auch möglich das Dropdownfeld von alleine aufgehen zu lassen?
Gruß
Anzeige
AW: namensbestandteile in VBA suchen lassen
Volker
Hallo Susi,
das sind ja gleich 2 Fragen auf einmal ;-)
mit liste = liste & "," & Cells(i, 1) & " " & Cells(i, 2) werden die Inhalte von Spalte A und B hintereinander geschrieben.
Ein Dropdownmenü öffnet man mit Cursortaste UNTEN.
Man kann in VBA auch Tastatureingaben simulieren.
In dem Fall lautet der Code:
Application.SendKeys ("%{UNTEN}")
Funktioniert aber meines Wissens nicht, wenn man den Code im VBA-Editor ausführt. Also nicht wundern, wenn es z.B. beim Durchlauf des Codes im Einzelschritmodus (F8) nicht geht.
Hier noch mal die komplette sub, wobei der Inhalt von C1 vorher gelöscht wird

Sub finden()
Dim sb, liste As String
Dim i As Integer
i = 1
sb = Cells(1, 2)
Cells(1, 3) = ""
While Cells(i, 1) <> ""
If InStr(Cells(i, 1), sb) <> 0 Then
liste = liste & "," & Cells(i, 1) & " " & Cells(i, 2)
End If
i = i + 1
Wend
liste = Mid(liste, 2)
Cells(1, 3).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=liste
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Application.SendKeys ("%{UNTEN}")
End Sub

Gruß
Volker
Anzeige
AW: namensbestandteile in VBA suchen lassen
13.01.2005 11:10:16
susi
Hallo,
genau das wollte ich. Wunderbar. Vielen Dank für die große Hilfe.
gruß
susi
gern geschehen o.T.
Volker
x

Forumthreads zu verwandten Themen

Sheetcode in VBA project schreiben
Dirk

Hallo Forum,
ich habe mal wieder ein Problem und brauche Eure Hilfe.
Ich versuche per VBA Macrocode in ein Sheet zu schreiben. Das funktioniert auch fuer den ersten Schleifendurchlauf meines Programms. Beim zweiten durchlauf stuerzt Excel leider ab :-(
Woran koennte das liegen? Anb...
27.08.2008 14:10:00
Thread-ID: 1005083
5 Beiträge
Worksheet über Codename ein/ausblenden
Reinhard

Hallo Wissende,
geht es auch direkt ein Worksheet anhand des Codenamen ein/auszublenden?
Eine Schleife kriege ich hin, die alle Blätter durchläuft und wenn der gesuchte Codename gefunden ist dieses Blatt/Worksheet aus/einblendet.
Meine Frage ist also, geht das auch ohne Schleife?
28.08.2008 16:28:02
Thread-ID: 1005518
6 Beiträge
Sheet-Name einer Variablen zuweisen
TommiH

Hallöchen,
hmm, bei dieser Variante bekomme ich eine Fehlermeldung, die mir allerdings nicht wirklich hilft, den Fehler zu finden. Was mache ich da falsch?
Dim v1 As String
v1 = ActiveSheet.Name
Sheets.Add After:=v1
ActiveSheet.Name = "Dummy"
Worksheets(v1).Activate
...
01.09.2008 11:04:00
Thread-ID: 1006356
4 Beiträge
Anzeige
Sheet-Name in Zelle
Frank

Hallo,
mit folgendem Code lege ich ein neues Sheet an
ich möchte das der Namen des neuen Sheets auch in Zelle A2 eingetragen wird.
Nur wie?
Könnte mir bitte jemand weiterhelfen.
Private Sub ComboBox6_Change() End Sub
Private Sub CommandButton1_Click() Application.Sc...
30.10.2008 11:39:38
Thread-ID: 1020547
4 Beiträge
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Monatsnamen mit Jahr (VBA)
Andre´

Hallo alle zusammen,
mit folgenden Makro schreibe ich das aktuelle Datum in A1:
Sub Monat() Range("A1") = Str(Date) End Sub
in A1 steht dann:
18.11.2008
Jetzt möchte ich aber den Monatsnamen und das Jahr in A1 wie folgt haben:
November 2008
Kann mir bitte jemand e...
18.11.2008 17:30:00
Thread-ID: 1025713
11 Beiträge
per VBA kopieren, kein Namenskonflikt
Peter

Guten Tag
Beim Kopieren eines Bereiches mit VBA in eine andere Tabelle erhalte ich die Meldung:
"Die Formel, die eingefügt werden soll, enthält einen Namen, der bereits in der Zieltabelle vorhanden ist. Soll die vorhandene Definition von 'xxxxx' verwendet werden?
* Klicken Sie auf '...
11.12.2008 10:45:09
Thread-ID: 1031973
3 Beiträge
worksheet.activate über Name aus Eigenschaften
michael

Hallo Kollegen.
Folgendes Thema:
Ich habe eine Datei als Kopiervorlage, bei der das erste Blatt nicht umbenannt werden soll, weil ich beim schließen der Datei dorthin zurück springe und Aufgaben erledige.
Erst habe ich über Application.CommandBars("ply").Enabled = True die Funktion...
20.01.2009 19:10:54
Thread-ID: 1041968
5 Beiträge
Namensvergabe per VBA
Boris

Hallo,
ich verwende untenstehenden Code, um per VBA automatisch Namen zuzuweisen. Wenn in Zeile 1 eines Blattes (die Überschriften enthält) der Wert einer Zelle geändert wird, wird ein Name erstellt aus Blattname + "." + Überschrift (z.B. Umsatz.2008), mit dem Bezug=Blattname!$X$#2, wobei X...
30.01.2009 12:14:00
Thread-ID: 1045354
8 Beiträge
VBA Befehl in mehreren Sheets ausführen
Tom

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
16.03.2009 10:46:16
Thread-ID: 1060630
8 Beiträge
Sheets.Name bei AddInn
mknelles

Hallo Leute,
>wb.Sheets.Countwb.Sheets.Name Gruß Markus
22.03.2009 20:59:56
Thread-ID: 1062713
12 Beiträge
Anzeige
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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