Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Zellen in anderem Tabellenblatt löschen |
01.12.2020 13:31:02 |
Chris |
|
|
|
01.12.2020 14:10:07 |
Werner |
|
|
|
01.12.2020 14:23:04 |
Gast65629 |
|
|
|
01.12.2020 14:50:41 |
Werner |
|
|
|
01.12.2020 15:55:09 |
Werner |
|
|
|
02.12.2020 06:59:03 |
Chris |
|
|
Von:
Chris |
Datum:
01.12.2020 13:31:02 |
Views:
1067 |
Rating:
|
Antwort:
|
Thema:
VBA Zellen in anderem Tabellenblatt löschen |
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?
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
VBA Zellen in anderem Tabellenblatt löschen |
01.12.2020 13:31:02 |
Chris |
|
|
|
01.12.2020 14:10:07 |
Werner |
|
|
|
01.12.2020 14:23:04 |
Gast65629 |
|
|
|
01.12.2020 14:50:41 |
Werner |
|
|
|
01.12.2020 15:55:09 |
Werner |
|
|
|
02.12.2020 06:59:03 |
Chris |
|
|