vba in excel frage!

- WebmasterWork »
- Grafik & Programmierung »
- Sonstige Programmiersprachen »
- vba in excel frage! »

Super_Frettchen

Haudegen

Dabei seit: 18.05.2006

Beiträge: 624

Freitag, 4. Juli 2008, 08:23

Hallo an alle,

ich bräucht wieder eine kleine Unterstützung und zwar:

Ich habe eine Excel liste und möchte jetzt eine suche einbauen

die liste schaut so ca. aus:

Name IP Location SerNr Prudukt

Somvat123 127.0.0.1 Blub xxxxxxx HP

somvat234 1.2.3.4.45 Blab xxxxx Sony

somvat 456 1.2.3.4.5.66 fdfdfg xxxxxxx Toshiba

nun möchte ich bei der suche nach entweder produkt, oder ip oder so suchen nur kenn ich mich nicht mehr ganz aus wie ich das machen soll vorallem bei excel...

würde mich freuen wenn ihr mir helfen könnt (bzw. es machen könnt

)

grüße

jperl

Super Moderator

Dabei seit: 09.04.2003

Beiträge: 3 453

Freitag, 4. Juli 2008, 10:46

ich werde dir ein wenig auf die sprünge helfen.

	Quellcode
1	Cells(zeile, spalte).Value

gibt dir den wert der zelle [zeile spalte].

hier findest du schöne beispiele für schleifen in vba:
http://de.wikibooks.org/wiki/VBA_in_Exce…3%BCr_Schleifen

kleine tipp:
du läufst einfach die spalte produkt oder ip ab bis nichts mehr in der zelle drinsteht. wenn was drinsteht überprüfst du, ob der wert der zelle gleich deinem suchwort ist.

jperl

Konfuzius [chinesischer Philosoph (551 - 479 v. Chr.)]
Das Entscheidende am Wissen ist, daß man es beherzigt und anwendet.

Ung00d

König

Dabei seit: 10.03.2003

Beiträge: 948

Freitag, 4. Juli 2008, 11:54

Also du solltest dir dann ne UserForm erstellen mit nem Feld für die Eingabe und nen Button der das Makro startet (klar für IP und Produkt jeweils anderes Makro, bzw dann Spalte ans Makro übergeben)

Und Makro sieht dann ca so aus:

Quellcode

Sub suchen(spalte as integer, suche as Variant)
    Dim x
    For x = 2 to 2000 'Hier kannst du auch noch letzte Zeile in der was steht bestimmen lassen,
                               aber weiß nicht mehr genau wie, und 2 bezieht sich auf 1. Zeile in der gesucht wird
        If Cells(x, spalte).Value == suche than
            Cells(x,spalte).Select
            End For
        End If
    Next x
End Sub

Joa und spalte und suche halt bei Druck auf den Button übergeben, also je nachdem was du als Eingabe nimmst (z.B. Textfeld und suche nach IP -> Makro für Button: Call Modul1.suchen(2,TextBox1.Value))

Sollte ungefähr so funktioniern, wenns geht kannste ja mal deine Lösung posten

Frauen ein Kompliment zu machen ist wie Topfschlagen im Minenfeld!

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Ung00d« (4. Juli 2008, 15:15)

Super_Frettchen

Haudegen

Dabei seit: 18.05.2006

Beiträge: 624

Freitag, 4. Juli 2008, 12:01

hast eine pm

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Super_Frettchen« (4. Juli 2008, 12:02)

Ung00d

König

Dabei seit: 10.03.2003

Beiträge: 948

Freitag, 4. Juli 2008, 12:34

Also der du kannst jetzt nach IP und nach Typ suchen (war Annahme für Produkt).
Aber bei Produkt findet er immer nur das erste, da musste schaun ob du das noch eindeutiger machen kannst.

Frauen ein Kompliment zu machen ist wie Topfschlagen im Minenfeld!

Super_Frettchen

Haudegen

Dabei seit: 18.05.2006

Beiträge: 624

Freitag, 4. Juli 2008, 12:38

ok anhand jetzt deiner "vorlage" werd ich jetzt den rest versuchen...

kannst du es aber auch so proggen, wenn man nur 10.21 eingibt und mehr nicht, dass er alle die die ersten zeichen besitzen, n einer liste anzeigt oder markiert?
und das ganze auch bei produkt...

grüße

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Super_Frettchen« (4. Juli 2008, 12:41)

MartyMcFly

Foren Gott

Dabei seit: 04.06.2003

Beiträge: 3 137

Freitag, 4. Juli 2008, 14:03

Warum nicht einfach den Autofilter (extras-Filter-Autofilter) auf die Tabelle setzen, dann geht das alles.

Marty

Losegarten

Ung00d

König

Dabei seit: 10.03.2003

Beiträge: 948

Freitag, 4. Juli 2008, 15:16

Also nur Teile zu suchen is um einiges komplizierter, das ist das Problem an der Sache und da ich grade Prüfungen schreib hab ich auch net wirklich die Zeit mich damit zu beschäftigen. Sollte ich doch mal dazukommen werd ichs versuchen, solltest du eine Lösung finden dann lass se mich zukommen

Frauen ein Kompliment zu machen ist wie Topfschlagen im Minenfeld!

jperl

Super Moderator

Dabei seit: 09.04.2003

Beiträge: 3 453

Freitag, 4. Juli 2008, 15:36

einfach die passende funktion dafür verwenden:
http://www.online-excel.de/excel/singsel_vba.php?f=18

jperl

Konfuzius [chinesischer Philosoph (551 - 479 v. Chr.)]
Das Entscheidende am Wissen ist, daß man es beherzigt und anwendet.