Daten suchen und Kopieren

[NiMü7]

Moin zusammen,

ich habe wieder ein Problem mit VBA ^^.

Diesmals handelt es sich um das suchen bzw vergleichen von daten und wenn diese übereinstimmen sollen diese kopiert werden.

Würde mich über jede Art von Feedback freuen.

Hoffnungsvoll

[Rabe]

Hi,

Würde mich über jede Art von Feedback freuen.

zuerst:
Borders.LineStyle = None

None ist kein verwendbares Argument:
Borders.LineStyle = xlNone

zwei Formeln müssen geändert werden:

Tabelle1

	L
10	Nächste freie Zeile:
11	1007
12	Nächste freie ID:
13	6

verwendete Formeln
Zelle	Formel	Bereich	N/A
L11	=L13+1001
L13	{=KKLEINSTE(WENN(ZÄHLENWENN($A$1001:$A$2000;ZEILE($A$1:$A$1001))=0;ZEILE($A$1:$A$1001));ZEILE(E1))}	$L$13

{} Matrixformel mit Strg+Umschalt+Enter abschließen
Matrixformeln sind durch geschweifte Klammern {} eingeschlossen
Diese Klammern nicht eingeben!!

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

Weder in der Sub suchen() noch in suchen1() wird etwas gesucht.
Es fehlt die Funktion "WorksheetFunction.Match()" und das weitersuchen nach Weiterem vorkommen.

etwa so, statt "Summe:" muß der Suchbegriff stehen:

Code:

Sub suchen()
   Dim loZeile As Long
   Dim loStart As Long
   '
   loStart = 1000
   loZeile = Application.WorksheetFunction.Match("Summe:", Range("A" & loStart & ":G" & Cells(13, 12).Value), 0) ' gibt Zeile im Suchbereich aus
   loZeile = loStart + loZeile          'Addition der Such-Startzeile, => Zeile der Fundstelle
   '   MsgBox loZeile                   'Anzeige der Zahl zu Testzwecken
...

[NiMü7]

Erstmal ein großes dankeschön für die Hilfe!

Werde es mal versuchen ob ich es gebacken kriege die suchfunktion richtig am laufen zu kriegen und würde dementsprechend den Theat auch noch offen lassen falls ich noch fragen haben sollte ^^


Mit freundlichen grüßen

[Rabe]

Hi,

die suchfunktion richtig am laufen zu kriegen

Ich würde auf jeden Fall die Datenbank auf ein anderes Tabellenblatt verschieben, Makros müssen dann angepaßt werden!

Hier mit einer Suchfunktion, die aber noch nicht richtig funktioniert, sie bringt den ersten Fund zwei mal.

  beispiel - rabe.xlsm (Größe: 67,5 KB / Downloads: 4)

[NiMü7]

Hi,

die suchfunktion richtig am laufen zu kriegen

Ich würde auf jeden Fall die Datenbank auf ein anderes Tabellenblatt verschieben, Makros müssen dann angepaßt werden!

Hier mit einer Suchfunktion, die aber noch nicht richtig funktioniert, sie bringt den ersten Fund zwei mal.

Sorry für die Späte Antwort aber tausend Dank!!! :3

Das ist einfach genial! oO 

Danke! Danke! Danke!

[NiMü7]

Dennoch habe ich eine frage,
wenn ich aber gezielt suchen will z.B. nur die Leute anzeigen lassen will welche in Stuttgart wohnen und Ingenieure sind, wie kann man sowas am besten anstellen?


Ausserdem nochmal tausend Dank für die Hilfe mit den Programm bis jetzt 




Gruß

[Rabe]

Hi,

wenn ich aber gezielt suchen will z.B. nur die Leute anzeigen lassen will welche in Stuttgart wohnen und Ingenieure sind, wie kann man sowas am besten anstellen?

am allereinfachsten ist es, die Datenbank-Liste in eine intelligente Tabelle umzuwandeln (STRG-L), dann kann in allen Spalten (auch mehreren gleichzeitig) gefiltert werden.

Dann benötigst Du die ganzen Buttons und Makros gar nicht mehr:

• neue Daten werden einfach am Ende der Liste eingegeben,
  
• gesucht wird über Filterung
  
• ...
  

Höchstens könntest Du Dir ein Makro schreiben, das die gefilterten Daten auf ein anderes Blatt kopiert, falls Du dort damit weiterarbeiten willst/mußt.

[NiMü7]

wenn ich aber gezielt suchen will z.B. nur die Leute anzeigen lassen will welche in Stuttgart wohnen und Ingenieure sind, wie kann man sowas am besten anstellen?

am allereinfachsten ist es, die Datenbank-Liste in eine intelligente Tabelle umzuwandeln (STRG-L), dann kann in allen Spalten (auch mehreren gleichzeitig) gefiltert werden.

Also Rabe ich muss schon sagen,
du bist einfach der beste :21: !

Dann ist von der Logik ja die Funktion mit den Suchen button ja irgendwie unnütz gewesen.

Egal, dennoch tausend Dank!!
Ich kann mich eigentlich garnicht genug bei dir bedanken ^^

Gruß

[Rabe]

Hi,

Dann ist von der Logik ja die Funktion mit den Suchen button ja irgendwie unnütz gewesen.

Egal, dennoch tausend Dank!!

nee, Du hast ja was gelernt durch die Funktion, vielleicht für andere Projekte.

Ich war noch nicht ganz fertig und habe den Beitrag weitergeschrieben und die Datei noch angehängt.

[chris-ka]

Hallo NüMü,

wenn die 2013 oder 2016 im Einsatz hast geht es noch "hübscher" was den Filter betrifft^^

  V2_.xlsx (Größe: 12,97 KB / Downloads: 5)
gruß
Chris