Thema Datum  Von Nutzer Rating
Antwort
13.01.2019 14:09:43 Anton
NotSolved
13.01.2019 14:23:37 Mackie
NotSolved
13.01.2019 18:37:30 Anton
NotSolved
Blau Wert nicht übernehmen wenn....
 13.01.2019 18:40:17 ok
Solved

Ansicht des Beitrags:
Von:
ok		 Datum:
13.01.2019 18:40:17		 Views:
430		 Rating:
     
Antwort:
 Nein
Thema:
Wert nicht übernehmen wenn....		 
Sub Teilwert()
Dim Sh As Worksheet, Rng As Range, c As Range, x As Long
Const C_R As String = "Rechnung"
Const C_T As String = "Teilwert"


   Set Sh = ActiveSheet: With Sh.UsedRange
      Set c = .Find(C_R, .Cells(1), xlValues, xlWhole, , xlPrevious)
      If c Is Nothing Then Exit Sub
      Set Rng = Range(.Cells(1), c)
      With Rng
         For x = .Cells(.Cells.Count).Row To .Cells(1).Row Step -1
            If .Cells(x).Value = C_T Then .Cells(x).EntireRow.Delete
         Next x
      End With
   End With

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
13.01.2019 14:09:43 Anton
NotSolved
13.01.2019 14:23:37 Mackie
NotSolved
13.01.2019 18:37:30 Anton
NotSolved
Blau Wert nicht übernehmen wenn....
 13.01.2019 18:40:17 ok
Solved