---

Hallo Leute!

Ich habe da ein kleines Problem.
Ich möchte von einer Tabelle zwei Spalten auslesen und in eine 2. Tabelle in eine Spalte schreiben. Mit folgendem Code funktioniert das grundsätzlich, wenn in den zu vergleichenden Zellen eine Zahl steht.
Das Problem ist, dass in den Spalten "Inhalt" eine Formel steht und diese mit dem Operator <> nicht verglichen werden kann.
Was kann ich noch machen 

Code:

---

Sub tt()
    Set TB1 = Sheets("Pirkheim_Aderbeschriftung_20")
    Set TB2 = Sheets("Druckvorlage")
    TB2.Range("A3:B65536").Clear
    Startnr = 4 'Erste Zeile mit Daten (wegen ?berschrift)
    RR = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile mit Daten
    Z = 3
    For I = Startnr To RR
        For J = 15 To 16
            Inhalt = TB1.Cells(I, J)
            Inhalt1 = TB1.Cells(I, J + 3)
            If Inhalt <> "" Then
                TB2.Cells(Z, 2).Value = Inhalt
                TB2.Cells(Z, 1).Value = Inhalt1
                Z = Z + 1
            End If
        Next J
       
       
    Next
    TB2.Activate
End Sub

---

------------------
lG Falki

Bei ePLAN ist vieles "Einstellungssache"  !!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

versuch es mal mit "Range().Value" statt "Cells().Value".

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

VersuchSortierung.zip

Hallo Rick!

Danke, aber das funktioniert auch nicht. Wenn ich die Zeile
'TB2.Cells(Z, 2).Value = Inhalt
auskommentiere, funktioniert es, aber es werden dann eben die Zellen O u. P nicht kopiert.

Anbei die Excel-Datei...

------------------
lG Falki

Bei ePLAN ist vieles "Einstellungssache"  !!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

teste mal:

Code:

---

Option Explicit

Sub tt()

    Dim TB1 As Worksheet, TB2 As Worksheet
    Dim Startnr As Long, RR As Long, Z As Long
    Dim I As Long, J As Long
    Dim Inhalt As String, Inhalt1 As String
   
    Set TB1 = Sheets("Pirkheim_Aderbeschriftung_20")
    Set TB2 = Sheets("Druckvorlage")
    TB2.Range("A3:B65536").Clear
    Startnr = 4 'Erste Zeile mit Daten (wegen Überschrift)
    RR = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile mit Daten
    Z = 3
    For I = Startnr To RR
        For J = 15 To 16
            Inhalt = TB1.Cells(I, J).Value
            Inhalt1 = TB1.Cells(I, J + 3).Value
            If Inhalt <> "" Then
                TB2.Cells(Z, 2).Value = "'" & Inhalt
                TB2.Cells(Z, 1).Value = "'" & Inhalt1
                Z = Z + 1
            End If
        Next J
    Next
    TB2.Activate
    Set TB1 = Nothing
    Set TB2 = Nothing
End Sub

---

------------------
Gruß
Nepumuk 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nepumuk!

Danke, funktioniert einwandfrei! 
Das mit dem Apostroph ist die beste Lösung, so weit hab ich nicht gedacht.

Naja, das Gute liegt so nah... 

Danke!!!

------------------
lG Falki

Bei ePLAN ist vieles "Einstellungssache"  !!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

gelöscht, da gleiche Antwort wie Nepumuk
Zu schnell geantwortet - nicht alles gelesen 

[Diese Nachricht wurde von KlaK am 04. Feb. 2020 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP