Select einen Zelle in Formel

Hallo Klaus,

wenn du die bedingte Formatierung von Hand einrichtest, markierst du alle Zellen, die eingefärbt werden sollen. Die verwendete Formel bezieht sich auf die erste Zelle der Markierung und verhält sich so, als wenn du sie über alle Zeilen ziehen würdest.

LRow errechnet die Zeilennummer der letzten belegten Zelle in Spalte A. Und mit der With-Anweisung bezieht sich die Formatierung auf alle Zellen von A12 bis A Ende.

Wenn du mit VBA-Programmierung anfängst, mache es gleich richtig und verwende kein Select und Selection.

Teste das Makro einfach einmal mit verschiedenen ausgefüllten Bereichen.

Claus

Hallo Albrecht,

ich war von deinem Code wieder so irritiert, dass ich deine Formel einfach übernommen habe. Es reicht schon: Range("AB3").Formula = "=AC3/AD3-1"

Warum bezeichnest du die Zellen nicht direkt, also z.B. Range("AB3") anstatt immer ActiveCell zu nehmen. Die ActiveCell kann sich ändern oder sie ist nicht die gewünschte beim Aufrufen des Makros und schon hast du die Tabelle geschossen. Außerdem ist die
ActiveCell die schon selektierte Zelle. Select braucht man nicht und die selektierte Zelle nochmals zu selektieren ist total unnötig (ActiveCell.Select).

Mit freundlichen Grüßen

Claus

ne geht nicht weil dann wendet der die Bedingte formatierung auf der tabelle neu an und die daten sind dort anderst, hab ich schon versucht.

Aber ich mache es jetzt so das ich abfragen will was für eine Zahl drinn steht und dann über Select case ändere ich die Zelle manuell.

Allerdings kommt da immer ein Felher bei dem Code hier:

Public Function OVERWRITE(ZellBereich As Range) As Long

Dim Zelle As Range

For Each Zelle In ZellBereich

Select Case Zusammenfassung.Zelle.Text

Case 0

Zelle.Interior.Color = RGB(192, 0, 0)

Zelle.Text = Entwickler.Zelle.Text

End Select

Next Zelle

End Function

und in Visuell in der Zelle B4 schreibe ich rein =OVERWRITE(B4), in der Zusammenfassung in Zelle B4 ist die Bedingte Formatierung und die Zahl nach der es sich richtet, und in Entwickler in Zelle B4 ist der Anzuzeigende Text.

Könnt ihr mir sagen was der Fehler ist?

//Fehlermeldung ist: Fehler beim Kompilieren:

// Methode oder Datenobjekt nicht gefunden

Okay ich hab den Fehler gefunden, jetzt nimmt der des aber es wird nix verändert, neuer Code:

Public Function OVERWRITE(ZellBereich As Range)

Dim Zelle As Range

For Each Zelle In ZellBereich

Zusammenfassung.Activate

Select Case Zusammenfassung.Range(Zelle).Value

Case 0

Zelle.Interior.Color = RGB(192, 0, 0)

Visuell.Range(Zelle).Value = Entwickler.Range(Zelle).Text

Case Else

MsgBox ("hallo")

End Select

Next Zelle

End Function

Option Explicit

Option Compare Text

Sub WandleInKleinBuchstabenUm()

  Dim Zelle As Range

  For Each Zelle In Selection

    With Zelle

      Select Case .Value

        Case "USA", "BRD"

          'Ignore

        Case Else

          .Value = LCase(.Value)

      End Select

    End With

  Next

End Sub

ja des geht ja jetzt aber es passiert nix ich glaube das problem liegt daran das ich den text aus Zusammenfassung nicht aus lesen kann, oder so.

Das ist der aktuelle Code:

Public Function OVERWRITE(ZellBereich As Range)

Dim Zelle As Range

For Each Zelle In ZellBereich

Select Case Zusammenfassung.Range(Zelle).Text

Case 0

Zelle.Interior.Color = RGB(192, 0, 0)

Zelle.Text = Entwickler.Range(Zelle).Text

Case Else

MsgBox ("hallo")

End Select

Next Zelle

End Function