Erste Zeile mit Formel suchen, kopieren, Wert einf

Sub Formel_Finden() Windows("Mappe1.xlsm").Activate Worksheets("Tabelle1").Select Dim firstrow As Long Dim i As Long firstrow = 6 For i = firstrow To 1 Step -1 If ActiveCell.Cells(i, "C").HasFormula Then Exit For End If Next End Sub funkioniert leider gar nicht - könnt ihr mir eventuell auch hier weiterhelfen? DANKE!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Birgit,
das ist ja ganz falsch :-)
Dein Code macht schon etwas - nichts. Es steht aber auch nichts im Code, was er machen soll! Du hast bei gefundener Zelle nur "Exit For" stehen ...
Übrigens, Activecell.Cell(x,y) gibt es nicht. Du referenzierst entweder ActiveCell, oder Cell(x,y).

Sub Formel_Finden()
Windows("Mappe1.xlsm").Activate
Worksheets("Tabelle1").Select
Dim firstrow As Long
Dim i As Long
firstrow = 6
For i = firstrow To 1 Step -1
If Cells(i, 3).HasFormula Then
Cells(i, 3).entirerow.value = Cells(i, "C").entirerow.value
Exit For
End If
Next
End Sub

Der Code geht in Tabelle1 in Mappe1 (heissen die wirklich so?), sucht dort in Spalte C (=3) von Zeile 6 rückwärts bis Zeile 1 (also insgesamt 6 Zeilen) nach einer Formel, und tauscht bei gefundener Formel die gesamte Zeile gegen ihre Werte aus.
Ich bezweifele ganz stark, dass es das ist was du möchtest. ABer es ist exakt das, wonach du gefragt hast!
Grüße,
Klaus M.vdT.

Sub aaa() Dim rngF As Range On Error Resume Next Set rngF = Range(Cells(6, 3), Cells(Rows.Count, 3).End(xlUp)).SpecialCells(xlCellTypeFormulas) _ .Cells(1) On Error GoTo 0 If Not rngF Is Nothing Then With rngF With .EntireRow .Copy .PasteSpecial xlPasteValues End With .Select End With Application.CutCopyMode = False End If End Sub

Hallo!
Erstmal vielen vielen Dank für die Antworten - ich habe mir den Code aus diversen Foren zusammengebastelt - anscheinend schaut er auch genauso aus :o)
Also was ich will:
Es soll ab der 6. Zeile die Spalte C bis Z durchsucht werden und die erste Zeile mit Formel gefunden werden (Sverweis) - in dieser gefunden Zeile soll dann der Sverweis durch Werte ersetzt werden.
Zur Hintergrund Info:
Es handelt sich um eine Lagerstandsdatei, bei der ich täglich die Werte mitschreibe - d.h. in Spalte A steht das Datum und in Spalte B der Wochentag. Nun ermittle ich mir aufgrund einer .csv Datei mittels den Sverweis die Werte des jeweiligen Tages. Da ich die .csv Datei täglich ersetze, muss ich den SVerweis als Wert überschreiben, damit die historischen Werte erhalten bleiben

Sub aaa() Dim rngF As Range On Error Resume Next Set rngF = Range("C:Z").SpecialCells(xlCellTypeFormulas).Cells(1) On Error GoTo 0 If Not rngF Is Nothing Then With rngF With .EntireRow .Copy .PasteSpecial xlPasteValues End With .Select End With Application.CutCopyMode = False End If End Sub

Sub Peroixde() Windows("LAGER Rohstoffe ab 01.01.2013 v2.xlsm").Activate Sheets("Peroxide").Select Dim rngF As Range On Error Resume Next Set rngF = Range("C:Z").SpecialCells(xlCellTypeFormulas).Cells(1) On Error GoTo 0 If Not rngF Is Nothing Then With rngF With .EntireRow .Copy .PasteSpecial xlPasteValues End With .Select End With Application.CutCopyMode = False End If End Sub

Beliebteste Forumthreads (12 Monate)

Erste Zeile mit Formel suchen, kopieren, Wert einf

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

349 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Erste Zeile mit Formel suchen, kopieren, Wert einf

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

349 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread