Thema Datum  Von Nutzer Rating
Antwort
Rot Range Variable trotz Set Anweisung auf Nothing
06.02.2024 21:34:01 Markus
NotSolved
06.02.2024 22:45:51 xlKing
NotSolved
07.02.2024 10:35:42 Markus
NotSolved
07.02.2024 11:01:13 Gast48625
*****
NotSolved
07.02.2024 12:27:04 Markus
Solved

Ansicht des Beitrags:
Von:
Markus
Datum:
06.02.2024 21:34:01
Views:
455
Rating: Antwort:
  Ja
Thema:
Range Variable trotz Set Anweisung auf Nothing

Bei folgendem Code bekomme ich immer einen Laufzeitfehler 91.

Das Problem ist das die Variable rng trotz Set Anweisung auf Nothing festgelegt ist. Bin ziemlicher anfänger und um jeden Tipp dankbar.

 

Sub BuchungenAnlegen_EingabeDB()

Dim tbl As ListObject
Dim header As Variant
Dim Spalte As Long
Spalte = 1
Dim Zeile As Long
Dim rng As Range


Call ws_Unprotect("Produkte", ws_Eingabe, ws_DB)

With Worksheets(ws_DB)
    
    Set tbl = .ListObjects(1)
       
    tbl.ListRows.Add
        
    Zeile = tbl.DataBodyRange.Rows.Count
        
    .Rows(Zeile + tbl.HeaderRowRange.Row).RowHeight = .Rows(tbl.HeaderRowRange.Row + 1).RowHeight
    
End With

With Worksheets(ws_Eingabe)

    
    
    For Each header In tbl.HeaderRowRange

        tbl.DataBodyRange(Zeile, Spalte).Value = _
        .Range(.Cells.Find(what:=header, LookIn:=xlValues, Lookat:=xlWhole).Offset(0, 1).Address).Value
        
        If header = "Menge" Then
        
            Set rng = ThisWorkbook.Worksheets("Produkte").Columns("D").Find(what:=.Range("K24").Value, LookIn:=xlValues, Lookat:=xlWhole).Offset(0, 3)
            
            
                If .Range("K20").Value = "Kauf" Then
                    rng.Value = rng.Value + .Range("Q20").Value
                Else
                    rng.Value = rng.Value - .Range("Q20").Value
                End If
            
        
        End If
    
    
    Spalte = Spalte + 1
    
    Next header
    
End With

Call ws_Protect("Produkte", ws_Eingabe, ws_DB)

Call Nav_Buchungen
tbl.DataBodyRange(Zeile, 1).Select
ActiveWindow.ScrollRow = Zeile + tbl.HeaderRowRange.Row

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 Range Variable trotz Set Anweisung auf Nothing
06.02.2024 21:34:01 Markus
NotSolved
06.02.2024 22:45:51 xlKing
NotSolved
07.02.2024 10:35:42 Markus
NotSolved
07.02.2024 11:01:13 Gast48625
*****
NotSolved
07.02.2024 12:27:04 Markus
Solved