Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1556to1560
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
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige