VBA Zeilenümbrüche
11.05.2019 10:23:08
Michael
ich möchte gerne per VBA Zeilenumbrüche im Arbeitsblatt Cockpit rückgängig machen, die nicht benötigt werden.
Problem ist, dass wenn neue Daten ins Arbeitsblatt eingelesen werden die Zeilenumbrüche von den vorherigen Einträgen beibehalten werden.
Wie kann ich dies in diesem Code einbauen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim bn As String, wert As String
Dim lz As Long
Dim Blatt As Worksheet
If Target.Address = "$B$8" Or Target.Address = "$B$10" Then
Range("B12").Calculate
bn = Range("B8").Text
On Error Resume Next
Set Blatt = Worksheets(bn)
On Error GoTo 0
If Blatt Is Nothing Then Exit Sub
lz = Sheets(bn).Cells(Rows.Count, 1).End(xlUp).Row
wert = Range("B12").Text
If WorksheetFunction.CountIf(Sheets(bn).Columns(5), wert) = 0 Then
Range("A11").Value = "Abteilung nicht gefunden!"
MsgBox "Noch keine Daten f?r dieses Jahr vorhanden! Bitte nicht vergessen mit F9 _
_
_
neu zu berechnen, dies kann einige Zeit in Anspruch nehmen!"
Exit Sub
Else
MsgBox "Bitte nicht vergessen mit Taste F9 neu zu berechnen,dies kann einige Zeit _
_
_
in Anspruch nehmen!"
Range("A11").Value = ""
End If
If Sheets(bn).ProtectContents = True Then Sheets(bn).Unprotect Password:="Test"
If Sheets(bn).FilterMode Then Sheets(bn).ShowAllData
Sheets(bn).Range("A8:AL" & lz).AutoFilter Field:=5, Criteria1:=wert
Sheets(bn).Rows(9).Hidden = True
Sheets(bn).Protect Password:="Mikka32", UserInterfaceOnly:=True, AllowFiltering:= _
_
_
True
End If
End Sub
Viele Grüße
Michael