Thema Datum  Von Nutzer Rating
Antwort
21.02.2019 09:50:29 Patrick
NotSolved
06.03.2019 22:05:59 Ben
NotSolved
Rot Optimierung vorhandenen Codes
07.03.2019 06:47:28 Gast52952
NotSolved
08.03.2019 21:49:25 Ben
NotSolved

Ansicht des Beitrags:
Von:
Gast52952
Datum:
07.03.2019 06:47:28
Views:
535
Rating: Antwort:
  Ja
Thema:
Optimierung vorhandenen Codes

Hi,

 

danke, das war ein Fehler, den ich bereits korrigiert habe. Die anderen Punkte sind viel wichtiger. Ich komme nicht weiter...

 

Hier ist nochmal der aktuelle Code:

 

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim intLZ As Integer
Dim wsq As Worksheet
Dim wsz As Worksheet
Dim start As Integer
If Target.Column <> 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Set wsz = Sheets("Prüfplan")
Set wsq = Sheets("Sonderprüfbedingungen")
intLZ = wsz.Cells(Rows.Count, 8).End(xlUp).Row + 1
Application.EnableEvents = False
If Target.Value = "x" Then
    With wsz
        .Cells(intLZ, 8).Value = Target.Offset(, 1).Value
        '.Cells(intLZ, 9).Value = Target.Offset(, 2).Value
        .Cells(intLZ, 5).Value = Target.Offset(, 4).Value
    End With
Else
    start = wsz.Range("H20:H" & intLZ).Find(what:=Target.Offset(, 1)).Row
    With wsz
        .Cells(start, 8).Value = ""
        '.Cells(start, 9).Value = ""
        .Cells(start, 5).Value = ""
    End With
End If
 
Application.EnableEvents = True
Set wsz = Nothing
Set wsq = Nothing
'Set leerzeile = Nothing
 End Sub

Dann wollte ich hier noch versuchen, dass sich die Zeilen automatisch löschen, was nicht funktioniert ohne Fehlermeldungen:

Dim leerzeile As Range
 On Error Resume Next
 Set leerzeile = Sheets("Prüfplan").Range("A20:J200").SpecialCells(xlCellTypeBlanks) 
 On Error GoTo 0
 If Not leerzeile Is Nothing Then leerzeile.EntireRow.Delete

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
21.02.2019 09:50:29 Patrick
NotSolved
06.03.2019 22:05:59 Ben
NotSolved
Rot Optimierung vorhandenen Codes
07.03.2019 06:47:28 Gast52952
NotSolved
08.03.2019 21:49:25 Ben
NotSolved