Thema Datum  Von Nutzer Rating
Antwort
30.09.2010 20:32:40 Kristian
NotSolved
01.10.2010 05:40:31 Severus
NotSolved
Rot Aw:Aw:Automatische Umänderung bei Treffer
 01.10.2010 07:59:39 kristian
NotSolved

Ansicht des Beitrags:
Von:
kristian		 Datum:
01.10.2010 07:59:39		 Views:
971		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Automatische Umänderung bei Treffer
Vielen, vielen herzlichen Dank!!!

Severus schrieb am 01.10.2010 05:40:31:

Hi Kristian,

Option Explicit

Sub Ersetzen()
Dim StartZeile As Long 'Erste Zeile mit Inhalt in Spalte A
Dim LetzteZeile As Long 'Letzte Zeile mit Inhalt in Spalte A
Dim LaufZahlHaupt As Long
Dim LaufZahlNeben As Long
Dim VorangegangeneZeile As Long 'Zeile mit dem letzten Ersetzungsereignis
Dim InHalt As String

With ThisWorkbook
With ActiveSheet
If .Range("A1") <> "" Then
StartZeile = 1
Else
StartZeile = .Range("A1").End(xlDown).Row
End If
LetzteZeile = .Range("B65536").End(xlUp).Row
VorangegangeneZeile = StartZeile
For LaufZahlHaupt = StartZeile To LetzteZeile
InHalt = .Cells(LaufZahlHaupt, 2)
Select Case InHalt
Case "S", "F", "U", "N"
For LaufZahlNeben = LaufZahlHaupt To VorangegangeneZeile Step -1
If .Cells(LaufZahlNeben, 1) = "A" Then
.Cells(LaufZahlNeben, 2) = "A"
VorangegangeneZeile = LaufZahlNeben
Exit For
End If
Next LaufZahlNeben
End Select
Next LaufZahlHaupt
End With
End With
End Sub

Severus

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
30.09.2010 20:32:40 Kristian
NotSolved
01.10.2010 05:40:31 Severus
NotSolved
Rot Aw:Aw:Automatische Umänderung bei Treffer
 01.10.2010 07:59:39 kristian
NotSolved