Thema Datum  Von Nutzer Rating
Antwort
Rot Datei schließt. Makros enthalten evtl. ein Fehler
 06.02.2020 11:20:05 Guest_Neu
NotSolved

Ansicht des Beitrags:
Von:
Guest_Neu		 Datum:
06.02.2020 11:20:05		 Views:
1434		 Rating:
     
Antwort:
  Ja
Thema:
Datei schließt. Makros enthalten evtl. ein Fehler

Hallo zusammen,

ich habe in Excel eine "Datenbank" programmiert. Dieser funktioniert einwadnfrei aber nach ein paar Tagen kann ich die datei nicht mehr öffnen. Vermutlich wurde ein Makro falsch programmiert. Ledier sind meine VBA-Kentnisse nicht so hoch. Daher bin ich auf eure Hilfe angewiesen.
vielen Dank!  

Ich pick ein paar Makros raus, wo evtl die Fehler liegen.

1.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Maschinenpark2()
     
     With Sheets("MAE2")
        .Range("A9", .UsedRange.SpecialCells(xlCellTypeLastCell)).ClearContents
      End With
      With Sheets("457")
        .Range("A9", .UsedRange.SpecialCells(xlCellTypeLastCell)).Copy _
        Sheets("MAE2").Range("A" & Rows.Count).End(xlUp).Offset(1)
      End With
       With Sheets("454")
        .Range("A9", .UsedRange.SpecialCells(xlCellTypeLastCell)).Copy _
        Sheets("MAE2").Range("A" & Rows.Count).End(xlUp).Offset(1)
      End With
     
      Sheets("MAE2").Select
       
End Sub



2.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Sub Sammeln()
 
Dim rng As Range
Dim rng2 As Range
Dim DeinWert As Variant
Dim first As String
 
DeinWert = InputBox(prompt:="Geben Sie ein Datum:", Default:=Format("dd.mm.yyyy"))
 
 
ActiveWorkbook.Worksheets("Zusammenfassung").Range("A9:K65536").Clear
 
If DeinWert = "" Then Exit Sub
   DeinWert = CDate(DeinWert)
    
    
    
    
Set rng = Worksheets("668").Range("G:G").Find(DeinWert)
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("Zusammenfassung").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If
 
Set rng = Worksheets("591").Range("G:G").Find(DeinWert)
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("Zusammenfassung").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If
 
Set rng = Worksheets("689").Range("G:G").Find(DeinWert)
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("Zusammenfassung").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If
    
Set rng = Worksheets("688").Range("G:G").Find(DeinWert)
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("Zusammenfassung").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If
 
Set rng = Worksheets("704").Range("G:G").Find(DeinWert)
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("Zusammenfassung").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If
 
Set rng = Worksheets("651").Range("G:G").Find(DeinWert)
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("Zusammenfassung").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If
    
    
Set rng = Worksheets("640").Range("G:G").Find(DeinWert)
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("Zusammenfassung").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
End If
 
 
Set rng = Worksheets("695").Range("G:G").Find(DeinWert)
If rng Is Nothing Then
Else
  first = rng.Address
    rng.EntireRow.Copy
    Worksheets("Zusammenfassung").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Datei schließt. Makros enthalten evtl. ein Fehler
 06.02.2020 11:20:05 Guest_Neu
NotSolved