Makro zu Auswerten einer Tabelle

[tobi85]

hi
ja hab ich gemacht aber dann kommt es durcheinander kann das an einem anderen Makro oder Formel liegen welche in der Datei verbaut sind?
vg

[Jonas0806]

Hallo Tobias,

keine Ahnung, ich kenne die Makros nicht...

[tobi85]

Kann ich dir mal per pn die orginal datei schicken?

[Jonas0806]

Hallo Tobias,

bitte teile hier einfach den Code mit allen. Ich vermute immer noch, dass Dir ein Fehler bei der Anpassung unterlaufen ist.

Schicke allso einfach deinen aktuellen Code.

[tobi85]

Hallo

Private Sub CommandButton2_Click()

   Dim wks As Worksheet
   Dim i As Long
   
   For Each wks In ThisWorkbook.Worksheets
       If wks.CodeName <> "Coat" And wks.CodeName <> "Abrechnung" Then
           For i = 7 To 5 Step -1
               With wks
                   If .Cells(i, 4).Value > 0 Then
                       Tabelle6.Cells(Tabelle6.UsedRange.Rows.Count + 1, 1).Resize(1, 4) = .Cells(i, 1).Resize(1, 4).Value
                       .Rows(i).Delete
                   End If
               End With
           Next i
       End If
   Next wks
End Sub

[Jonas0806]

Hallo Tobias,

Du musst natürlich die Code-Namen der Sheets entsprechend anpassen. Das sind die Namen im VBE nicht die, die der User in der Mappe vergeben kann.

Darauf schriebst Du "Ja, habe ich gemacht". Du hast den Unterschied offensichtlich noch nicht verstanden. Schau Dir mal das hier an

https://excelmacromastery.com/vba-tutori..._Worksheet

[tobi85]

ich checke es nicht sorryyyy

also wo z.b. bei mir jetzt coat steht muss tabelle1 stehen oder?

[schauan]

Hallöchen,

ja, so sieht es aus.


Ein Blatt kann man entweder so:
Sheets("coat")
oder so
tabelle1
ansprechen, wenn das Blatt coat auch "intern" die tabelle1 ist.

[tobi85]

Hallo,

habs jetzte geändert und geht immer noch nicht......bin ich echt zublöd dazu oder wo könnte der fehler liegen

VG
Tobias

[Jonas0806]

Hallo,

schicke noch mal Deinen aktuellen Code.