Wer kann mir Makro umändern
Olaf
meine VBA Kenntnisse sind noch gaaanz am Anfang und ich habe ein mittelgroßes Problem. Vor einiger Zeit wurde einer Kollegin von mir mit folgenden Makro geholfen.
Sub Zeilen_löschen_und_kopieren()
For r = 1 To Cells(65536, 9).End(xlUp).Row
With Sheets("Kunde")
z = .Cells(65536, 9).End(xlUp).Row + 1
s = Cells(r, 255).End(xlToLeft).Column
If Cells(r, 9) = "X" Then
Range(Cells(r, 1), Cells(r, s)).Cut Destination:=.Cells(z, 1)
Cells(r, 1).EntireRow.Delete
r = r - 1
End If
End With
Next r
End Sub
Das Tabellenblatt auf dem der User steht heißt Kunde, die Daten werden in das Tabellenblatt Altkunde reinkopiert. Das Makro funktioniert einwandfrei, wenn man im Tabellenblatt Kunde ist.
Wie muss das Makro geändert werden, wenn ich im Tabellenblatt Altkunde stehe und die Daten aus Kunde geholt werden? Hintergrund ist der, das mehrere User Zugriff auf die Datei haben, einige aber nur im Blatt Altkunde arbeiten.
Wer kann mir helfen?
Gruß
Olaf