Excel - VBA

Excel - VBA (14 Beiträge, 288 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

momentan siehts so aus:

Option Explicit
Dim LoLetzte As Long

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False
    With Worksheets("Tabelle99")
        LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, . _
Rows.Count) + 1
        .Cells(LoLetzte, 1) = Target.Address
        .Cells(LoLetzte, 2) = Target
        .Cells(LoLetzte, 3) = Sh.Name
        .Cells(LoLetzte, 4) = Environ("Username")
        .Cells(LoLetzte, 5) = Date
        .Cells(LoLetzte, 5) = Time
    End With
    Application.EnableEvents = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
Dim ws As Worksheet
For Each ws In Me.Worksheets
  If ws.Name = "Makrohinweis" Then
    ws.Visible = xlSheetVisible
  Else
    ws.Visible = xlSheetVeryHidden
  End If
Next 'ws
Application.EnableEvents = False
Me.Close True
Application.EnableEvents = True
End Sub
Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly = True Then
    MsgBox "Mappe ist bereits geöffnet und wird jetzt geschlossen": ThisWorkbook.Close savechanges:=False
End If
Dim ws As Worksheet
For Each ws In Me.Worksheets
  If ws.Name <> "Makrohinweis" Then
    ws.Visible = xlSheetVisible
  End If
Next 'ws
Sheets("Makrohinweis").Visible = xlSheetVeryHidden
Sheets("Tabelle99").Visible = xlSheetVeryHidden
End Sub

dazu neu gekommen ist der teil:

If ThisWorkbook.ReadOnly = True Then
    MsgBox "Mappe ist bereits geöffnet und wird jetzt geschlossen": ThisWorkbook.Close savechanges:=False
End If

nur geschlossen wird die mappe nicht - nur der hinweis kommt.

kann mir da jemand helfen?

lg

--------------------------------------------------------------------------------

hast schon schrittweise debugged? vermutlich läuft das makro in das
Workbook_BeforeClose event und dann ists vorbei.

probier mal:

If ThisWorkbook.ReadOnly = True Then
   Application.EnableEvents = false
   MsgBox "Mappe ist bereits geöffnet und wird jetzt geschlossen"
   ThisWorkbook.Close savechanges:=False
End If

danke , werde ich mal testen.
--------------------------------------------------------------------------------

funktionierts jetzt? gibts sonst keine probleme mit dem makro? das ganze sieht sehr holprig aus, aber viele wege führen ans ziel.

kann ich erst wieder morgen testen wenn ich in der arbeit bin.
der rest funktioniert wunderbar.
das das ganze nicht sehr schön aussieht. liegt wohl an meiner unkentniss. learning by doing.

--------------------------------------------------------------------------------

das das ganze nicht sehr schön aussieht. liegt wohl an meiner unkentniss.
learning by doing.

passt schon, mir gehts nicht anders.

das IIf, der ":" nach der msgbox und die deklaration "dim loletzte" außerhalb eines subs und die verwendung von "me." sind irgendwie eigenwillig.

ich stoppel mir meine befehle halt immer aus verschiedenen zusammen um zu meinen ziel zu kommen. wenns funktioniert, überlege ich nicht mehr länger. kann natürlich auch sein, dass hier befehle von verschiedenen excel-versionen gemischt sind.
wenn ich für die passendene keine antwort finde. teste ich einfach etwas, dass so nicht mehr funktionieren dürfte.
--------------------------------------------------------------------------------

ein tickende bombe solltest auf jeden fall entschärfen:

LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1

wenn in der untersten zelle in spalte 1 nichts steht, dann wird die zelle unter der letzten nicht leeren zelle in spalte 1 gesucht - ok.

wenn in der untersten zelle (1048576) etwas steht, dann wird erst recht wieder eine drunter genommen, was aber beim ansprechen danach (.Cells(LoLetzte, 1) = Target.Address) in die hose geht, denn zelle 1048576 + 1 gibts nicht.

das wäre mein vorschlag, bei dem nebenbei auch das unübersichtliche IIf beseitigt ist:

If IsEmpty(.Cells(.Rows.Count, 1)) Then
LoLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Else
LoLetzte = .Rows.Count
End If

geändert. besten dank nochmal.
--------------------------------------------------------------------------------

kein problem

das funktioniert nun. danke

--------------------------------------------------------------------------------

Ich glaub in dem Fall liegts daran, dass die Messagebox (immer) modal ist und deshalb das schließen sperrt.

Mach anstatt Messagebox ein userform, setz den parameter "ShowModal = False" und probiers mal so.
----------------------------------------------------------------------------------------------------------------------------- Geh mit deinen problemen aufs
Salzamt

14.04.2015, 11:23 Uhr - Editiert von Sanders, alte Version: hier

wenn du schrittweise das durchgehst siehst wunderschön, dass das event before workbook close aufgerufen wird und dieses das schließen verhindert. die msgbox ist da schon geschichte.

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung