Microsoft Excel

Herbers Excel/VBA-Archiv

löschen von zahlen

Betrifft: löschen von zahlen von: Sandra
Geschrieben am: 06.11.2014 10:20:37

Hallo zusammen,

In Tabelle 1 Spalte A sind zahlen vorhanden z.b. 7-99-99-99 in tabelle B sind/ fast die gleichen zahlen. Jetzt will ich gerne per VBA daß es mir alle zahlen/ Wörter wo in Tabelle 2 Spalte A drin sind in Tabelle 1 Spalte A vergleicht und löscht.. .
beispiel:
Tabelle1
SpalteA
5-99-99-99
2-77-77-77
4-88-88-88
7-65-87-98

Tabelle2
SpalteA
2-77-77-77
7-65-87-98

Jetzt makro code.
Ergebnis
Tabelle1
SpalteA
5-99-99-99
4-88-88-88

Wäre sowas möglich? Bitte nur VBA
Lieben dank
Sandra

  

Betrifft: AW: löschen von zahlen von: Rudi Maintaire
Geschrieben am: 06.11.2014 10:58:20

Hallo,

Sub aaaa()
  With Sheets("Tabelle1")
     With .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Offset(, 1)
     .FormulaR1C1 = "=if( isnumber(match(RC[-1],'Tabelle2'!C1,0)),#n/a,0)"
     On Error Resume Next
     .SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
     .Clear
    End With
  End With
End Sub
Gruß
Rudi


  

Betrifft: AW: löschen von zahlen von: Sandra
Geschrieben am: 06.11.2014 11:08:57

Hallo Rudi,
Dein code löscht nur werde in tabelle 1 Spalte B raus.
LG
Sandra


  

Betrifft: AW: löschen von zahlen von: Rudi Maintaire
Geschrieben am: 06.11.2014 11:26:04

Hallo,
Dein code löscht nur werde in tabelle 1 Spalte B raus.
Was ist das denn für ein Satz?

Davon, dass in B was steht, hast du nichts geschrieben.
in VDY steht hoffentlich nichts.

Sub aaaa()
  With Sheets("Tabelle1")
     With .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Offset(, 15000)
     .FormulaR1C1 = "=if(isnumber(match(RC1,'Tabelle2'!C1,0)),#n/a,0)"
     On Error Resume Next
     .SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
     .Clear
    End With
  End With
End Sub

Gruß
Rudi


  

Betrifft: AW: löschen von zahlen von: Sandra
Geschrieben am: 06.11.2014 11:58:33

Hallo Rudi,
Sorry , aber ich schreib vom Handy aus. Die Spalten waren unterschiedlich formatiert.
Jetzt geht der code.
Vielen lieben dank.
LG sandra


 

Beiträge aus den Excel-Beispielen zum Thema "löschen von zahlen"