VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
VBA Zellen in anderem Tabellenblatt löschen	01.12.2020 13:31:02	Chris
VBA Zellen in anderem Tabellenblatt löschen	01.12.2020 14:10:07	Werner
VBA Zellen in anderem Tabellenblatt löschen	01.12.2020 14:23:04	Gast65629
VBA Zellen in anderem Tabellenblatt löschen	01.12.2020 14:50:41	Werner
ich bin glaub noch nicht richtig....	01.12.2020 15:55:09	Werner
ich bin glaub noch nicht richtig....	02.12.2020 06:59:03	Chris

Ansicht des Beitrags:

Von:
Chris

Datum:
01.12.2020 13:31:02

Views:
1547

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?

Ihre Antwort

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:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

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
VBA Zellen in anderem Tabellenblatt löschen	01.12.2020 14:10:07	Werner
VBA Zellen in anderem Tabellenblatt löschen	01.12.2020 14:23:04	Gast65629
VBA Zellen in anderem Tabellenblatt löschen	01.12.2020 14:50:41	Werner
ich bin glaub noch nicht richtig....	01.12.2020 15:55:09	Werner
ich bin glaub noch nicht richtig....	02.12.2020 06:59:03	Chris