Thema Datum  Von Nutzer Rating
Antwort
Rot find doppelt
 18.08.2020 11:38:45 Elgam
Solved

Ansicht des Beitrags:
Von:
Elgam		 Datum:
18.08.2020 11:38:45		 Views:
890		 Rating:
     
Antwort:
 Nein
Thema:
find doppelt
Hallo, ich benötige etwas Hilfe bei VBA-Excel. 

Es geht um die Suche. Als erstes soll eine Spannung gefunden werden. z.B. 72,5kV.  Die Eingabe war aber z.B 66kV. Der VBA-Code skaliert hoch und findet die 72,5.
Bleibend bei dieser Spannung, soll nun auch die Stromstärke gefunden werden. Also gesucht wird z.B 3150A, User hat aber in der Excel 3099A stehen, sollte ebenfalls bis 3150 skaliert werden. 
 
Die Reihenfolge bei der Spannung ist gleich immer 72,5kV, dagegen bei der Stromstärke ist es unterschiedlich mal 2000A mal z.B. 3150A mal 1250A. 
 
Es sollten alle Schaltanlagen mit der Spannung 72.5 und 3150 gefunden werden und nicht wiederholen. Und wenn keine 72.5 mit 3150A gefunden wird, soll gefragt werden, ob es eine höhere Spannung angenommen werden soll und dort nach 3150A suchen
 
Danke im Voraus
 
 
 
 
HVrating2 = "70"
Ampacity = "2498"
 
 
Repeat1:
Ampacity = "2498"
 
With Worksheets("GIS").Range("K1:M500")
            Set c = .Find(HVrating2, LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                firstAddress = c.Address
 
Loopy:
         
         Do
         A = 0
         Ampacity = "3099"
                Do Until Ampacity = c.Offset(, 6) Or A = 5000
                If Ampacity <> c.Offset(, 6) Then
                Ampacity = Ampacity + 1
                A = A + 20
                    If A = "4000" Then
                    Set c = .FindNext(c)
                    GoTo Loopy
                    End If
                        If firstAddress = c.Address Then
                        GoTo here1
                        End If
                End If
                Loop
 
      'Offset fuer kosten damit differenz zusammengerechnet wird
 
    da = c.Offset(, 17).Value
    l8 = l8 + da
    k8 = k8 + 1
    Hvcosts = l8 / k8
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
Else
                HVrating2 = HVrating2 + 0.5
                GoTo Repeat1
                End If
 
here1:  'to avoid the repeatedness
          
      End With
 
 

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 find doppelt
 18.08.2020 11:38:45 Elgam
Solved