title image


Smiley Text in Spalte A ändern, wenn in B Funktion "=TEILERGEBNIS(" steht
Hallo Jens,



ich habe mal auf die schnelle eine sehr triviale - wenn auch nicht professionelle - Lösung erstellt. Kopiere das folgende Makro in den VBA-Editor und starte es (bitte zuerst an einer KOPIE Deines Tabellenblattes !!) :







Sub ZwiSumTextÄndern()

    'Ändert in Spalte A den Text, wenn in Spalte B die Funktion "=TEILERGEBNIS" gefunden wurde

    For z = 1 To[B65536].End(xlUp).Row

        If Cells(z, 2).Formula Like "=SUBTOTAL(*" Then Cells(z, 1) = "Seite " & Cells(z, 1)

    Next

End Sub






Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: