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

Suche in Spalte den ersten Wert

Forumthread: Suche in Spalte den ersten Wert

Suche in Spalte den ersten Wert
28.11.2022 10:03:39
Angelika
Guten Morgen,
bestimmt könnt Ihr mir helfen, ich suche über VBA den ersten Wert in der Spalte L ab Zeile 12,
deren Wert dann in der Tabelle 2 auf A13 dargestellt werden soll.
Vielen Dank Vorab
Angelika
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Suche in Spalte den ersten Wert
28.11.2022 10:19:30
migre
Hallo Angelika!
Eine Möglichkeit:

Sub ErstenWertUebertragen()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Tabelle1")
Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets("Tabelle2")
WsZ.Cells(13, 1).Value = WsQ.Cells(11, 12).End(xlDown).Value
End Sub
Das ist im Grunde keine Hexerei: Auf Tabelle1 wird, ausgehend von L11, zur nächsten gefüllten Zelle in der Spalte gesprungen (entspricht [Strg] + [Pfeil runter] auf der Tastatur); dieser Wert wird dann direkt in A13 auf Tabelle2 geschrieben. Das ist eine (von vielen) Möglichkeiten, die dann im Detail von Deinen Anforderungen abhängen.
LG Michael
Anzeige
AW: Suche in Spalte den ersten Wert
28.11.2022 15:02:31
Angelika
Halo Michael, vielen lieben Dank ... leider funktioniert der Code noch nicht richtig, es sucht nimmt aber den letzten Wert aus der Spalte, ich benötige den ersten Wert aus der Spalte, egal ob es eine Zahl / Formel oder Text ist. Hast Du vielleicht noch eine andere Idee.
Vielen lieben Dank
Angelika
Anzeige
AW: Suche in Spalte den ersten Wert
28.11.2022 15:57:02
oraculix
Hi
Meinst so?

Sub Kopieren()
Range("L12").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Gruß
Oraculix
AW: Suche in Spalte den ersten Wert
28.11.2022 16:10:11
Angelika
Hallo Oraculix :-) ...
Nicht ganz .. die Spalte L bleibt aber die Zeile kann auch mal die L15 oder L100 sein, deshalb sollte ich die erste beschriebene zelle in Spalte L kopieren :-)
Vielleicht hast Du noch eine andere Idee ...
Liebe Grüße
Angelika
Anzeige
AW: Suche in Spalte den ersten Wert
28.11.2022 18:10:29
Oberschlumpf
Hi Angelika,
hier meine Idee:

Sub test()
Dim lloRow As Long
For lloRow = 12 To Cells(Rows.Count, 12).End(xlUp).Row
If Range("L" & lloRow).Value  "" Then
Sheets("Tabelle 2").Range("A13").Value = Range("L" & lloRow).Value 'wenn im Original Blattname nicht "Tabelle 2", dann hier anpassen!
Exit For
End If
Next
End Sub
Hilfts?
auch nein? Dann zeig bitte per Upload ne Bsp-Datei.
Ciao
Thorsten
Anzeige
AW: Suche in Spalte den ersten Wert
29.11.2022 15:19:18
Angelika
Hallo Thorsten,
genau das gleiche... wenn in Zeile L12 was steht, dann übernimmt es, wenn L15, dann nicht :-( .. bin bald am verzweifeln.
Ich habe vorher eine Beispielsdatei hochgeladen.
Vielen Dank
Angelika
AW: Suche in Spalte den ersten Wert
28.11.2022 20:07:43
GerdL
Hallo

Tabelle2.Range("A13") = Tabelle1.Range("L12:L" & Rows.Count).SpecialCells(2)(1)
Gruß Gerd
Anzeige
AW: Suche in Spalte den ersten Wert
29.11.2022 14:53:23
Angelika
Hallo zusammen,
Danke, ist ja klasse... ich habe den Code auf einem neuen Workbook mit Tabelle1 und Tabelle2 getestet, hat super funktioniert,
dann bin ich in meinen Projekt und versuchte dies dort umzusetzen. Er schreibt, wenn in Zeile L12 einen Wert drinnen steht auch korrekt
nach D13... aber, wenn in L12 nichts steht ... und erst in L15 zum Beispiel, wird dieser nicht abgebildet. Liegt es evtl. an der intelligenten Tabelle?
Ich hab mein Projekt... als Testdatei gewandelt und hab diese hier mal mit abgestellt... vielleicht fällt Euch noch was ein :-)
Vielen Dank im Voraus
Angelika
https://www.herber.de/bbs/user/156454.xlsm
ThisWorkbook.Worksheets("Funktionen").Range("D13") = ThisWorkbook.Worksheets("KALK").Range("L12:L" & Rows.Count).SpecialCells(2)(1)
Anzeige
AW: Rückfrage
29.11.2022 17:34:04
GerdL
Hallo Angelika,
bei mir wird der Wert aus L13 gezogen. Du hast dreimal (nur) den selben Wert eingesetzt.
Von einem Listobjekt war bisher noch nicht die Rede.
Frage: Filterst du in der Listobjekt-Spalte "Kunde" auf dem Blatt "KALK"? Falls ja, was ist dann an Werten zu berücksichtigen?
Gruß Gerd
Anzeige
AW: Rückfrage
30.11.2022 09:30:05
Angelika
Hallo Gerd,
entschuldige wenn ich es nicht reingeschrieben habe, dass es sich um ein Listenobjekt handelt, ich wusste nicht, dass dies von Bedeutung ist.
In der L Zeile tauchen immer die gleichen Kundennummern auf... teilweise bis zu 1000 mal, ich möchte in der Tabelle "Funktionen" nur einmal in der Zelle
A13 bzw D13 wissen welches der aktive Kunde ist (Das ist der wo in der Spalte L steht... die Zelle kann unterschiedlich sein :-)
Nein, auf den Kunde wird nichts gefiltert und momentan auch nicht sortiert.
Grüße Angelika
Anzeige
;

Forumthreads zu verwandten Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
in Zeile oder Spalte Wert suchen
Lars

Hallo,
ich habe eine Zeile in der z.B. B1 B2 B3 usw. stehen.
Gibt es eine einfache Möglichkeit nach der Spalte zu suchen, in der z.B. B2 steht. Derzeit versuche ich es über eine komplizierte If-Abfrage.
Ich habe auch die Worksheetfunction "search" gefunden, weiß aber nicht, wie sie...
12.11.2008 11:12:43
Thread-ID: 1023752
7 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
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Wert in Spalte suchen
rebecca

Hallo,
ich möchte 2 Spalten vergleichen und wenn der Wert in einer Spalte steht, soll die Zelle ausgegeben werden.
Also: Spalte A 1,2,3 Spalte B 2,5,6 Dann Spalte C 2, alle anderen leer.
Welche Formel ist geeignet und wie muss ich sie aufbauen?
Dankeschön.
Gruss
...
24.11.2008 15:38:00
Thread-ID: 1027331
3 Beiträge
Anzeige
Suchen in Matrix nach 2 Werten mit einer Funktion
Heix

Hallo zusammen, habe gerade die Gesamt-CD von Herrn Herber erhalten und habe nun auch schon die erste Frage:
Ich möchte in einer Zelle den Wert aus einer Matrix übernehmen lassen und zwar wie folgt:
Matrix:
Lampe Brutto Netto
-------- -------- -------
EGES.....24.......18
28.11.2008 11:24:00
Thread-ID: 1028631
5 Beiträge
Suche nach einer Mittelwert Funktion
Kai

Hallo,
ich bin gerade dabei, eine Auswertung von bestellten Artikeln zu machen. Dazu habe ich eine Liste, mit bestellten Artikeln sowie die Lieferzeit. Nun möchte ich für alle Artikel mit der gleichen Produktnummer, die durchschnittliche Lieferzeit ausrechnen lassen. Das Problem hierbei ist...
29.12.2008 16:04:46
Thread-ID: 1035787
2 Beiträge
Suche rückwärts nach Wert wenn Bedingung erfuellt
Horst

Hey !
Ich schreibe suchmakros.
Mir find("suchwert") kann ich nache einem bestimmten Inhalt einen Zelle suchen...
O.K.
jetzt möchte ich nach einem Wert in einer zelle suchen der eine bestimmte Bedingung erfüllt.
Zum Bespiel möchte ich nach einem Datum in einer suchen...
...
13.01.2009 07:45:09
Thread-ID: 1039076
5 Beiträge
VBA Wert suchen, Wert einfügen
andreas

Hallo zusammen,
wie muss ich den Code schreiben, suche nach Zeilen in denen die Zelle "B" nicht leer ist.
In der Zeile in der die Zelle "B" nicht leer ist soll dann in Zelle "P" der Wert "1" eingetragen werden.
Danke für die Hilfe
Andreas
09.03.2009 08:27:39
Thread-ID: 1057988
8 Beiträge
Eingeben wert in Spalte suchen und agieren
Jaffi

Hallo Forum,
brauche mal wieder eure Hilfe. Komme seid 4 Stunden google nicht weiter:
Ich habe eine Tabelle in der ab B4 einge Datensätze stehen.
Nun möchte ich der Zelle B2 folgendes Makro hinterlegen was ausgeführt werden soll, wenn ein vorher definierter
Zeichensatz eingeben...
25.03.2009 17:27:06
Thread-ID: 1063895
16 Beiträge
In Spalte nach Wert suchen VBA
andreas


Hallo zusammen,
ich habe hier eine Tabelle, da will ich nach jeder Änderung in der Tabelle in Spalte "F" nach Wert "Spritzgießen" suchen und bei den gefundenen Zeilen die Zellen "B-N" rot einfärben und mit Rahmen versehen.
Komme aber wegen Mangels VBA-Erfahrung nicht klar damit.
03.04.2009 13:05:41
Thread-ID: 1066652
5 Beiträge
Spalte nach Wert >10 durchsuchen und Wert ausgeben
Ron

Hallo Leute,
ich benötige wieder mal Hilfe bei der Umsetzung einer Idee. Ich habe in einem Tabellenblatt in einer Spalte (A) 20 absteigende Werte in Prozent. In Spalte B habe ich in ganzen Zahlen die Treffer aus meiner Datenbank zugeordnet. Jetzt möchte ich Spalte B von oben nach dem ersten...
05.05.2009 14:44:46
Thread-ID: 1073093
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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