Löschen nach gewissen Kreterien

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,
den Cursor irgendwo in die betreffende Spalte stellen und das hier aufrufen:

Option Explicit
Sub Kopieren()
Dim rngZelle As Range
Dim sTeile() As String
Dim sGewandelt As String
Dim sAusgabe As String
For Each rngZelle In Intersect(ActiveCell.CurrentRegion, ActiveCell.EntireColumn)
  'Text in Blöcke aufteilen
  sTeile = Split(rngZelle, "-")

  Select Case UBound(sTeile) 'Anzahl Blöcke
  Case 3: 'das ist ein 4er- Block
          ReDim Preserve sTeile(2) '4. Block löschen
  Case 4: 'das ist ein 5er- Block
          sTeile(3) = "*"          '4. Block immer *
  End Select
  sGewandelt = Join(sTeile, "-") 'Blöcke wieder zusammensetzen

  'Doppelte Zeilen vermeiden
  If InStr(sAusgabe, sGewandelt) = 0 Then
    sAusgabe = sAusgabe & sGewandelt & Chr(3)
  End If
Next rngZelle
If Len(sAusgabe) > 0 Then sAusgabe = Left(sAusgabe, Len(sAusgabe) - 1)
'Ausgeben
'https://www.herber.de/forum/messages/666800.html
On Error Resume Next
Set rngZelle = Application.InputBox("Ab wo soll eingefügt werden?", , , , , , , 8)
If Err.Number > 0 Then MsgBox "Dann ebend nicht": Exit Sub
On Error GoTo 0
sTeile = Split(sAusgabe, Chr(3))
Range(rngZelle, rngZelle.Offset(UBound(sTeile), 0)) = WorksheetFunction.Transpose(sTeile)
End Sub
Gruß- Micha
PS: Rückmeldung wäre nett.

Hallo Stefan,
das ist kein Fehler, sondern aufgrund Deiner unklaren Beschreibung notwendig. Du hast nicht gesagt, aus welchem Bereich die Daten abgegriffen werden sollen, also versucht das Makro, diesen Bereich selber herauszufinden. Das Makro sollte an einer Leerzeile hängen bleiben.
Aber bitte erkläre mir zuerst, was das soll: https://www.herber.de/forum/messages/667071.html
Dann noch zu neben den nummern sind ind der spalte b, c, evntl. auch d texte kann mann dieses makro so verändern das es die daten der nummern die sich ändern am besten komplett in ein neues tabellenblatt kopiert ( also die geänderte nummer und dann den rest der zeile die dieser nummer zugeordnet sind.
Das würde die ganze Makro- Struktur über den Haufen werfen, es muß also eigentlich völlig neu geschrieben werden. Warum sagst Du sowas nicht gleich?
Gruss- Micha

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Löschen nach gewissen Kreterien

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread