Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ersetzen durch ....

Ersetzen durch ....
01.10.2004 10:12:28
Steve
Hallo !
Ich habe eine Liste mit ca. 15000 Positionen, in Spalte E ist eine 3 stellige Zahl (zum Beispiel 020 oder 530) die ich durch eine 2 stellige Alpha/Nummerischezahl ersetzen möchten. Gibt es die Möglichkeit, wenn der Eintrag in Spalte E in Datei Nummer_1 mit der Eintrag in Spalte C in Datei Nummer_2 übereinstimmt soll der 2 stellige Eintrag in Spalte D Datei Nummer_2 in Spalte E Datei Nummer_1 übernommen werden! (Hier ein paar weitere Infos, Datei Nummer_1 besteht aus ca. 15000 Positionen und in Spalte E ist eine 3 stellige Zahl. Datei Nummer_2 ist eine Liste mit ca. 400 Eintragungen in Spalte C ist die 3 stellige Zahl und in Spalte D die 2 stellige Alpha/Nummerischezahl). Das heißt im Klartext die Eintragungen in Datei Nummer_2 kommen in Datei Nummer_1 mehrmals vor!
Wäre sehr Dankbar wenn jemand eine Idee hätte ….
Gruss
Steve

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ersetzen durch ....
ransi
hallo steve
Die zahlen in datei2 spalte "C" kommen aber je nur 1X vor?
wenn ja wäre das doch mit sverweis () und einer hilfspalte zu machen.
ransi
AW: Ersetzen durch ....
01.10.2004 13:49:18
Steve
Hallo Ransi,
ja, genau die 3 stelligen Zahlen in Datei_2 Spalte C kommen nur einmal vor, und unterschiedlich OFT in der Datei_1 Spalte E vor. Wie geht das mit sverweis?
=sverweis(Datei_1 Spalte E gleich Datei_2 Spalte C dann Datei_1 Spalte E durch Datei_2 Splate D ersetzen)
?
Diese Sverweis verstehe ich leider nicht so!
Hast du ein Vorschlag?
Gruss
Steve
AW: Ersetzen durch ....
ransi
hallo steve
mit sverweis() kannst du natürlich nicht die werte in spalte "E" ändern.
mit einer hilfspalte, in der du die sverweis() formel einträgst, kannst du dir aber die passenden entsprechungen aus spalte "D" holen.
dann die hilsspalte kopieren, und mit "inhalte einfügen-werte" die spalte "E" überschreiben.
Dieser code würde Die spalte "E" direkt mit den passenden werten überschreiben, aber du musst ihn dir noch anpassen.
Public 

Sub sv()
Dim E As Long
Dim c As Long
For E = 1 To 15000
For c = 1 To 400
If Workbooks("datei2").Sheets("tabelle1").Cells(c, 3).Value = _
Workbooks("datei1").Sheets("tabelle1").Cells(E, 5).Value Then
Workbooks("datei1").Sheets("tabelle1").Cells(E, 5).ValueCells(E, 5).Value = _
Workbooks("datei2").Sheets("tabelle1").Cells(c, 4).Value
Exit For
End If
Next c
Next E
End Sub

ist zwar holprig mit den 2 schleifen, aber er tuts.
ransi
Anzeige
Fehlerteufel
ransi
sorry
Workbooks("datei1").Sheets("tabelle1").Cells(E, 5).ValueCells(E, 5).Value = _
muss natürlich:
Workbooks("datei1").Sheets("tabelle1").Cells(E, 5).Value= _
heissen
ransi
AW: Fehlerteufel
01.10.2004 15:56:41
Steve
Hallo Ransi
ich komme erst Morgen dazu das zu testen, wollt mich aber schon heute vorab bedanken.
Ich gebe dir selbstverständlich bescheid ....
DANKE
Steve
wäre nett.. o.T.
ransi
AW: wäre nett.. o.T.
02.10.2004 11:54:45
Steve
Hallo Ransi,
ich habe das Makro getestet, ich stelle fest das wenn Werte in Datei2, Spalte C nicht in Datei1, Spalte E vorhanden sind, dann passiert nix mehr, das heißt er sucht und sucht .... und bleibt eben stehen, ich muss dann „warmstarten“! Werte in Datei2 Spalte C müssen nicht unbedingt in Datei1 Spalte E vorhanden sein! Sind aber genau die gleichen Werte in Datei1 und 2 vorhanden, dann macht es alles richtig!
Was denkst du woran das liegen könnte?
Mit freundlichen Grüßen
Steve
Anzeige
liegt am code ;-)
ransi
Hallo steve
"Was denkst du woran das liegen könnte?"
Liegt ganz eindeutig am code ! ;-)
Bin (warum auch immer...)davon ausgegangen das jeder wert in spalte "e" auch in spalte "c" vorhanden ist.
habe jetzt mal mit countif vorher geprüft ob das so ist.
wenn ja wird gesucht und ersetzt.
wenn nicht gehts weiter.
ich habe das mal bei mir getestet mit 2 dateien mit 15000 bzw.400 werten.
es geht. Dauert aber ne weile bis er damit durch ist bei meinem erbsenzähler.

Sub svmitcount()
Dim E As Long
Dim c As Long
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = Workbooks("datei1.xls").Sheets("tabelle1")
Set wks2 = Workbooks("datei2.xls").Sheets("tabelle1")
For E = 1 To 15000
For c = 1 To 400
If WorksheetFunction.CountIf(wks2.Range("c1:c400"), wks1.Cells(E, 5).Value) > 0 Then
If wks2.Cells(c, 3).Value = wks1.Cells(E, 5).Value Then
wks1.Cells(E, 5).Value = wks2.Cells(c, 4).Value
Exit For
End If
End If
Next c
Next E
End Sub

ransi
Anzeige
AW: liegt am code ;-)
03.10.2004 11:32:23
Steve
Hallo Ransi,
leider klappt es noch nicht! Vielleicht liegt es daran dass WERTE sich in Spalte D Datei2 oft wiederholen? zum Beispiel:
Spalte E Datei1 = 082, Spalte C Datei2 = 082, Spalte D Datei2 = 0V
UND
Spalte E Datei1 = 120, Spalte C Datei2 = 120, Spalte D Datei2 = 0V
jedenfalls bei die 12000 Positionen die ich gestestet habe, sind nur ca. 2600 richtig umgesetzt! Ich wollt dich nicht nochmals unnötig stören, daher habe ich die Sache wirklich Stundenlang geprüft, und kann leider nicht 100% sagen warum es nicht klappt!?
Bin Dankbar um Rat!
Gruß
Steve
AW: liegt am code ;-)
ransi
hallo steve
ich weiss nicht was da bei dir klemmt. doppelte werte in spalte können normal nicht stören.
ich hab die werte die der code liefert, mit dieser formel kontrolliert.
=SVERWEIS(E1;[datei2.xls]Tabelle1!$C:$D;2;FALSCH)
musst du evtl. noch anpassen.
trag die formel mal in F1 von datei 1 ein und kopier runter soweit deine werte reichen.
bis 12000 oder so.
dann startest du den code.
bei mir sind die werte gleich.
wenns nicht so ist, lade die tabelle doch mal hoch wenn keine vertraulichen daten drin sind.
oder mail sie mir.
adresse kriegst du dann.
ransi
Anzeige
AW: liegt am code ;-)
04.10.2004 09:14:14
Steve
Hallo Ransi
wollt dir bescheid geben, ich habe diese SVERWEIS benutzt und der funktioniert so gut und schnell dass ich diese Lösung ausreichend finde!
Möchte mich bei dir ganz herzlich bedanken, hab jetzt endlich ein SVERWEIS Befehl gesehen und eingesetzt!
Viele Grüße
Steve
freut mich wenns klappt..
ransi
hallo steve
..nur interessehalber.
Bringt sverweis() andere werte als der code ?
ransi
AW: freut mich wenns klappt..
04.10.2004 19:21:53
Steve
Hallo Ransi,
ja, in einige zellen ist "#NV" = also nicht vorhanden, da die Wert in Spalte E Datei1, nicht in Datei2 Spalte C vorhanden ist! Sonst war alles richtig übernommen.
Gruß
Steve
Anzeige

306 Forumthreads zu ähnlichen Themen

Eingabe formatiert zurückgeben (Komma und Punkt)
Lemmi

Hallo zusammen,
ich möchte Euch eine wahrscheinlich einfache Frage stellen, die ich mir gerade mal nicht beantworten kann!
Wie stelle ich sicher das auch wenn ein Punkt als Trennzeichen eingegeben worden ist, am Ende immer ein Komma in der Zelle steht?
Eingabe 10,0........Ausgabe...
07.08.2008 21:35:00
Thread-ID: 1000105
5 Beiträge
Anzeige
"#Wert!" suchen, durch "" ersetzen
Detlef

Hallo Experten,
warum lässt sich im VBA der Ausdruck "#Wert!" nicht durch "" ersetzen.
(im Excel geht es)
mit "1234567" geht es auch ohne Probleme ?
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
macht er nich...
29.08.2008 11:23:20
Thread-ID: 1005759
6 Beiträge
, ersetzen durch einen .
andreas

Hallo,
wenn ich in einer Spalte ein , durch einen . ersetzen will verschiebt sich der Punkt um 2 Stellen nach links und macht dann z. B. aus 14,7204 dann 0.147204.
Kann mir jemand sagen wie ich aus der Zahl mit dem Komma exakt die Zahl mit dem Punkt bekomme.
Vielen Dank
Andreas<...
07.09.2008 18:47:00
Thread-ID: 1007995
3 Beiträge
Anzeige
Eintrag z.B. KW 52 durch Datum ersetzen
Hubert

Hallo liebe Forumsmitglieder,
aktuelle habe ich eine Frage zur Lösung folgender Aufgabenstellung:
In einer Zelle habe ich den Eintrag KW 51, KW 52,....
In der darunterliegenden zelle möchte ich automatisch das Datum dieser Woche eintragen:
Für die KW 15 : 15.12. - 21.12.08
...
18.12.2008 10:40:00
Thread-ID: 1033798
3 Beiträge
internetseite Punkt ist ein komma
Michael

Hallo!
Ich versuche die internetseite http://www.ls-d.de/Kursabfragen.15.0.html die Daten auszuwerten. Jedoch gibt es nach der Aktualisierung immer wieder den Punkt aus. 23.203 damit kann man keine Rechenoperation ausführen. Gibt es eine Möglichkeit die Werte mit einem Komma darzustellen au...
28.01.2009 17:27:33
Thread-ID: 1044643
4 Beiträge
TextBox Komma in Punkt umwandeln
Heinz

Hallo Leute
Wie kann ich bitte,wenn in Textbox6 ein Komma eingegeben wird, das es automatisch auf Punkt wechselt ?
Gruß
Heinz
28.01.2009 17:42:00
Thread-ID: 1044650
3 Beiträge
CSV selbst erstellt - Komma statt Punkt
Philipp

Hallo an alle!
Ich erzeuge über ein - im Archiv gefundenes - Makro aus den Daten eine CSV-Datei.
Für die verschiedenen Spalten brauch ich eigene Formatierungen (zB Spalte 2: Datumsformat mit ".", klappt).
Wie bekommen ich es hin, dass er bei den Werten (Spalten 4, 5 und 6) ein Komm...
29.07.2009 11:08:31
Thread-ID: 1092173
7 Beiträge
Punkt in xlText-file per vba durch Komma ersetzen
Bernd


Liebe Excel-Gemeinde,
mit dem nachstehenden Code wird ein Blatt mit xls-Format in ein Blatt txt-Format konvertiert.
With wbZiel
Application.DisplayAlerts = False
.SaveAs strFile, _
FileFormat:=xlText, CreateBackup:=False 'Zeile neu aufgenommen f. tabstopp getrennt<...
08.01.2010 14:27:26
Thread-ID: 1128272
7 Beiträge
Anzeige

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
4
5
2
6
2
3
2
6
6
3
2
5
2
3
5
4
8
2
2
4
2
1
1
4