Thema Datum  Von Nutzer Rating
Antwort
Rot Do-Schleife
 15.06.2008 22:08:26 Sarah
NotSolved
16.06.2008 15:13:31 jh
NotSolved
16.06.2008 18:47:34 sarah
NotSolved

Ansicht des Beitrags:
Von:
Sarah		 Datum:
15.06.2008 22:08:26		 Views:
1949		 Rating:
     
Antwort:
  Ja
Thema:
Do-Schleife
Hallo liebe Makro- Freunde,

ich brauche dringend Hilfe von einem klugen Kopf oder Fachmann, auch beides wäre super :) . Ich habe ein Makro geschrieben, das die Aufgabe hat Maschinenstörungen von verschiedenen Anlagen die sich von der Bezeichnung her unterscheiden, auf eine Begriffsart zu normieren. Dafür kopiere ich in Spalte C die Suchbegriffe (die falsche Fehlerbezeichnung der jeweiligen Anlage), in Spalte D stehen die Begriffe die dafür eingesetzt werden sollen (der normierte Ersatzbegriff). In Spalte A füge ich die Bezeichnungen der einzelnen Anlagen ein. In Spalte B stehen Informationen die nicht relevant sind. Das Makro funktioniert soweit, es nimmt einen Suchbegriff aus Spalte C, sucht diesen in Spalte A und schreibt dann dort den Begriff aus Spalte D hinein. Soweit so gut, allerdings treten verschiedene Bezeichnungen doppelt auf. In Spalte A taucht z.B. drei Mal „Fehler xy“ auf, mein Marko ersetzt allerdings nur den ersten davon und fährt dann mit dem nächsten Suchbegriff fort. Ich wollte das ganze mit einer Do Schleife coden, die solange weitermacht bis der aktuelle Fehler nicht mehr gefunden wird, habe es allerdings nicht hinbekommen. Dies ist übrigens mein erstes Makro das ich jemals geschrieben habe, also bitte nicht über den stümperhaften Code wundern ;). Wäre super wenn mir jemand dabei helfen könnte, dieses Problem in den Griff zu bekommen.

Grüße

Sarah :))


Sub Normieren()

Dim Zähler As Long
Dim Ende As Long
Dim Anfang As Long
Dim SearchValue As String
Dim FindValue As String

Anfang = 2
Ende = 250

For Zähler = Anfang To Ende
SearchValue = Cells(Zähler, 3)
FindValue = Sheets("Tabelle1").Range("A1:A250").Find(Cells(Zähler, 3))

If SearchValue = FindValue Then
Sheets("Tabelle1").Range("A1:A250").Find(Cells(Zähler, 3)).Activate
Sheets("Tabelle1").Cells(Zähler, 4)
On Error Resume Next
ActiveCell.PasteSpecial
Application.CutCopyMode = False
ActiveCell.Interior.ColorIndex = 3
End If

Next

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:



  • 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 Do-Schleife
 15.06.2008 22:08:26 Sarah
NotSolved
16.06.2008 15:13:31 jh
NotSolved
16.06.2008 18:47:34 sarah
NotSolved