Hilfe mit Schleife - Abhängigkeit zweier Zellen

Hallo nochmal...
ich komme mit meinem Problem leider doch nicht weiter obwohl ich dachte ich hätte es :(
das Problem ist fogendes:
In einem Arbeistblatt werden in den Zellen ("A18:V18") Werte aus einem anderen Arbeitsblatt eingefügt, nämich Mengen von bestellten Waren! Wenn mal von einer bestimmten Ware nichts bestellt wurde bleibt die entsprechende Zelle eben leer.
Durch ein weiteres Makro wird aus einer Preisliste in den Zellen darunter ("A19:V19") der entsprechende Preis eingefügt, der allerdings variieren kann
Nun soll aber kein Preis eingetragen werden, wenn in der darüber liegenden Zelle auch kein Wert eingetragen ist, also nichts bestellt wurde, weil das einfach unprofessionell wirkt!
Dieser Vorgang wiederholt sich jetzt einige male! Es werden also wieder andere Bestellungen kopiert und in die Zellen ("A27:V27") eingefügt und die entsprechenden Preise in die Spalte darunter ("A28:V28")
usw...
Mit den Bestellungen funktioniert alles nur bei den Preisen komm ich eben nicht drauf, wie das Makro eigenständig prüfen kann, ob in der Zelle darüber eben etwas steht...
Der Code für das Einfügen der Preise geht im Moment so:


Sub Rechnung_W_Preise()
'Kopier- und Einfügecode
With Worksheets("pliste")
.Activate
'Bereich 1
.Range("B73:W73").Copy
Sheets("Rechnung_W").Range("A19").PasteSpecial Paste:=xlPasteValues
'Bereich 2
.Range("B66:W66").Copy
Sheets("Rechnung_W").Range("A28").PasteSpecial Paste:=xlPasteValues
'Bereich 3
.Range("B80:W80").Copy
Sheets("Rechnung_W").Range("A37").PasteSpecial Paste:=xlPasteValues
'etc...
End With
End Sub

Ich hatte schon von INgolf folgenden Ansatz bekommen:


Sub Rechnung_W_Preise()
Dim rng As Range
For Each rng In Sheets("Rechnung_G").Range("A18:V18")
If rng > 0 Then
.Range("B73:W73").Copy
Sheets("Rechnung_G").Cells(19, rng.Column).PasteSpecial Paste:=xlPasteValues
End If
Next 'rng
End Sub

irgendwie trägt das Makro aber immernoch alle kopierten Preise ein, auch wenn darüber kein Wert steht!
Außerdem weiß ich nicht wie ich die Schleife erweitere, um auf den nächsten Bereich überzugehen...
Bin eben noch ziemlich am Anfang mit meinen VBA Kentnissen!
Ich bin also weiterhin für jeden Tip dankbar
Gruß, Toni

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Rechnung_W_Preise1() Dim wks As Worksheet Set wks = Worksheets("pliste") Application.ScreenUpdating = False Dim wks1 As Worksheet Set wks1 = Worksheets("Rechnung_W") spaltenende = 23 zeile = 19 For spalte = 1 To spaltenende If wks1.Cells(zeile - 1, spalte) > 0 Then wks1.Cells(zeile, spalte) = wks.Cells(73, spalte + 1) End If Next spalte spaltenende = 23 zeile = 28 For spalte = 1 To spaltenende If wks1.Cells(zeile - 1, spalte) > 0 Then wks1.Cells(zeile, spalte) = wks.Cells(66, spalte + 1) End If Next spalte spaltenende = 23 zeile = 37 For spalte = 1 To spaltenende If wks1.Cells(zeile - 1, spalte) > 0 Then wks1.Cells(zeile, spalte) = wks.Cells(80, spalte + 1) End If Next spalte Application.ScreenUpdating = True End Sub

Hallo Jan, hallo Rudi!
Vielen Danke für eure Antworten!
@ Jan
Dein Code funktioniert leider noch nicht richtig, er beschwert sich, dass "Spaltenende" und "Zeile" nicht definiert sind... muss ich da noch was speziell eingeben? Sorry für meine Ahnungslosigkeit...
Folgende Stelle ist aber glaube ich genau dass, was ich gesucht habe, also der Bezug zu der darüber liegenden Zelle!! Das müsste ja ansich echt so funktionieren!! Ich bekomme langsam wieder Hoffnung :)


Sub Rechnung_W_Preise1()
If wks1.Cells(Zeile - 1, spalte) > 0 Then
wks1.Cells(Zeile, spalte) = wks.Cells(73, spalte + 1)
End Sub

@ Rudi
Das mit der Schriftfarbe wär natürlich ne sehr einfache Lösung, aber das Problem ist, dass die Zellen ja jedesmal durch ein Makro überschrieben werden... kann ich die Schriftfarbe denn noch wo anders formatieren außer in der Zelle selbst...?
Es wird ja zuerst ein Wert durch das MAkro eingetragen und danach soll geprüft werden, ob die Zelle darüber auch einen Wert enthält oder nicht...
Gruß, Toni

Sub Rechnung_W_Preise1() Dim spaltenende As Long Dim zeile As Long Dim wks As Worksheet Set wks = Worksheets("pliste") Application.ScreenUpdating = False Dim wks1 As Worksheet Set wks1 = Worksheets("Rechnung_W") spaltenende = 23 zeile = 19 For spalte = 1 To spaltenende If wks1.Cells(zeile - 1, spalte) > 0 Then wks1.Cells(zeile, spalte) = wks.Cells(73, spalte + 1) End If Next spalte spaltenende = 23 zeile = 28 For spalte = 1 To spaltenende If wks1.Cells(zeile - 1, spalte) > 0 Then wks1.Cells(zeile, spalte) = wks.Cells(66, spalte + 1) End If Next spalte spaltenende = 23 zeile = 37 For spalte = 1 To spaltenende If wks1.Cells(zeile - 1, spalte) > 0 Then wks1.Cells(zeile, spalte) = wks.Cells(80, spalte + 1) End If Next spalte Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Hilfe mit Schleife - Abhängigkeit zweier Zellen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread