Eine Spalte durchsuchen dann eine weitere

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Lutz,

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

Option Explicit

Sub loeschen()
  Dim rng As Range, rngDel As Range
  Dim vntCol As Variant
  Dim strFirst As String
  
  With Tabelle1
    vntCol = Application.Match(Year(Date), .Rows(1), 0)
    If IsNumeric(vntCol) Then
      Set rng = .Columns(3).Find(What:="P*", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, After:=.Cells(1, 3))
      If Not rng Is Nothing Then
        strFirst = rng.Address
        Do
          If Application.CountA(.Range(.Cells(rng.Row, vntCol), .Cells(rng.Row, .Columns.Count))) = 0 Then
            If rngDel Is Nothing Then
              Set rngDel = rng.EntireRow
            Else
              Set rngDel = Union(rngDel, rng.EntireRow)
            End If
          End If
          Set rng = .Columns(3).FindNext(rng)
        Loop While Not rng Is Nothing And strFirst <> rng.Address
      End If
    End If
  End With
  
  If Not rngDel Is Nothing Then rngDel.Delete
  
  Set rng = Nothing
  Set rngDel = Nothing
End Sub

« Gruß Sepp »

Hallo Sepp,
danke für 2.
Zu 1.: Möchte die jeweiligen drei Zellen (leer/Jahreszahl/leer) mit einander verbinden, damit der Code auch die Zelle rechts und links von dem Jahresdatum betrachtet und nicht nur die Spalte in dem das Jahr steht. Ich weiß nicht ob ich mich verständlich ausdrücke; daher versuche ich es mal anders:
- in einer spalte steht eine jahreszahl und in den darunter liegenden Zellen sind entweder werte drinne oder nicht (was der code ja auch wunderbar ausliest)
- links und rechts der Jahreszahl sind jeweils eine leere zelle. unter diesen zellen sind auch noch werte oder eben nicht eingetragen,welche noch mit zu der Jahreszahl gehören
Und jetzt hab ich mir gedacht, wenn ich über einen Code sage: verbinde die "Jahreszahlzelle" mit der Zelle links und rechts davon und dann dein Code drüber laufen lassen, dann müsste es eigentlich gehen.
Das ist der Hintergrund warum ich die Zellen verbinden möchte(manuell kann ich das nicht machen da sich die Tabelle jeden monat neu lädt). vielleicht denke ich auch einfach zu kompilziert und es gibt ne viel einfacherere Lösung.
LG Lutz

Beliebteste Forumthreads (12 Monate)

Eine Spalte durchsuchen dann eine weitere

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eine Spalte durchsuchen dann eine weitere

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread