Thema Datum  Von Nutzer Rating
Antwort
Rot VBA-Code bei öffnen einer Mappe ausführen
17.02.2023 16:55:48 Edis
NotSolved
17.02.2023 17:05:40 Gast69642
NotSolved
17.02.2023 17:29:11 Edis
NotSolved
17.02.2023 17:08:23 Gast91136
NotSolved
17.02.2023 17:30:06 Gast4341
NotSolved
17.02.2023 18:53:09 Trägheit
NotSolved
17.02.2023 20:01:55 Mase
NotSolved
18.02.2023 08:24:22 Trägheit
NotSolved

Ansicht des Beitrags:
Von:
Edis
Datum:
17.02.2023 16:55:48
Views:
981
Rating: Antwort:
  Ja
Thema:
VBA-Code bei öffnen einer Mappe ausführen

Hallo zusammen,

ich habe diesen VBA-Code erstellt. Er soll sich automatisch ausführen, wenn die Excel-Mappe geöffnet wird. Er scheint auch zu funktionieren, denn im Debugger erhalte ich keine Fehler. Und wenn ich den Cursor auf die letzte Zeile setze und „Ausführen bis Cursor-Position“ klicke, dann passiert auch exakt das, was passieren soll. Nur automatisch tut er es nicht. Wisst Ihr, was das Problem sein könnte oder was mein Problem beheben könnte? Ich danke Euch vorab.

Ich habe sicherheitshalber einen Screenshot gemacht, um zu zeigen, dass der Code aus meiner Sicht korrekt eingefügt ist:

https://imgur.com/a/qGLEAyI

 

Private Sub Workbook_Open()

Dim ws As Worksheet

Dim lastRow As Long

Dim rngS As Range

Dim rngU As Range

Dim msg As String

Set ws = ThisWorkbook.Sheets("Tabelle1")

lastRow = ws.Cells(ws.Rows.Count, "S").End(xlUp).Row

For i = 2 To lastRow

Set rngS = ws.Range("S" & i)

Set rngU = ws.Range("U" & i)

If Not IsEmpty(rngS) And IsEmpty(rngU) Then

If Date - rngS.Value >= 4 Then

msg = msg & "Zelle B" & i & " (Wert: " & ws.Range("B" & i).Value & ") an Zelle R" & i & " wurde anscheinend noch nicht bestellt." & vbNewLine

End If

End If

Next i

If Len(msg) > 0 Then

msg = "Folgende Zeilen sind betroffen:" & vbNewLine & msg

MsgBox msg, vbCritical, "Warnung"

End If

End Sub

 


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
Rot VBA-Code bei öffnen einer Mappe ausführen
17.02.2023 16:55:48 Edis
NotSolved
17.02.2023 17:05:40 Gast69642
NotSolved
17.02.2023 17:29:11 Edis
NotSolved
17.02.2023 17:08:23 Gast91136
NotSolved
17.02.2023 17:30:06 Gast4341
NotSolved
17.02.2023 18:53:09 Trägheit
NotSolved
17.02.2023 20:01:55 Mase
NotSolved
18.02.2023 08:24:22 Trägheit
NotSolved