Alle Zellen einer Reihe durchsuchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim Cellen As Range For Each Cellen In Range("B1:B150") If Cellen.Value = Cells(1, 6).Value Then Cellen.Select b = ActiveCell.Rows Cells(b, 3).Copy Cells(1, 7).PasteSpecial Exit For End If Next Cellen End Sub

Hallo Josef,
prima und natürlich ein herzliches Dankeschön.
Wie gesagt ich versuche mir das ganze halt selbst ein bischen beizubringen. Und da ist es am Anfang halt nicht ganz einfach das ganze ohne zu selectieren hinzubekommen.
Es ist ja auch der Grund meines Codes endlich mal von den ganzen IF-Else Anweisungen weg zu kommen. Ich versuche auch halt immer erst in der Recherche fündig zu werden und mir den Code, den ich meine gebrauchen zu können, so auseinander zu pflücken bis es passt. Aber leider geht das ohne Eure Hilfe hier leider nicht immer. Wenn Du Lust hast und Du dies hier überhaupt noch liesst kannst Du ja auch hier noch einmal drüber gucken.
Ich habe das mit Eurer Hilfe hinbekommen das was ich darasu gemacht habe ist trozdem nicht sehr elegant.
Nochmal vielen Dank an Dich und alle anderen hier im Forum
Louis
Hallo Forum,
ich habe mir jatzt mal was gebastelt was zwar funzt aber naja.
Der erste Code kommt in die erste Tabelle in der ich den zu suchenden Wert defeniere und dieser wird in die ertse Zelle kopiert.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, 1).Value = ActiveCell.Value
End Sub

Der zweite Code wie gehabt nur dieses mal ohne AktiveCell sondern klar deklariert als erste Zelle im ersten Blatt.
Sub TEinAuswertungLöschen()
x = 11
weiter:
If Sheets("Auswertung").Cells(x, 2).Value = Sheets("Datenbank").Cells(1, 1).Value Then
Sheets("Auswertung").Rows(x).Delete
Else
x = x + 1
GoTo weiter
End If
End Sub
Wie gesagt funktioniert soweit ist aber nicht sehr elegant. Bin mir sicher das es besser geht wenn noch jemand eine Idee hat würde ich mich sehr freuen.
mfg
Louis

Hallo Louis!

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
varValue = ActiveCell.Value
End Sub

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit
Public varValue As Variant

Sub TEinAuswertungLöschen()
Dim lngRow As Long, lngLast As Long

If varValue = vbNullString Then Exit Sub

With Sheets("Auswertung")

  lngLast = .Cells(Rows.Count, 2).End(xlUp).Row 'letzte gefüllte Zeile in Spalte "B"

  If lngLast < 11 Then lngLast = 11

  For lngRow = 11 To lngLast
    If .Cells(lngRow, 2) = varValue Then
      .Rows(lngRow).Delete
    End If
  Next

End With

End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Beliebteste Forumthreads (12 Monate)

Alle Zellen einer Reihe durchsuchen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alle Zellen einer Reihe durchsuchen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread