Hallo,
ich habe ein Problem an dem ich seit einer ganzen weile rätsel. Und zwar möchte ich in Tabellenblatt1 Messwerte filtern und diese gefilterten Werte in Tabelle 3 schreiben. Dazu kopiere ich mir die gesamte letzte Spalte aus Tabelle 1 in Tabelle 3. Bei den Werten die ich haben will steht ein genauer Wert drin und bei denen die ich nicht brauche habe ich eine "0" eingetragen. Nun möchte ich das es mir in Tabelle3 jede "0" löscht (die gesamte Zeile) damit ich wirklich nur die genauen Werte habe. Das ging in Tabelle1 ohne Probleme aber in Tabelle3 will das aus irgend einem Grund nicht funktionieren.
Zur Veranschaulichung hier nur den letzten Teil meines Codes da der gesamte ziemlich lang ist
Sheets("Tabelle3").Select
Sheets("Tabelle3").Range("A1").Select
ActiveCell.FormulaR1C1 = "Isolationswiderstand"
Sheets("Tabelle3").Range("A2").Select
ActiveCell.FormulaR1C1 = "=VALUE(Tabelle1!RC23)"
Sheets("Tabelle3").Range("A2").Select
Selection.AutoFill Destination:=Sheets("Tabelle3").Range("A2:A157"), Type:=xlFillDefault
Sheets("Tabelle3").Range("A2:A157").Select
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.HasFormula = True Then
Zelle.Formula = Application.ConvertFormula(Zelle.Formula, xlA1, , xlAbsolute)
End If
Next
Next
If Cells(i, "A").Value = 0# Then
Rows(i).EntireRow.Delete
End If
Sheets("Tabelle1").Select
End Sub
Kann mir jenamd erklären wie ich das ändern muss das ich mein Problem lösen kann?
|