Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
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
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl per Makro suchen ( Mehrfachfund )

Zahl per Makro suchen ( Mehrfachfund )
Hans
Hallo Leute .. ich habe ein Problem und bekomme es nicht hin.
Mein Chef verlangt von mir dass ich es auf seine Wünsche hinbekomme,..
Ich habe eine Datei die Auftrag.xls heißt. Hier stehen in der Spalte „D“ Nummern.
Per Marko soll eine Nummer ( die kann auch öfters vorkommen ) gesucht werden.
Und dann die in der dazugehörigen Spalte A stehende Nummer in der Datei Erfassung.xls in dem Sheet Tabelle1 in der Spalte Z untereinander ausgegeben werden.
Kann mir jemand beim Ansatz helfen?
Cu
Hans

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zahl per Makro suchen ( Mehrfachfund )
23.01.2012 13:47:15
Rudi
Hallo,
wozu Makro?
Als Ansatz:
 ABCDEFGH
1X  Nr  NrX
2a  1  2b
3b  2   d
4c  3   f
5d  2   i
6e  1   m
7f  2   p
8g  3   t
9h  4    
10i  2    
11j  3    
12k  4    

ZelleFormel
H2{=WENN(ZEILE(A1)>ZÄHLENWENN($D$2:$D$23;$G$2);"";INDEX($A$2:$A$23;KKLEINSTE(WENN($D$2:$D$23=$G$2;ZEILE($1:$22);"");ZEILE(A1))))}
H3{=WENN(ZEILE(A2)>ZÄHLENWENN($D$2:$D$23;$G$2);"";INDEX($A$2:$A$23;KKLEINSTE(WENN($D$2:$D$23=$G$2;ZEILE($1:$22);"");ZEILE(A2))))}
Achtung, Matrixformel!
Die geschweiften Klammern{} nicht eingeben,
sondern die Zelle mit
Shift + Strg + Enter
verlassen statt Enter alleine.

Gruß
Rudi
Anzeige
AW: Zahl per Makro suchen ( Mehrfachfund )
23.01.2012 13:58:35
Hans
Vielen Dank für die schnelle Antwort.
Ich habe es zur Zeit so als Formel drinnen ... aber es schein zu viel für Excel zu sein.
Wenn die Datei gepeichert wird kommt immer die Meldung "Microsoft Excel kann diesen Vorgang mit den verfügbaren Ressourcen nicht aussführen ...."
Außerdem dauert seit dem alles sehr lange.
cu
Hans
Fragen
23.01.2012 14:14:46
Rudi
Hallo,
in welcher Datei soll das Makro stehen?
In welchem Blatt in Auftrag.xls stehen die Daten?
Nummern in A einmalig oder auch mehrfach?
Gruß
Rudi
AW: Fragen
23.01.2012 14:24:11
Hans
Hallo Rudi.
Das Markro soll in der Datei Erfassung.xls stehen.
Das Blatt in der Datei Auftrag heist "Daten"
Die Nummer in der Spalte A gibt es nur einmal.
Die Nummer ( nach der gesucht wird ) in Spalte D gibt es einmal oder mehrfach.
Die gefundenen Nummern der Spalte A sollen dann in der Datei Erfassung.xls im Blatt "Tabelle1" in der Spalte Z untereinander stehen.
Cu
Hans
Anzeige
AW: Fragen
23.01.2012 14:34:41
Rudi
Hallo,
in ein Modul: 
Sub Zahl()
Dim lngZahl As Long, arr(), lngRow As Long, lngCount As Long, lngCounter As Long
Dim wksAuftrag As Worksheet, wksErfassung As Worksheet
Set wksErfassung = ThisWorkbook.Sheets(1)
lngZahl = Application.InputBox("Zahl?", "Eingabe", Type:=1)
If lngZahl > 0 Then
On Error Resume Next
Set wksAuftrag = Workbooks("Auftrag.xls").Sheets("Daten")
On Error GoTo 0
If wksAuftrag Is Nothing Then
Set wksAuftrag = Workbooks.Open(ThisWorkbook.Path & "\Auftrag.xls").Sheets("Daten")
End If
With wksAuftrag
lngCount = Application.CountIf(.Columns(4).lngZahl)
If lngCount = 0 Then
MsgBox lngZahl & " nicht vorhanden.", vbOKOnly, "Gebe bekannt..."
Else
ReDim arr(1 To lngCount, 1 To 1)
For lngZahl = 1 To .Cells(Rows.Count, 4).End(xlUp).Row
If .Cells(lngRow, 4) = lngZahl Then
lngCounter = lngCounter + 1
arr(lngCounter, 1) = .Cells(lngRow, 1)
End If
Next
End If
End With
With wksErfassung
.Columns(26).ClearContents
.Cells(1, 26).Resize(lngCount) = arr
End With
End If
End Sub

Ungetestet.
Auftrag und Erfassung im selben Ordner.
Gruß
Rudi
Anzeige
AW: Fragen
23.01.2012 14:55:48
Hans
Hallo Rudi
In der Zeile :
lngCount = Application.CountIf(.Columns(4).lngZahl)
erscheint die Fehlermeldung "Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht "
cu
Hans
Tippfehler
23.01.2012 15:01:22
Rudi
Hallo,
Application.CountIf(.Columns(4), lngZahl)
Gruß
Rudi
AW: Tippfehler
23.01.2012 15:07:26
Hans
Danke :D
Aber nun erscheint in der Zeile :
If .Cells(lngRow, 4) = lngZahl Then
Laufzeitfehler 1004
Andwenungs- oder objektdev. Fehler
cu
Hans
AW: Tippfehler
23.01.2012 15:14:09
Rudi
Hallo,
ich sach ja: ungetestet ;-) 
    With wksAuftrag
lngCount = Application.CountIf(.Columns(4), lngZahl)
If lngCount = 0 Then
MsgBox lngZahl & " nicht vorhanden.", vbOKOnly, "Gebe bekannt..."
Else
ReDim arr(1 To lngCount, 1 To 1)
For lngRow = 1 To .Cells(Rows.Count, 4).End(xlUp).Row
If .Cells(lngRow, 4) = lngZahl Then
lngCounter = lngCounter + 1
arr(lngCounter, 1) = .Cells(lngRow, 1)
End If
Next
End If
End With

Gruß
Rudi
Anzeige
AW: Tippfehler
23.01.2012 17:01:39
Hans
Vielen Dank Rudi
Es funktioniert 1 A
cu
Hans

308 Forumthreads zu ähnlichen Themen

Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Mehrzeilige Textbox mit Enter nächsten Zeile?
Timo

Hallo Ihr,
ich habe eine mehrzeilige Textbox.
Wie bringe ich diese dazu wenn Enter gedrückt wird der Cursor eine Zeile nach unten springt und nicht in die nächste Textbox?
Mit "shift & Enter" gehts! Ich hätte aber gerne nur Enter!
2. Frage in der Textbox stehen bereits ein...
17.11.2008 14:48:08
Thread-ID: 1025232
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
4
2
4
5
1
2
4
3
21
3
2
2
1
5
7
4
5
8
4
4
2
7
3