Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

suchen und ersetzen

suchen und ersetzen
02.04.2003 12:51:42
Fluvio
Hallo zusammen,

ich möchte Spaltenüberschriften ändern und
habe dazu folgende Prozedur:


Sub SuchenUndErsetzen()
Dim SQuelle As Variant, SZiel As Variant, i As Integer, c As Range, SAdd As String
Dim z As Integer, arr() As Integer

Workbooks(2).Activate

SQuelle = Array("C_NUMBER", "A_NAME1", "A_NAME2", "C_AREA_NETTO", "GFB_A_B_C", _
       "A_NAME3", "A_USE_KEY", "A_HEIGHT", "A_FENSTER", "A_TUERANZ", "A_BODENBEL")
SZiel = Array("SAP-Nummer |", "Raumnummer vor Ort |", "Raumbezeichnung vor Ort |", _
            "m^2 nach DIN |", "Bereich nach DIN |", "Raumnummer nach Vorlageplan |", _
            "Fläche nach DIN |", "Raumhöhe von |", "Fensterfläche |", "Türanzahl |", _
            "Bodenbelag |")

For i = LBound(SQuelle) To UBound(SQuelle)
With Cells

Set c = .Replace(SQuelle(i), SZiel(i), LookIn:=xlValues, lookat:=xlWhole)
'Set c = .Find(SB(i), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
SAdd = c.Address
Do
On Error Resume Next
z = z + 1
ReDim Preserve arr(z)
arr(z) = c.Column
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> SAdd
End If
End With
Next

Set c = Nothing
End Sub 

     Code eingefügt mit Syntaxhighlighter 1.16

Leider funktioniert übige Prozedur so nicht :-(
Es soll erreicht werden, dass, wenn das erste Element
des ersten Arrays gefunden wird durch das erste Element
des zweiten Arrays ersetzt wird.
Wie muss die Prozedur geändert werden ,damit sie funktioniert?

Vilen Dank schon einmal im Voraus für eure Hilfe

:-) Fluvio

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
www.spotlight.de
02.04.2003 14:34:41
webmaster

wm

Anzeige

345 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige