Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1136to1140
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
1136to1140
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchen und ersetzen

suchen und ersetzen
Detlef
Hallo zusammen,
ich bekomme aus einer Oracle-Datenbank Werte, die ich mir per VBA in das 1. AB importiere. Nun müssen nachträglich die Spalten C - E in Abhängigkeit der Eintragung in Spalte C+D angepasst werden.
Im 2. AB stehen die erforderlichen Korrekturen. In Spalte A steht der Such_Index. Wenn dieser Such_Index im 1. AB (ergibt sich aus Spalte C+D) gefunden wird, sollen die Spalten C - E entsprechend der Eintragung im 2. AB angepasst werden.
Hoffe, das ich mich nicht zu verquer ausgedrückt habe. Eine zusammengedampfte Beispieldatei habe ich hochgeladen.
https://www.herber.de/bbs/user/68046.xls
Im 1. AB habe ich so um die 40.000 Zeilen und 60 Spalten. Die Zeilen im 2. AB halten sich in Grenzen (um die 20 Zeilen).
Mit einem Replace komme ich hier gedanklich nicht weiter, weil ich nicht weiss wie ich den stricken muß. Bin für jede Idee dankbar.
Gruß Detlef

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: suchen und ersetzen
17.02.2010 00:24:47
Josef
Hallo Detlef,

lade bitte das nächste Mal eine Mappe ohne VBA-Schutz ond ohne Makros die beim Öffnen der Datei Fehler produzieren hoch, dann erhöht sich deine Chance auf eine Antwort.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub update()
  Dim objShDaten As Worksheet, objShPARA As Worksheet
  Dim rng As Range, rngFind As Range
  Dim strDone() As String, lngCalc As Long
  
  On Error GoTo ErrExit
  lngCalc = Application.Calculation
  Application.Calculation = xlCalculationManual
  
  Set objShDaten = Sheets("Daten_1_AKTU")
  Set objShPARA = Sheets("PARA")
  
  Redim strDone(0)
  
  With objShPARA
    For Each rng In .Range("C3:C" & Application.Max(3, .Cells(.Rows.Count, _
        3).End(xlUp).Row))
      Set rngFind = Nothing
      Set rngFind = objShDaten.Columns(4).Find(What:=rng, LookIn:=xlValues, _
        LookAt:=xlWhole)
      If Not rngFind Is Nothing Then
        Do
          strDone(UBound(strDone)) = rngFind.Address(0, 0)
          Redim Preserve strDone(UBound(strDone) + 1)
          If rngFind.Offset(0, -1) = rng.Offset(0, 4) Then
            rngFind.Offset(0, -1) = rng.Offset(0, 3)
            rngFind.Offset(0, 1) = rng.Offset(0, 1)
            rngFind = rng.Offset(0, -1)
          End If
          Set rngFind = objShDaten.Columns(4).FindNext(rngFind)
        Loop While Not rngFind Is Nothing And Not _
          (IsNumeric(Application.Match(rngFind.Address(0, 0), strDone, 0)))
      End If
    Next
  End With
  
  ErrExit:
  Application.Calculate
  Application.Calculation = lngCalc
  Set rng = Nothing
  Set rngFind = Nothing
  Set objShDaten = Nothing
  Set objShDaten = Nothing
End Sub

Gruß Sepp

Anzeige
AW: suchen und ersetzen
17.02.2010 10:02:05
Detlef
Hallo Sepp,
natürlich, dachte auch ich hätte alle Module gelöscht. Aber heute Morgen auf der Fahrt ins Büro fielen mir meine Sünden ein. Ich hatte "DieseArbeitsmappe" vergessen. Beim nächsten Mal versuche ich besser zu bereinigen bevor ich hochlade.
Vielen Dank für Deine Hilfe, funktioniert super.
Gruß Detlef
AW: suchen und ersetzen
17.02.2010 11:23:12
Detlef
Hallo Sepp,
so richtig rund läuft es doch noch nicht. Wenn ich im 2. AB mehrere Zeilen habe, wird immer nur die Updateinformation der 1. Zeile genommen und die entsprechenden Zeilen im 1. AB geändert.
Die anderen werden aus dem 2. AB nicht abgearbeitet. Wenn ich dann das Makro erneut starte, wird die 2. Zeile aus dem 2. AB abgearbeitet, usw.
Mir ist nicht klar an welcher Stelle in Deinem Code ich da eingreifen muß.
Gruß Detlef
Anzeige
AW: suchen und ersetzen
17.02.2010 11:57:42
Josef
Hallo Detlef,

so solte es laufen.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub update()
  Dim objShDaten As Worksheet, objShPARA As Worksheet
  Dim rng As Range, rngFind As Range
  Dim strDone() As String, lngCalc As Long
  
  On Error GoTo ErrExit
  lngCalc = Application.Calculation
  Application.Calculation = xlCalculationManual
  
  Set objShDaten = Sheets("Daten_1_AKTU")
  Set objShPARA = Sheets("PARA")
  
  With objShPARA
    For Each rng In .Range("C3:C" & Application.Max(3, .Cells(.Rows.Count, _
        3).End(xlUp).Row))
      Erase strDone
      Redim strDone(0)
      Set rngFind = Nothing
      Set rngFind = objShDaten.Columns(4).Find(What:=rng, LookIn:=xlValues, _
        LookAt:=xlWhole)
      If Not rngFind Is Nothing Then
        Do
          strDone(UBound(strDone)) = rngFind.Address(0, 0)
          Redim Preserve strDone(UBound(strDone) + 1)
          If rngFind.Offset(0, -1) = rng.Offset(0, 4) Then
            rngFind.Offset(0, -1) = rng.Offset(0, 3)
            rngFind.Offset(0, 1) = rng.Offset(0, 1)
            rngFind = rng.Offset(0, -1)
          End If
          Set rngFind = objShDaten.Columns(4).FindNext(rngFind)
        Loop While Not rngFind Is Nothing And Not _
          (IsNumeric(Application.Match(rngFind.Address(0, 0), strDone, 0)))
      End If
    Next
  End With
  
  ErrExit:
  Application.Calculate
  Application.Calculation = lngCalc
  Set rng = Nothing
  Set rngFind = Nothing
  Set objShDaten = Nothing
  Set objShDaten = Nothing
End Sub

Gruß Sepp

Anzeige
AW: suchen und ersetzen
17.02.2010 13:18:15
Detlef
Hallo Sepp,
nein, leider keine Veränderung. Ich habe Dir die Beispieldatei mit Deinem Makro nochmals hochgeladen (jetzt ohne Überraschungen).
https://www.herber.de/bbs/user/68070.xls
Wenn man das Makro mehrfach startet, nimmt es jeweils die nächste Zeile.
Gruß Detlef
AW: suchen und ersetzen
17.02.2010 13:51:52
Josef
Hallo Detlef,

aber jetzt hab ich den "Wurm" gefunden.

' **********************************************************************
' Modul: modUmwandeln Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub update()
  Dim objShDaten As Worksheet, objShPARA As Worksheet
  Dim rng As Range, rngFind As Range
  Dim strDone() As String, lngCalc As Long, strAddr As String
  
  On Error GoTo ErrExit
  lngCalc = Application.Calculation
  Application.Calculation = xlCalculationManual
  
  Set objShDaten = Sheets("Daten_1_AKTU")
  Set objShPARA = Sheets("PARA")
  
  With objShPARA
    For Each rng In .Range("C3:C" & Application.Max(3, .Cells(.Rows.Count, _
        3).End(xlUp).Row))
      Erase strDone
      Redim strDone(0)
      Set rngFind = Nothing
      Set rngFind = objShDaten.Columns(4).Find(What:=rng, LookIn:=xlValues, _
        LookAt:=xlWhole)
      If Not rngFind Is Nothing Then
        Do
          Debug.Print rng.Value, rngFind.Address(0, 0)
          rngFind.Interior.ColorIndex = 6
          If strDone(0) <> Empty Then Redim Preserve strDone(UBound(strDone) + _
            1)
          strDone(UBound(strDone)) = rngFind.Address(0, 0)
          If rngFind.Offset(0, -1) = rng.Offset(0, 4) Then
            rngFind.Offset(0, -1) = rng.Offset(0, 3)
            rngFind.Offset(0, 1) = rng.Offset(0, 1)
            rngFind = rng.Offset(0, -1)
          End If
          Set rngFind = objShDaten.Columns(4).FindNext(rngFind)
          If Not rngFind Is Nothing Then strAddr = rngFind.Address(0, 0)
        Loop While Not rngFind Is Nothing And Not _
          IsNumeric(Application.Match(strAddr, strDone, 0))
      End If
    Next
  End With
  
  ErrExit:
  Application.Calculate
  Application.Calculation = lngCalc
  Set rng = Nothing
  Set rngFind = Nothing
  Set objShDaten = Nothing
  Set objShDaten = Nothing
End Sub

Gruß Sepp

Anzeige
AW: suchen und ersetzen
18.02.2010 10:26:23
Detlef
Hallo Sepp,
besten Dank, das sieht jetzt gut aus.
Gruß Detlef

323 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