Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Vergleiche und Lösche
zurück: apllication.match mit for each verknüpfen? weiter: Vorlage als Kopie Speichern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Lande88
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Jan 2013, 12:06
Rufname:

Vergleiche und Lösche - Vergleiche und Lösche

Nach oben
       Version: Office 2010

Hallo liebe Excel-Freunde,

ich benötige eure Hilfe. Das Makro, welches ich programmiert habe, soll umgeschrieben werden. Aktuell prüft das Makro die Spalte A nach den Telefonnummern "+492325787*" und "+4915115011*". Wenn Spalte A nicht gleich "+492325787*" und "+4915115011*" ist, soll der Wert aus Spalte D eingesetzt werden. Ich möchte das jetzt so umändern, dass die Nummern die nicht gleich "+492325787*" und "+4915115011*" sind, gelöscht werden (Der ganze Datensatz)

Vielen Dank für eure Hilfe

LG Lande 88

Makro:

Sub Telefonnummern()
'
' Anrufende Nummern die nicht lila-logistik Nummern sind werden durch die in Spalte C stehende Nummer ersetzt.
Dim rng As Range
Dim c As Range
Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

For Each c In rng
If Not c Like "+492325787*" And Not c Like "+4915115011*" Then
c = c.Offset(0, 3)

Else

End If

Next
End Sub
Phelan XLPH
Fortgeschritten


Verfasst am:
31. Jan 2013, 12:41
Rufname: Phelan


AW: Vergleiche und Lösche - AW: Vergleiche und Lösche

Nach oben
       Version: Office 2010

satatt:
c = c.Offset(0, 3)

das:
c = Empty
Lande88
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Jan 2013, 13:06
Rufname:

AW: Vergleiche und Lösche - AW: Vergleiche und Lösche

Nach oben
       Version: Office 2010

Hallo Phelan XLPH,

er löscht jetzt nur die werte aus Spalte A. Ich möchte aber das er dann den kompletten Datensatz löscht.

Danke für deine Hilfe
Phelan XLPH
Fortgeschritten


Verfasst am:
31. Jan 2013, 13:22
Rufname: Phelan

AW: Vergleiche und Lösche - AW: Vergleiche und Lösche

Nach oben
       Version: Office 2010

Sollen denn die Inhalte der Zeile oder die ganze Zeile gelöscht werden?
Phelan XLPH
Fortgeschritten


Verfasst am:
31. Jan 2013, 13:22
Rufname: Phelan


AW: Vergleiche und Lösche - AW: Vergleiche und Lösche

Nach oben
       Version: Office 2010

Sollen denn die Inhalte der Zeile oder die ganze Zeile gelöscht werden?
Lande88
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Jan 2013, 13:27
Rufname:

AW: Vergleiche und Lösche - AW: Vergleiche und Lösche

Nach oben
       Version: Office 2010

Die ganze Zeile =)
Phelan XLPH
Fortgeschritten


Verfasst am:
31. Jan 2013, 13:42
Rufname: Phelan

AW: Vergleiche und Lösche - AW: Vergleiche und Lösche

Nach oben
       Version: Office 2010

Code:
Sub Telefonnummern()
   Dim TelNr As String
   Dim i As Long
   ' Anrufende Nummern die nicht lila-logistik Nummern sind werden gelöscht.
   Application.ScreenUpdating = False
   For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
      TelNr = Cells(i, 1).Value2
      Select Case True
         Case TelNr Like "+492325787*"
         Case TelNr Like "+4915115011*"
         Case Else: Rows(i).Delete
      End If
   Next
End Sub
Lande88
Im Profil kannst Du frei den Rang ändern


Verfasst am:
31. Jan 2013, 15:08
Rufname:

AW: Vergleiche und Lösche - AW: Vergleiche und Lösche

Nach oben
       Version: Office 2010

Hallo,

es funktioniert nicht. Er gibt mir die Fehlermeldung aus: Fehler beim Kompilieren: End If ohne If-Block

Gruß Lande88
Phelan XLPH
Fortgeschritten


Verfasst am:
31. Jan 2013, 17:59
Rufname: Phelan

AW: Vergleiche und Lösche - AW: Vergleiche und Lösche

Nach oben
       Version: Office 2010

statt: End If
das: End Select
Lande88
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Feb 2013, 11:12
Rufname:

AW: Vergleiche und Lösche - AW: Vergleiche und Lösche

Nach oben
       Version: Office 2010

Danke es funktioniert jetzt =). Eine kleine Frage noch. Ich möchte gerne das die oberste Zeile (Überschriften) nicht gelöscht wird. Was muss beim Makro geändert werden.

Danke nochmal für deine Hilfe

Gruß Lande88
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Feb 2013, 14:05
Rufname: Phelan


AW: Vergleiche und Lösche - AW: Vergleiche und Lösche

Nach oben
       Version: Office 2010

For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Mehrere Spalten miteinander vergleiche 3 Smile 91 29. Okt 2013, 21:05
lupo1 Mehrere Spalten miteinander vergleiche
Keine neuen Beiträge Excel Formeln: VERGLEICHE 8 Ziffern in EINER >1 Spalte mit Funktionen 10 FreundExcel 91 07. März 2013, 19:55
HermannZ VERGLEICHE 8 Ziffern in  EINER >1 Spalte mit Funktionen
Keine neuen Beiträge Excel Formeln: wert aus tabelle2 a1 in textbox1 ohne Formel in a1 zu lösche 1 tomtom2718 85 08. Dez 2012, 02:38
frankieman wert aus tabelle2 a1 in textbox1 ohne Formel in a1 zu lösche
Keine neuen Beiträge Excel Formeln: Vergleiche zwei Spalten mit Text und aufzeigen wo gleich 3 Reile 594 27. März 2012, 20:53
shift-del Vergleiche zwei Spalten mit Text und aufzeigen wo gleich
Keine neuen Beiträge Excel Formeln: Formel soll bleiben, auch wenn ich Wert aus Zelle lösche 0 Senib 188 17. Nov 2011, 10:49
Senib Formel soll bleiben, auch wenn ich Wert aus Zelle lösche
Keine neuen Beiträge Excel Formeln: Vergleiche 2 Excelisten/Personalabgänge/zuänge 19 Aladin87 895 22. Jul 2010, 12:57
Gast Vergleiche 2 Excelisten/Personalabgänge/zuänge
Keine neuen Beiträge Excel Formeln: werte vergleiche + leere felder 1 leftside 185 08. Jun 2010, 11:43
peterchen1 werte vergleiche + leere felder
Keine neuen Beiträge Excel VBA (Makros): Erst ausführen wenn alle vergleiche nicht übereinstimmen 6 René00 400 02. Okt 2009, 13:45
Gast Erst ausführen wenn alle vergleiche nicht übereinstimmen
Keine neuen Beiträge Excel VBA (Makros): Excel öffnen, Vergleiche, Email schicken, schliessen 0 EazyDi 284 06. Feb 2009, 09:37
EazyDi Excel öffnen, Vergleiche, Email schicken, schliessen
Keine neuen Beiträge Excel Formeln: Excel, Vergleiche innerhalb der Spalte + Zahl hochzählen? 1 Markus in trouble 2513 12. Okt 2008, 23:52
Klaus aus M Excel, Vergleiche innerhalb der Spalte + Zahl hochzählen?
Keine neuen Beiträge Excel Formate: Zählenwenn mehrere Vergleiche 11 Nabend 404 12. Okt 2008, 09:45
Klaus-Dieter Zählenwenn mehrere Vergleiche
Keine neuen Beiträge Excel Formeln: Vergleiche Spalten und markiere nicht übereinstimmende 2 chrisbiolog 790 01. Apr 2008, 11:47
chrisbiolog Vergleiche Spalten und markiere nicht übereinstimmende
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS