Ich schreibe ein Excel-Programm, um zu verfolgen, wo sich Werkzeuge an unserem Arbeitsplatz befinden. Ich versuche, Daten von einer Seite auf eine andere zu verschieben. Ich habe VLookup, um auf die Informationen zuzugreifen, möchte aber den Inhalt der anderen Seite löschen können, sobald die Details gefunden wurden. Das Problem, das ich habe, ist, eine Formel in den VBA-Code zu schreiben (da dies eine Schaltfläche ist, die alles aktiviert), die die Zeile finden und dann den Inhalt dieser Zeile löschen kann. Ich habe versucht, eine Übereinstimmungsformel in eine zufällige Zelle einzufügen, um die Zeile zu finden, und habe versucht, diese automatisch in den Bereich einzugeben. Weiß jemand, wie das möglich ist? Das habe ich versucht. X1 hat eine Übereinstimmungsformel in dieser Zelle.
Blätter("Laufendes.Blatt").Bereich("A"Laufendes.Blatt").Bereich("X1").Wert).Inhalt löschen
Antwort1
Fast geschafft. Versuchen Sie es
Sheets("Running.Sheet").Range("A" & Sheets("Running.Sheet").Range("X1").Value).ClearContents
Sie können den Code etwas übersichtlicher gestalten, indem Sie Variablen für das Blatt deklarieren, den Blattnamen der Variablen zuweisen und dann die Variable verwenden. So:
Dim ws As Worksheet
Set ws = Sheets("Running.Sheet")
ws.Range("A" & ws.Range("X1").Value).ClearContents
Obwohl die Einrichtung etwas aufwändiger ist, wird die Effizienz gesteigert, je häufiger Sie auf dasselbe Blatt zurückgreifen müssen.