Bestimmte Werte übertragen per VBA

Bild

Betrifft: Bestimmte Werte übertragen per VBA
von: Y. Housein
Geschrieben am: 09.12.2003 02:30:00

Hallo Leute,

ich habe folgendes Problem. In meiner Excelmappe befindet sich eine Arbeitsblatt Namens Rechnung. Dort sollen nur bestimmte Werte wie Anzahl, Getränke(Fanta, Cola usw.) nach Tabelle Gutschrift übertragen werden.
Die Rechnungstabelle und Gutschrifttabelle sind identisch.
Die Rechnungstabelle schaut wie folgt aus:

Auf D25 ist Anzahl; D26 ist Artikelbezeichnung usw., wie kann ich nur die Anzahl (Werte) und Artikelbezeichnung (Werte)nach krieterien übertragen. Ferner sollen alle übertragenen Werte=Artikelbezeichnung umbenannt werden nach Leistungsabschlag. Ja und als letztes sollen die darauf folgende Formeln wie MWST, Preis von Leistungsabschlag nicht beeinflusst werden.

Ich hoffe Ihr könnt mir helfen.

Gruß

Y. Housein

Bild


Betrifft: AW: Bestimmte Werte übertragen per VBA
von: PeterW
Geschrieben am: 09.12.2003 02:43:15

Hallo Housein,

mit dem angegebenen Level VBA nein sollte die Aufgabenstellung schon etwas genauer sein. Soll eine 1:1 Übertragung stattfinden, also von Rechnung!D25 nach Gutschrift!D25? Was sind die Kriterien? Und welche Rollen spielen die "darauf folgenden Formeln"?

Gruß
Peter


Bild


Betrifft: AW: Bestimmte Werte übertragen per VBA
von: Y. Housein
Geschrieben am: 09.12.2003 03:29:57

Hallo Peter,

es sollen nur die Werte übertragen werden die im Artikelbezeichnung Getränke beinhalten, wie Cola, Redbull usw.

Also hier soll Spalte E26:E55 überprüft werden nach Getränke, wenn Getränk (Krieterien: Aslan, Cola 0,33, Cola Light 0,33, Desperados usw.)
dann übertragen nach Tabelle R_Gutschrift und die Anzahl auch.

Mit Formel bekomme ich das irgendwie selbst hin.

Hier die Beispiel Datei: Für einblenden der Tabellen benötigst Du das Passwort "test"
https://www.herber.de/bbs/user/2378.xls

Gruß

Yilmaz


Bild


Betrifft: AW: Bestimmte Werte übertragen per VBA
von: PeterW
Geschrieben am: 09.12.2003 19:26:04

Hallo Yilmaz,

das Übertragen sollte so klappen:

Sub UebertragenInR_Gutschrift()
Dim lgErg As Long
Dim wksArt As Worksheet
Dim wksRe As Worksheet
Dim wksGu As Worksheet
Dim intRe As Integer
Dim intGu As Integer
Set wksArt = Sheets("Artikel")
Set wksRe = Sheets("Rechnung")
Set wksGu = Sheets("R_Gutschrift")
intRe = 26
intGu = 26
Do Until intRe > 55 Or IsEmpty(wksRe.Cells(intRe, 5))
  lgErg = WorksheetFunction.Match(wksRe.Cells(intRe, 5), Sheets("Artikel").Range("B10:B38"), 0)
  If wksArt.Cells(lgErg + 9, 3) = "Getränke" Then
    wksGu.Cells(intGu, 5) = wksRe.Cells(intRe, 5)
    wksGu.Cells(intGu, 4) = wksRe.Cells(intRe, 4)
    intGu = intGu + 1
    End If
  intRe = intRe + 1
Loop
End Sub

Gruß
Peter


Bild


Betrifft: AW: Bestimmte Werte übertragen per VBA
von: Y. Housein
Geschrieben am: 10.12.2003 20:57:29

Hallo Peter,

super - das funktioniert 100 % - Danke für deine Mitarbeit bzw. Leistung.

Gruß Yilmaz


Bild

Beiträge aus den Excel-Beispielen zum Thema " Bestimmte Werte übertragen per VBA"