Suche Wert und setze davor ein Gleichheitszeichen

[DK84]

Hallo, gibt es eine Funktion beim Suchen und Ersetzen so etwas...

Suche in selektierter Spalte nach Zahlen/Wert und setze davor ein Gleichheitszeichen und  zwar nur im selektierten Bereich von Zeile 6 bis 90 z.B. eventuell als makro.

[Glausius]

Hallo,

was soll das werden? Ein Gleichheitszeichen bedeutet für Excel "es folgt eine Formel, die ich berechnen soll" - und damit kommt Murks heraus!
Erkläre doch 'mal, was du ereichen willst und wozu.

[DK84]

Hallo, 
ich brauche das für die weitere Berechnung z.B. 

5 steht in der Zelle, nach ein paar Stunden soll ein weiterer Wert eingetragen werden +5 und so weiter.
=5+5

Sonst würde 5+5 stehen was nicht berechnet wird da das Gleichheitszeichen fehlt.

[Case]

Hallo, :19:

prinzipiell so: :21:

  Zelle_mit_Zahlen_in_Formel_umwandeln_berechnen.xlsb (Größe: 14,93 KB / Downloads: 6)

[DK84]

Hi, ja genau so! Danach hab ich gesucht. 

kann im makro hinzufügen das er nur an Zeile 6 - 90 es anwendet?

Vilen Dank.

Mein Makro sieht momentan so aus.

Code:

ActiveSheet.Unprotect 5
       Sheets("LAGERSTAND").Select
       Columns("H:H").Select
       Selection.Copy
       Range("H1").Select
       Selection.End(xlToRight).Select
       ActiveCell.Offset(0, 1).Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
       Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
       Selection.Locked = True
       Selection.FormulaHidden = False
   Dim rngRange As Range
       For Each rngRange In Selection
       If IsNumeric(Left(rngRange.Text, 1)) Then
           rngRange.NumberFormat = "General"
           rngRange = "=" & rngRange.Value
       End If
   Next rngRange
       Range("H5").Select
       Selection.Copy
       ActiveCell.Offset(-3, 0).Select
       Selection.End(xlToRight).Select
       ActiveCell.Offset(3, 0).Select
       ActiveSheet.Paste
       Application.CutCopyMode = False
       With Selection
       .HorizontalAlignment = xlCenter
       .VerticalAlignment = xlCenter
       .WrapText = False
       .Orientation = 0
       .AddIndent = False
       .IndentLevel = 0
       .ShrinkToFit = False
       .ReadingOrder = xlContext
       .MergeCells = False
   End With
   Selection.Font.Size = 11
   ActiveSheet.Protect 5
End Sub

[Case]

Hallo, :19:

ist es denn immer 6 bis 90? Dann würde man eine Zählschleife statt "For Each..."nehmen. Oder man ermittelt den belegten Bereich.

Eine ganze Spalte markieren und dann mit "Selection" arbeiten ist kontraproduktiv. :21:

[DK84]

Hallo, ja das ist immer von Zeile 6 - 90.
Wie müsste den das Makro aussehen?