Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
220to224
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
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte in Tabelle

Werte in Tabelle übernehmen, mit Suchfunktion
24.02.2003 15:44:06
Gero
Hallo Leute, ich habe hier eein kleines Problem:

Ich habe folgende Eingabefelder im Datenblatt 1:
1.Artikelnummer
2.Lager Inland
3.Preis Inland
4.Lager Ausland
5.Preis Ausland

Nach Betätigung eines Makros sollen die dazugehörigen Werte
einer Tabelle auf Datenblatt 2 angehängt werden, und diese
Tabelle nach Übertragung nach Artikelnummer sortiert werden.
Bis hierhin kein Problem. Aber ab und zu bekomme ich neue
Werte für (in der Tabelle) bereits bestehende Artikelnummern -
da sollte das Makro nicht einfach alle Werte übernehmen und
der Tabelle anfügen, sondern überprüfen ob es schon einen Eintrag mit der neuen Artikelnummer gibt. Und falls ja, sollten
die neuen Werte in den alten Eintrag übernommen werden.
Bsp.:
Erster Eintrag:
1.Artikelnummer: 123
2.Lager Inland: 2 Stck.
3.Preis Inland: 10,-
4.Lager Ausland: kein Eintrag
5.Preis Ausland: kein Eintrag

Späterer Eintrag:
1.Artikelnummer: 123
2.Lager Inland: kein Eintrag
3.Preis Inland: kein Eintrag
4.Lager Ausland: 5 Stck.
5.Preis Ausland: 15,-

Zu wünschendes Endergebnis:
1.Artikelnummer: 123
2.Lager Inland: 2 Stck.
3.Preis Inland: 10,-
4.Lager Ausland: 5 Stck.
5.Preis Ausland: 15,-

Wäre cool, wenn mir jemand damit helfen könnte - Danke!


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Werte in Tabelle übernehmen, mit Suchfunktion
24.02.2003 15:50:27
Andreas Walter

Es wäre 'cool', wenn Du die schon erzeugte Code posten würdest, damit wir 'affenstarke' Antworten abgeben könnten.

Re: Werte in Tabelle übernehmen, mit Suchfunktion
24.02.2003 16:42:37
Gero

O.K., hier der bisherige Code (bitte nicht lachen, ich bin absoluter VBA-Neuling):

Sub Schaltfläche1_BeiKlick()

If Range("A1") = "" Then
MsgBox ("Bitte EFA-Nummer eingeben!")
Else
Range("A1:B3").Select
Selection.Cut
Sheets("Tabelle2").Select
Range("A4").Select
Selection.End(xlToRight).Select
Selection.Offset(0, 1).Select
ActiveSheet.Paste
Sheets("Tabelle2").Select
Range("B4:IV6").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
Sheets("Tabelle1").Select
End If
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige