Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
724to728
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
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur eine bestimmte Anzahl suchen und ersetzen

Nur eine bestimmte Anzahl suchen und ersetzen
02.02.2006 13:31:54
Andre´
Hallo alle zusammen,
ich habe in der Spalte B verschiedene Werte stehen, und möchte ich per Makro erreichen, dass nach einen bestimmten Wert gesucht wird und dieser durch einen anderen Wert ersetzt wird. Problem ist, dass nicht alle gefunden Werte ersetzt werden sollen sonder nur eine bestimmte Anzahl.
Zum Beispiel: es stehen 100 Werte wie „A“ es sollen aber nur die ersten 50 durch „B“ ersetzt werden.
Hat jemand eine Idee
Danke im voraus!
Andre

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur eine bestimmte Anzahl suchen und ersetzen
02.02.2006 13:47:07
Josef
Hallo Andre!
Z.B.so!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit
Sub FindenErsetzen()
Dim objSh As Worksheet
Dim rngFind As Range, rngSearch As Range
Dim strFirst As String, varFind As Variant, varReplace As Variant
Dim intMax As Integer, intIndex As Integer

Set objSh = Sheets("Tabelle3") 'Tabellenname - Anpassen!
Set rngFind = objSh.Range("B:B") 'Suchbereich - Anpassen!

varFind = "A" 'Suchbegriff
varReplace = "B" 'Ersatz
intMax = 50 'Anzahl

Set rngSearch = rngFind.Find(What:=varFind, LookIn:=xlValues, LookAt:=xlWhole, _
  After:=rngFind.Cells(rngFind.Cells.Count))

If Not rngSearch Is Nothing Then
  
  strFirst = rngSearch.Address
  
  Do
    
    intIndex = intIndex + 1
    
    rngSearch = varReplace
    
    Set rngSearch = rngFind.FindNext(rngSearch)
    
  Loop While Not rngSearch Is Nothing And rngSearch.Address <> strFirst And intIndex < intMax
  
End If

Set rngSearch = Nothing

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Nur eine bestimmte Anzahl suchen und ersetzen
02.02.2006 13:57:11
StingerMKO
Hallo Andre,
ich bin selbst auch noch nicht richtig fit in VBA, aber so hats bei mir funktioniert:

Sub Makro1()
Dim a As Variant
Dim cell As Range
a = 0
For Each cell In Range("A1:A11")
cell.Select
If ActiveCell.Value = "A" Then GoTo ersetzten Else GoTo weiter
ersetzten:
ActiveCell.Value = "B"
a = a + 1
If a = 50 Then Exit For
weiter:
Next cell
End Sub

gruß,
Malte
AW: Nur eine bestimmte Anzahl suchen und ersetzen
02.02.2006 14:40:59
Andre´
Hallo Sepp und Malte,
danke für die Hilfe! Beide Varianten funktionieren prima, wobei ich Sepp`s Variante vorziehe, weil das Tabellenblatt nicht aktiv sein muss.
Malte dein Code funktioniert auch ohne Dim a As Variant weist du warum!?
MFG
Andre
Anzeige
AW: Nur eine bestimmte Anzahl suchen und ersetzen
03.02.2006 12:39:00
StingerMKO
Hi Amdre,
ab einer bestimmten Excel Version muss man die Variablen nicht mehr deklarieren, da
Excel sich das passende Format selbst raussucht.
Ich habe die Erfahrung gemacht, dass unter einer alten Office Version dies noch
gemacht werden muss.
Gruß,
Malte

315 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 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
8
1
7
5
4
2
4
16
10
2
3
6
8
4
2
3
4
2
15
10
5
1
5
3