cellen automatisch leeg maken

Ik heb verschillende excel bestanden waarin de eerste kolom overal de naam bevat en de andere kolommen gevarieerde gegevens bevatten betrekkende op de naam van de eerste kolom. 1 bestand is de originele lijst van namen en de andere bestanden kopiëren steeds de namen van de originele lijst.
Mijn vraag:
Als ik in de originele lijst de naam verwijder, is ook in de andere bestanden de naam verwijderd (omdat die gekopieerd is van de originele lijst) maar al de kolommen die achter die naam staan zijn niet verdwenen. dus moet ik nu al die andere bestanden ook gaan openen voor die andere kolommen ook leeg te maken.
Bestaat er geen formule die er voor zorgt dat als de eerste kolom leeg is, de daarop volgende kolommen ook leeg zijn?
Alvast bedankt

Allereerst: welkom op dit forum. Het helpt enorm als je een voorbeeldbestand plaats. Dat hoeft niet het echte bestand te zijn, maar een vergelijkbaar bestand met Jip en Janneke informatie.

Wat je misschien kan helpen:

cellen leeg maken

hierbij voeg ik het bestand
dus als ik op blad1 cel A2 leeg maak
dan gaat automatisch in blad2 cel A2 ook leeg
Maar ik had graag gehad dat blad2 cel B2 en cel C2 ook automatisch leeg gemaakt worden
In blad2 cel B2 en cel C2 kan ik geen formule schrijven want deze cellen worden apart ingevuld
Ik dacht aan: =ALS(Blad1!A2="";Blad1!B5="";Blad1!A2) maar dat lukt niet
Bekijk bijlage Map1.xlsx

Deze in blad 2 cel A2 en doortrekken naar beneden:


Deze in blad 2 cel B2 en doortrekken naar beneden:

De waarde in rood moet je wel per cel aanpassen of een verwijzing gebruiken

Deze in blad 2 cel cel C2 en doortrekken naar beneden"
Ook hier geldt dat je de waarde in rood per cel moet aanpassen of een verwijzing gebruiken.

Over welke bestanden heb je het? En waarom steekt het zo in elkaar? 1 keer (per abuis) sorteren en alle bestanden kloppen niet meer.

Als er vaste waarden in staan dan kan het alleen met VBA. In de module van Blad1

Ik heb het kunnen oplossen
Alvast bedankt voor jullie hulp
Dit is de oplossing
Sub Picture1_Click()
Dim aaz As String 'nummer van de rij
Dim bz As String 'is de cel van de naam
Dim cz As String 'is naam van bestand + tabblad
Dim dz As String 'is letter a
Dim ez As String ' is letter b
Dim fz As String 'is letter c

dz = "a"
ez = "b"
fz = "c"
aaz = "2" 'nummer van de rij

For x = 1 To 4 'is de lengte van de tabel
bz = Range(dz + aaz).Cells
If bz = "" Or bz = "0" Then
cz = "[tabel1.xlsm]Blad1"
Range(cz + "!" + ez + aaz).ClearContents
Range(cz + "!" + fz + aaz).ClearContents
cz = "[tabel1.xlsm]Blad2"
Range(cz + "!" + ez + aaz).ClearContents
Range(cz + "!" + fz + aaz).ClearContents
cz = "[tabel2.xlsm]Blad1"
Range(cz + "!" + ez + aaz).ClearContents
Range(cz + "!" + fz + aaz).ClearContents
End If
aaz = aaz + 1
Next x

End Sub

Ingewikkelder kon je het niet maken?

Tja, zulke mensen zitten er helaas ook tussen.
Geen reactie waarom die code van jou wel/niet goed is @VenA.