VBA Zeilenümbrüche
11.05.2019 10:23:08
Michael K.
Guten Morgen zusammen,
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