Thema Datum  Von Nutzer Rating
Antwort
22.01.2008 08:35:06 deni
NotSolved
Blau Aw:MsgBox funktioniert nicht
22.01.2008 09:45:26 Holger
NotSolved
22.01.2008 09:51:11 deni
NotSolved
22.01.2008 10:31:29 Holger
NotSolved
22.01.2008 10:45:28 deni
NotSolved
22.01.2008 10:53:59 Holger
NotSolved
22.01.2008 11:01:29 deni
NotSolved

Ansicht des Beitrags:
Von:
Holger
Datum:
22.01.2008 09:45:26
Views:
1042
Rating: Antwort:
  Ja
Thema:
Aw:MsgBox funktioniert nicht
Hallo Deni
kann es sein, dass sich in Zelle führende oder nachstehende Leerzeichen befinden. Diese kannst du mit
Trim(ActiveSheet.Cells(lastRow, 9).Value)
abschneiden.
Es ist auch möglich, dass UsedRange scheinbar falsche Werte liefert. Woran das liegt, habe ich noch nicht herausgefunden. Bei mir half dann ein neues Worksheet oder die simple Art, die letzte Zeile zu suchen:
Range("a65536").End(xlUp).Activate
lastRow = ActiveCell.Row
Ob UsedRange den erwarteten Wert ergibt, kannst du z.B. mit
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Select
ausprobieren. Die LastCell wird dann markiert.
Ich hoffe, dir geholfen zu haben.
Holger

deni schrieb am 22.01.2008 08:35:06:

hallo

Ich habe da ein Problem mal wieder mtît VBA im Excel...
Ich möchte die letzte Zeile des Sheets herausfinden und wenn er in der 9ten Spalte New RFS steht dann soll eine MsgBox kommen, sonst nicht.

Ich habs mal so gemacht, aber leider funktionierts nicht, er will mir keine MsgBox ausgeben obwohl die letzte Zeile New RFS ist....

Sheets("webshop_inv_chind").Select

lastRow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

If ActiveSheet.Cells(lastRow, 9).Value = "New RFS" Then MsgBox "Neuer 'New RFS' eintrag"

Ihre Antwort
  • 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: Name: Email:



  • 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
22.01.2008 08:35:06 deni
NotSolved
Blau Aw:MsgBox funktioniert nicht
22.01.2008 09:45:26 Holger
NotSolved
22.01.2008 09:51:11 deni
NotSolved
22.01.2008 10:31:29 Holger
NotSolved
22.01.2008 10:45:28 deni
NotSolved
22.01.2008 10:53:59 Holger
NotSolved
22.01.2008 11:01:29 deni
NotSolved