Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen-finden und dann Aktion

Forumthread: Suchen-finden und dann Aktion

Suchen-finden und dann Aktion
09.05.2017 11:46:59
Michael
Hallo,
ich baue mir aus Makrorekorder erzeugte makro`s aund Beispiele ausm Internet meine eigenen Makro`s zusammen. Sehr oft fehlt aber das Verständnis bzw. die Kenntnis, was zu verfeinern bzw was zu programmieren, was mim Makrorekorder nicht zu schaffen ist.
Ich habe eine Liste, in A Herstellername, in B Bestellnummer-Abmaße-Idendifikation und in Spalte C die Artikelnummer. Jetzt soll, wenn in Spalte A unser Firmenname steht, die Artikelnummer in Spalte C in die Spalte B verschoben werden. Aber nur, wenn in Spalte A unser Firmenname steht, sonst nicht.
Danke
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen-finden und dann Aktion
09.05.2017 11:55:08
dirk
Hallo!
Vieleicht so:
Sub main
dim i as long, MyFirma as string, LastRow as long
MyFirma = "Firmenname"  'hier den String ändern in den Firmenname, der gesucht werden soll !!  _
gross/Kleinschreibung beachten !!
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row  'definiert LastRow auf Basis Spalte A
End With
for i = 1 to LastRow
If Cells(i,1).value = MyFirma then
cells(i,2).value = cells(i,3)
next i
'alles geprüft und kopiert
End Sub

Ungeprüft.
Lass' hören, ob ok.
Dirk aus Dubai
Anzeige
AW: Suchen-finden und dann Aktion
09.05.2017 12:01:50
dirk
Sorry.
End if vergessen. Hier korrigiert.
gruss
Dirk aus Dubai
Sub main
dim i as long, MyFirma as string, LastRow as long
MyFirma = "Firmenname"  'hier den String ändern in den Firmenname, der gesucht werden soll !!   _
_
gross/Kleinschreibung beachten !!
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row  'definiert LastRow auf Basis Spalte A
End With
for i = 1 to LastRow
If Cells(i,1).value = MyFirma then
cells(i,2).value = cells(i,3)
end if
next i
'alles geprüft und kopiert
End Sub

Anzeige
AW: Suchen-finden und dann Aktion
09.05.2017 12:20:09
Michael
Hey supi,
leider funktioniert es fast zu 100%. Die Artikelnummer soll verschoben werden, nicht kopiert.
VIELEN DANK
AW: Suchen-finden und dann Aktion
09.05.2017 12:28:13
Werner
Hallo Michael,
du brauchst doch nur noch die Zelle in Spalte C leeren.
If Cells(i,1).value = MyFirma then
cells(i,2).value = cells(i,3)
Cells(i, 3).ClearContents
end if
Gruß Werner
Anzeige
AW: Suchen-finden und dann Aktion
09.05.2017 12:32:21
Michael
Hallo Werner, wäre fast ok wenn man die komplette Spalte C löschen
dürfte. Jedoch soll die Artikelnummer in C stehen bleiben, wo in A nicht
unser Firmenname steht. Es stehen da die Namen der Zulieferer und da muß unsere
Artikelnummer in C stehen bleiben, weil in B die Angaben vom Zulieferer stehen.
Deshalb geht das nicht mit löschen Spalte C
Anzeige
AW: Suchen-finden und dann Aktion
09.05.2017 12:39:36
Werner
Hallo Michael,
erstens wird nichts gelöscht sondern nur der Zellwertänderung entfernt. Zweitens passiert das mit dem Code nur dann, wenn in Spalte A der Name eurer Firma steht. Das ist doch genau das, was du wolltest.
So was sollte man halt auch mit einer Kopie der Arbeitdatei mal testen.
Gruß Werner
Anzeige
AW: Suchen-finden und dann Aktion
09.05.2017 13:29:53
Michael
VIELEN DANK
AW: Gerne u. Danke für die Rückmeldung.
09.05.2017 13:42:18
Werner
.....wobei der Dank wohl eher Dirk gebührt.
Gruß Werner
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige