Thema Datum  Von Nutzer Rating
Antwort
Rot Hilfe beim Code
06.09.2022 12:25:30 Herbert
NotSolved
06.09.2022 13:55:16 Gast30308
NotSolved
06.09.2022 14:25:58 volti
NotSolved

Ansicht des Beitrags:
Von:
Herbert
Datum:
06.09.2022 12:25:30
Views:
354
Rating: Antwort:
  Ja
Thema:
Hilfe beim Code

Hallo Liebe Community,

folgendes Problem. Ich habe vor kurzem meinen Vorgesetzten abgelöst der in Ruhestand gegangen ist und ich somit sein Platz eingenommen habe. Er hat eine Menge in VBA programmiert und jetzt gibt es ein Problem im Code. Nach ein paar mal rumklicken habe ich wenigstens die Zeile des Fehlers entdeckt. Nur bin ich zu unerfahren um diesen zu lesen deshalb. Könnt ihr vielleicht im folgenden Code ein Fehler entdecken oder sowas ähnliches? Hilfe wäre echt top.

mfg

 

Sub Fehlende_Parameter_abrufen()
For Each ProbenNmr In Sheets("0").Range("A3:A30000")
If ProbenNmr.Value = "" Then Exit Sub
If InStr(ProbenNmr.Value, "Proben") = 0 And ProbenNmr.Offset(0, 3).Value < 4 And ProbenNmr.Offset(0, 4).Value <> "f" Then
Dim Parameterzählen As String
Dim c As Range
Dim firstAddress
Dim str
Dim Bereich As Range
Dim start As Double
str = ProbenNmr.Value
With Worksheets("Tabelle1").Cells
    Set c = .Find(str, LookIn:=xlValues)
    If c Like str Then Set Bereich = c
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Set c = .FindNext(c)
            If c Like str Then Set Bereich = Union(c, Bereich)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
 End With
 For Each Parameter In Bereich
 If Parameter.Offset(0, 2) = "" Then Parameterzählen = Parameterzählen & Parameter.Offset(0, 1).Value & " ; "
 
 Next Parameter
 ProbenNmr.Offset(0, 4).Value = Parameterzählen
 End If
 Parameterzählen = ""
 Next ProbenNmr
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 Hilfe beim Code
06.09.2022 12:25:30 Herbert
NotSolved
06.09.2022 13:55:16 Gast30308
NotSolved
06.09.2022 14:25:58 volti
NotSolved