|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.03.2009 13:37:19 |
Maik |
|
|
|
18.03.2009 15:19:35 |
Holger |
|
|
 Aw:Aw:VBA-Modul für Fehlermeldungen in EXCEL |
19.03.2009 09:16:33 |
maik |
|
|
Von:
maik |
Datum:
19.03.2009 09:16:33 |
Views:
1040 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:VBA-Modul für Fehlermeldungen in EXCEL |
Danke für die Hilfe, Programm läuft jetzt.
Holger schrieb am 18.03.2009 15:19:35:
Hallo Maik,
du vergleichst jeder Zelle der Spalte F mit jeder der Spalte G. Ich kann mir nicht vorstellen, dass das das Ziel ist. Ich vermute, deine Tabelle hat für jedes Buch eine Zeile mit Eintragungen für die Vorbestellungen (Saplte G) und den Lagerbestand (Spalte F) und dass alle Spalten gleich lang sind.
Wenn dem so ist, sollte nachstehendes (ungeprüftes) Makro dein Problem lösen. Sei in Spalte A der zugehörende Buchtitel.
Sub Bücher()
For i = 1 To Range("F65536").End(xlUp).Row
If cells(i,6)< cells(i,7) Then
MsgBox "Von "+cells(i,1)+" sind nicht genug Bücher auf Lager."+vbcrlf+ _
"Es fehlen"+str(cells(i,7)-cells(i,6)+" Exemplare."
End If
Next i
end sub
Ich würde nicht jeweils eine MsgBox verwenden, weil das sehr unübersichtlich bei vielen Abweichungen sein kann. Eine farbliche Kennzeichnung des z.B. des Buchtitels wäre m.E. besser:
Sub Bücher()
Cells.Interior.ColorIndex = xlNone
For i = 1 To Range("F65536").End(xlUp).Row
If cells(i,6)< cells(i,7) Then Cells(i, 1).Interior.Color = vbRed
Next i
end sub
Gruß
Holger
Maik schrieb am 16.03.2009 13:37:19:
Hallo,
ich habe folgendes Problem:
Ich soll ein VBA-Modul schreiben, das Fehlermeldungen ausgibt, wenn für ein Buch mehr Vorbestellungen vorliegen als sich Exemplare auf Lager befinden. Gegeben ist eine Tabelle. Irgendwie weiß ich nicht genau wie ich die Zellen miteinander vergleiche, um den Fehlbestand rauszubekommen.
Habe es schonmal so probiert:
Public Function Zeilen_vergleichen()
Range("F1").Select
Endi = Range("F65536").End(xlUp).Row
Range("G1").Select
Endj = Range("G65536").End(xlUp).Row
For i = 1 To Endi
For j = 1 To Endj
If Range("F" & i) < Range("G" & j) Then
MsgBox "Es sind nicht genug Bücher auf Lager"
End If
Next j
Next i
End Function
Bekomme aber leider permanet Fehlermeldungen und weiß nicht, wo der Fehler ist oder ob der Ansatz überhaupt richtig ist.
Wäre toll, wenn mir jemand helfen kann.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.03.2009 13:37:19 |
Maik |
|
|
|
18.03.2009 15:19:35 |
Holger |
|
|
Aw:Aw:VBA-Modul für Fehlermeldungen in EXCEL |
19.03.2009 09:16:33 |
maik |
|
|