Thema Datum  Von Nutzer Rating
Antwort
02.09.2019 18:58:45 Daniel
NotSolved
Blau .small() Zeile übergeben
02.09.2019 20:21:45 Gast40253
Solved
03.09.2019 18:05:57 Daniel
NotSolved

Ansicht des Beitrags:
Von:
Gast40253		 Datum:
02.09.2019 20:21:45		 Views:
618		 Rating:
     
Antwort:
 Nein
Thema:
.small() Zeile übergeben

Hallo,

null Problemo, kannst Dir sowas bauen:

Option Explicit

Public Sub test()
Dim objCell As Range, objRange As Range, objUnion As Range
Dim lngIndex As Long
Dim strText As String
Set objRange = Range("A1:A20")
For lngIndex = 1 To 3
    Set objCell = objRange.Find(What:=WorksheetFunction.Small(objRange, lngIndex), LookIn:=xlValues, LookAt:=xlWhole)
    If Not objCell Is Nothing Then
       With objCell
            If objUnion Is Nothing Then
               strText = "gefundene Werte:" & vbCr & vbCr & .Value & " in Zeile: " & .Row
               Set objUnion = objCell
            Else
               strText = strText & vbCr & .Value & " in Zeile: " & .Row
               Set objUnion = Union(objUnion, objCell)
            End If
       End With
    End If
Next
If objUnion Is Nothing Then
    Call MsgBox("Werte konnte nicht gefunden werden...", vbExclamation)
Else
    If MsgBox(strText & vbCr & vbCr & "Möchten sie die Zeilen löschen?", _
          vbYesNo + vbQuestion, "Löschabfrage") = vbYes Then _
            Call objUnion.EntireRow.Delete
End If
Set objCell = Nothing
Set objRange = Nothing
Set objUnion = Nothing
End Sub

Gruß,

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
02.09.2019 18:58:45 Daniel
NotSolved
Blau .small() Zeile übergeben
02.09.2019 20:21:45 Gast40253
Solved
03.09.2019 18:05:57 Daniel
NotSolved