ich versuche nun seit ein paar Tagen schon den Fehler raus zu finden, leider ohne Erfolg, hoffentlich weis jemand weiter.
Die Datei ging in 2007 problemlos, seit dem Update auf 2013 nicht mehr.
Ein Workaround habe ich geschaffen, indem ich mein Makro manuell ausführe, anstatt über ein Doppelklick welches dann eine Userform aufruft.
Mein Doppelklick, nichts besonderes:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A4:A34")) Is Nothing Then Exit Sub
Call SucherCall
End Sub
Meine Initialisierung der Userform:
Private Sub UserForm_Initialize()
Dim DerMonat, DasJahr As String
Dim AnzahlTage, i As Integer
Dim A As Date
A = DateValue(Worksheets("Uebersicht").Range("F1").Value)
AnzahlTage = Day(DateSerial(Year(A), Month(A) + 1, 0))
i = 0
Do While i
Ich denke mehr Infos sollten nicht benötigt werden, denn wenn ich nun den Initial der Userform per Hand (oder auch direkt im Code mit F5) durchlaufen lasse, funktioniert es einwandfrei, rufe ich es per Doppelklick auf, funktioniert zwar der Code aber es scheint zu Buggen, denn der weitere Vorgang lässt mich nicht so arbeiten wie es sein sollte.
Hier wäre der (ein) weiterer Code, den ich benutzen (drücken würde) über eine Schaltfläche.
_
Private Sub DatenBearbeiten_Click()
Dim rngFind As Range
Dim rngFindZeile As Integer
Dim auswahl As Date
Call applioff
auswahl = DateSerial(Year(Worksheets("Uebersicht").Cells(1, 6)), Month(Worksheets(" _
Uebersicht").Cells(1, 6)), Day(DatumBox.Value + 1))
Set rngFind = Tabelle3.Columns("C:C").Find(auswahl, LookIn:=xlFormulas)
If rngFind Is Nothing Then
MsgBox "Ich kann das ausgewaehlte Datum nicht finden.", vbOKOnly, "Datum nicht _
vorhanden"
Call Protect
Exit Sub
Else
rngFindZeile = rngFind.Row
Tabelle2.Visible = xlSheetVisible
Tabelle2.Activate
Tabelle1.Visible = xlSheetHidden
Tabelle2.Cells(8, 2).Value = Tabelle3.Cells(rngFindZeile, 1).Value 'Arbeits.-Nr.
Tabelle2.Cells(8, 7).Value = Tabelle3.Cells(rngFindZeile, 2).Value 'Kunde
Tabelle2.Cells(11, 7).Value = Tabelle3.Cells(rngFindZeile, 3).Value 'Datum
Tabelle2.Cells(16, 4).Value = Tabelle3.Cells(rngFindZeile, 4).Value 'Supp 1.
Tabelle2.Cells(16, 2).Value = Tabelle3.Cells(rngFindZeile, 5).Value 'Von 1
Tabelle2.Cells(16, 3).Value = Tabelle3.Cells(rngFindZeile, 6).Value 'Bis 1
Tabelle2.Cells(17, 4).Value = Tabelle3.Cells(rngFindZeile, 7).Value 'Supp 2.
Tabelle2.Cells(17, 2).Value = Tabelle3.Cells(rngFindZeile, 8).Value 'Von 2
Tabelle2.Cells(17, 3).Value = Tabelle3.Cells(rngFindZeile, 9).Value 'Bis 2
Tabelle2.Cells(18, 4).Value = Tabelle3.Cells(rngFindZeile, 10).Value 'Supp 3.
Tabelle2.Cells(18, 2).Value = Tabelle3.Cells(rngFindZeile, 11).Value 'Von 3
Tabelle2.Cells(18, 3).Value = Tabelle3.Cells(rngFindZeile, 12).Value 'Bis 3
Tabelle2.Cells(19, 4).Value = Tabelle3.Cells(rngFindZeile, 13).Value 'Supp 4.
Tabelle2.Cells(19, 2).Value = Tabelle3.Cells(rngFindZeile, 14).Value 'Von 4
Tabelle2.Cells(19, 3).Value = Tabelle3.Cells(rngFindZeile, 15).Value 'Bis 4
Tabelle2.Cells(20, 3).Value = Tabelle3.Cells(rngFindZeile, 16).Value 'Pause
Tabelle2.Cells(25, 4).Value = Tabelle3.Cells(rngFindZeile, 17).Value 'Tätigkeit 1
Tabelle2.Cells(26, 4).Value = Tabelle3.Cells(rngFindZeile, 18).Value 'Tätigkeit 2
Tabelle2.Cells(27, 4).Value = Tabelle3.Cells(rngFindZeile, 19).Value 'Tätigkeit 3
Tabelle2.Cells(28, 4).Value = Tabelle3.Cells(rngFindZeile, 20).Value 'Tätigkeit 4
Tabelle2.Cells(29, 4).Value = Tabelle3.Cells(rngFindZeile, 21).Value 'Tätigkeit 5
Tabelle2.Cells(30, 4).Value = Tabelle3.Cells(rngFindZeile, 22).Value 'Tätigkeit 6
Tabelle2.Cells(31, 4).Value = Tabelle3.Cells(rngFindZeile, 23).Value 'Tätigkeit 7
Tabelle2.Cells(32, 4).Value = Tabelle3.Cells(rngFindZeile, 24).Value 'Tätigkeit 8
Tabelle2.Cells(33, 4).Value = Tabelle3.Cells(rngFindZeile, 25).Value 'Tätigkeit 9
Tabelle2.Cells(34, 4).Value = Tabelle3.Cells(rngFindZeile, 26).Value 'Tätigkeit 10
Tabelle2.Cells(35, 4).Value = Tabelle3.Cells(rngFindZeile, 27).Value 'Tätigkeit 11
Tabelle2.Cells(36, 4).Value = Tabelle3.Cells(rngFindZeile, 28).Value 'Tätigkeit 12
Tabelle2.Cells(37, 4).Value = Tabelle3.Cells(rngFindZeile, 29).Value 'Tätigkeit 13
Tabelle2.Cells(38, 4).Value = Tabelle3.Cells(rngFindZeile, 30).Value 'Tätigkeit 14
Tabelle2.Cells(39, 4).Value = Tabelle3.Cells(rngFindZeile, 31).Value 'Tätigkeit 15
Tabelle2.Cells(40, 4).Value = Tabelle3.Cells(rngFindZeile, 32).Value 'Tätigkeit 16
Tabelle2.Cells(41, 4).Value = Tabelle3.Cells(rngFindZeile, 33).Value 'Tätigkeit 17
Tabelle2.Cells(42, 4).Value = Tabelle3.Cells(rngFindZeile, 34).Value 'Tätigkeit 18
Tabelle2.Cells(43, 4).Value = Tabelle3.Cells(rngFindZeile, 35).Value 'Tätigkeit 19
Tabelle2.Cells(44, 4).Value = Tabelle3.Cells(rngFindZeile, 36).Value 'Tätigkeit 20
Tabelle2.Cells(16, 2).Select
End If
Ende:
Call applion
Unload Me
End Sub
Im Prinzip, werden hier nur Daten aus der "Datenbank" rausgeholt und in eine Vorlage Zelle für Zelle geschrieben, das ganze soll beschrieben/bearbeitet werden und wieder in die "Datenbank" geschrieben werden.
Auf Wunsch ginge auch die Datei hochzuladen, wobei ich eigentlich alles detailliert beschrieben habe, wäre ja schön, wenn jemand auf Anhieb eine Antwort parat hätte, warum das in 2007 keine Probleme gemacht hat und in 2013 schon.
Greetings, Robin.