Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
396to400
396to400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Löschen von Nmaen in einer Datei.

Löschen von Nmaen in einer Datei.
15.03.2004 15:19:03
Jobst
Habe eine Datei mit 1000 Namen.
100 davon habe ich in einer anderen Datei. Diese möchte in der grossen Datei so einfach wie möglich löschen.
Gibt es ein verfahren hierzu???
Gruss und Danke
Jobst

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen von Nmaen in einer Datei.
15.03.2004 17:09:49
Thorsten
Hallo Jobst
Versuch es doch mal so:
Voraussetzung:
1. In der Tabelle mit den 100 Namen dürfen keine Leerzellen zwischen den Namen sein.
2. Sowohl in Tabelle 1 als auch in 2 müssen die Namen in Spalte A eingetragen sein
(wenn dem nicht so ist, musst Du den Code anpassen ;-) )


Sub NameLoeschen()
    Dim Zeile As Integer
    Dim Zelle As Range
    Zeile = 1
    
        Do Until Workbooks(2).Sheets(1).Range("A" & Zeile).Value = ""
                For Each Zelle In Workbooks(1).Sheets(1).Range("A1:A1000")
                    If Zelle.Value = Workbooks(2).Sheets(1).Range("A" & Zeile).Value Then
                        'Inhalt der Zelle wird gelöscht
                        Zelle.Value = "" 
                        'Zelle wird markiert
                        Zelle.Select
                        'Zelle wird gelöscht
                        Selection.Delete Shift:=xlUp
                        'For Schleife wird verlassen und die Suche nach dem nächsten Namen gestartet
                        Exit For
                    End If
                Next
            Zeile = Zeile + 1
        Loop
End Sub


     Code eingefügt mit Syntaxhighlighter 2.5

Konnte ich helfen?
Ich habe das mit 2 Dateien getestet. In der "großen" waren 20 Namen und in der "kleinen" waren 3 Namen. Die 3 Namen wurden in der "großen" Datei gefunden,gelöscht und auch die Zellen wurden "entfernt", damit keine Leerzeilen entstehen.
Ciao
Thorsten
Anzeige

84 Forumthreads zu ähnlichen Themen

Aus zwei Tabellen eine Machen
SebastianSchelb

Hallo ich brauche euere Hilfe. Aleine schaffe ich es einfach nicht.
Ich habe eine zwei Tabelle mit Wörtern die zusammengefasst werden soll in eine Tabelle, in welcher aber kein Wort doppelt sein soll. Die anzahl der Wörter der 1. und 2. Tabelle vareieren von Tag zu Tag
Tabelle 1 (in der...
06.10.2008 14:52:00
Thread-ID: 1014455
5 Beiträge
Anzeige
2 Word-Dateien zusammenfügen
HansP

Hallo! Im Kern wäre das eine Frage für ein Word-Forum, aber das Ganze muss über Excel laufen...
Ich füge in 2 Word-Dateien Daten aus einer Excel-Tabelle ein. Klappt prima. Nun muss ich aber, die beiden Word-Dateien zu einer zusammenfügen. Ich aus organisatorischen Gründen, kann ich die beid...
03.07.2009 15:47:16
Thread-ID: 1086110
2 Beiträge
aus mehreren Datesätze EINER machen
Joachim

Hallo zusammen,
vielleicht kann mir jemand helfen: Ich habe eine Excelmappe mit Daten ab Zeile 15.
Jede Zeile ist immer ein Datensatz. Ein Datesatz sieht so aus (ich nenn nur mal die betroffenen Zellen):
Spalte D :
reiner Text (string) zB: "LAGER"
Spalte E :
Preis (Zahl...
14.09.2009 14:27:52
Thread-ID: 1102643
14 Beiträge
Anzeige
Mehrere Abfragen in einer Summe zusammenfassen
Jan

Liebe Exel-Profi's,
ich habe ein Problem bei einer Formel. Ich möchte auf einer Übersichtsseite (Tabellenblatt 1) in einer Zelle eine Summe mehrerer Abfragen zusammen fassen. Im Tabellenblatt 2 werden Daten eingegeben.
Im Klartext soll folgendes abgefragt werden:
Wenn A1 = "Versich...
14.09.2011 07:32:16
Thread-ID: 1229794
7 Beiträge
aus 2 Listen eine machen
Uppe

Hallo Experten,
ich steh grad etwas auch dem Schlauch. Das Internet hat mir bisher leider auch nicht geholfen, vielleicht suche ich nach den falschen Schlagwörtern!?
Also, mein Problem:
Ich habe eine Liste1 mit Servern und diversen Daten zu diesen. Die Servernamen kommen in der List...
12.07.2012 13:22:57
Thread-ID: 1270771
5 Beiträge
Berechnung in mehreren Dateien, zusammenfügen
Tobias

Hallo!
Ich benötige nochmal euere Hilfe.
Ich habe einen Ordner mit vielen .xls Dateien. Aus jeder dieser Dateien muss ich die Werte von A1:A30 (in unterschiedlicher Reihenfolge) in eine Vorlage kopieren. In der Vorlage werden von allen .xls Dateien bestimmte Werte zusammengefasst. Hier...
05.11.2012 10:30:01
Thread-ID: 1285296
3 Beiträge
Mehrere Exceldateien in einer Datei zusammenfassen
Chris

Hallo Forum,
ich habe folgendes Problem:
ch bin total Ratlos, habe ein paar ansätze, aber nichts konkretes bin in Makro Programmierung nicht wirklich gut.
Folgendes Szenario:
Ich habe mehrere Exceldateien mit gleicher Struktur in einem Verzeichnis liegen. Alle diese Dateien möch...
19.02.2013 15:03:28
Thread-ID: 1300053
4 Beiträge
alle Dateien im Verzeichnis als pdf speichern
Uwe

Hallo,
wie kann man alle xls-Dateien in einem Verzeichnis als pdf-Datei speíchern.
26.04.2013 09:27:18
Thread-ID: 1310572
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
1
13
2
6
4
2
3
3
2
1
5
2
2
5
1
1
1
6
3
10
1
1
2