Thema Datum  Von Nutzer Rating
Antwort
Rot Kopftext suchen Spalte als Range in Variable schreiben
 29.09.2015 08:54:29 Gast62018
NotSolved
29.09.2015 20:56:44 BigBen
NotSolved

Ansicht des Beitrags:
Von:
Gast62018		 Datum:
29.09.2015 08:54:29		 Views:
1214		 Rating:
     
Antwort:
  Ja
Thema:
Kopftext suchen Spalte als Range in Variable schreiben

Ich will Texte von Blatt B in Blatt A suchen und ersetzt. Es sollen aber nur Texte in spezieller Spalte von Blatt A ersetzt werden.

An der Stelle der wsWerte Bereichsdefinition kommt immer objektdefinierter Fehler, jemand einen Tipp?

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Neubenennen()
 
Dim strSuchText As String      'Suchtext
Dim strErsetzText As String    'Ersetztext
Dim x As Integer               'Laufvariable for-Schleife
Dim wsWerte As Range           'Bereich in welchem Ersetzt wird
Dim wsSuchDaten As Worksheet   'Blatt Suchdaten
 
Dim lngAnzahlZeilen As Long    'Spaltenlänge von B in Suchdaten
 
Dim rngZelle As Range
 
 
Set rngZelle = Worksheets("TabelleA").Rows(1).Find("Kabeltyp", , , xlWhole)
        If Not (rngZelle Is Nothing) Then
 
        
 
' Bereichvariable für Worksheets zuweisen
Set wsWerte = Worksheets("TabelleA").Range(Cells(1, rngZelle.Column), Cells(30000, rngZelle.Column))
' Objektvariablen für Worksheets zuweisen
Set wsSuchDaten = ThisWorkbook.Worksheets("TabelleB")
 
' Letzte Zeile der Spalte C ermitteln
lngAnzahlZeilen = wsSuchDaten.Range("C" & wsSuchDaten.Rows.Count).End(xlUp).Row
    
' Schleife von Zeile 2 bis Spaltenlänge
For x = 2 To lngAnzahlZeilen
 
    strSuchText = wsSuchDaten.Cells(x, 1)         'suchtext = Zelle (x, B)
    strErsetzText = wsSuchDaten.Cells(x, 6)       'ersetztext = Zelle (x, C)
 
    'Tabellenblatt nach Suchtext durchsuchen und mit Ersetztext ersetzen
    wsWerte.Cells.Replace What:=strSuchText, replacement:=strErsetzText, _
        LookAt:=xlWhole, SearchOrder:=xlByColumns, MatchCase:=False, _
        SearchFormat:=False, ReplaceFormat:=False
    
   'LookAt:=xlPart Teile der Zelle suchen und Teile ersetzen
   'LookAt:=xlWhole Gesammten Inhalt der Zelle suchen und ersetzen
    Next x
Worksheets("TabelleB").Columns("G:G").Delete
End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Kopftext suchen Spalte als Range in Variable schreiben
 29.09.2015 08:54:29 Gast62018
NotSolved
29.09.2015 20:56:44 BigBen
NotSolved