AW: Wenn bestimmter Text in Spalte
09.12.2021 18:25:21
Maik
Es ist aber ein ganz anderes Thema und ich weiß nicht ob man dazu einen Neuen Beitrag anlegen muss.
Ich schildere es dir einfach mal:
Ich erstelle derzeit ein paar Vorlagen, dazu habe ich mir ein paar codes zusammengebastelt (was ich so gefunden habe)
1. Ich möchte gern die Arbeitsblätter Passwort schützen und dabei bestimmte Bereiche (Zellen) sperren als auch freigeben.
2. Soll dann ein Macro laufen was ich über einen Button anspreche. Der Button hat die Funktion, dass aus einer Spalte mit werten (Die vorher aus einem Programm in diese Tabelle kopiert werden) die Einheiten entfern werden sollen. Aktuell macht er das für jedes Arbeitsblatt. Benötigt wird es nur in 2.
Das Macro funktioniert auch soweit super, allerdings kann man das bestimmt besser lösen um auch die Laufzeit (die derzeit bisschen lang ist) zu verkürzen.
Aktuell läuft es von Zeile 4 bist 300, soll aber nach mglk. bis 500 laufen aber halt nicht so lang.
Vielleicht kannst du mir ja dabei helfen.
Hier der Code des Moduls:
Sub ZeichenketteErsetzen()
'Bestimmte Zeichen (Buchstaben oder Zahlen) suchen und diese durch definierte ersetzen _
Dim xSh As Worksheet
Application.ScreenUpdating = False 'verhindert das umspringen der Blätter beim Ausführen des Macro _
For Each xSh In Worksheets
xSh.Unprotect Password:="Test"
xSh.Select
Call RunCode
xSh.Protect Password:="Test"
Next
Call Meldung_1 'ruft Meldung aus Modul "Meldungen ab _
''Application.ScreenUpdating = True _
End Sub
Sub RunCode()
Dim i As Integer
For i = 4 To 300
Cells(i, 3).Value = Replace(Cells(i, 3).Value, "mm", "")
Cells(i, 3).Value = Replace(Cells(i, 3).Value, "oE", "")
Cells(i, 3).Value = Replace(Cells(i, 3).Value, "oe", "")
Cells(i, 3).Value = Replace(Cells(i, 3).Value, "m", "")
Next i
End Sub
VG Maik