AW: Zellinhalte löschen wenn in Spalte Text
13.01.2014 14:24:07
fcs
Hallo Daniel,
hier ein Ansatz für ein Makro, wie man es umsetzen könnte.
Die variablen Werte werden via Zellauswahl in Inputboxen ausgewählt oder vom Makro berechnet.
Das Makro fügst du in einem allgemeinen Modul der Datei mit den Formeln ein oder in deiner persönlichem Makroarbeitsmappe.
Gruß
Franz
Sub Aufbereiten_Zellen_mit_Text()
Dim wks As Worksheet
Dim lngZeile As Long, lngZeile_L
Dim lngSpalte As Long, lngSpalte_L As Long
Dim varEingabe As Range
On Error GoTo Fehler
Set wks = ActiveSheet
'Auswahl der 1. zu prüfenden Zelle
Set varEingabe = Application.InputBox( _
"Bitte 1. Zelle auswählen, die geprüft werden soll", _
Title:="Aufbereiten Zeilen mit Text", _
Default:=ActiveCell.Address, Type:=8)
lngSpalte = varEingabe.Column 'Spalte die geprüft werden soll
lngZeile1 = varEingabe.Row 'Zeile ab der geprüft werden soll
'Auswahl der Spalte bis zu der gelöscht werden soll
Auswahl_Spalte_L:
Set varEingabe = Application.InputBox( _
"Bitte Zelle in Spalte auswählen bis zu der gelöscht werden soll", _
Title:="Aufbereiten Zeilen mit Text", _
Default:=varEingabe.Offset(0, 1).Address, Type:=8)
lngSpalte_L = varEingabe.Column
If lngSpalte_L "" Then
.Range(.Cells(lngZeile, lngSpalte + 1), _
.Cells(lngZeile, lngSpalte_L)).ClearContents
End If
Next
'Zellen im Prüfbereich ohne Zeilenumbruch formatieren
With .Range(.Cells(lngZeile1, lngSpalte), .Cells(lngZeile_L, lngSpalte))
.WrapText = False
End With
End With
Application.ScreenUpdating = True
Fehler:
With Err
Select Case .Number
Case 0
'Alles OK
Case 424
'Zellauswahl wurde abgebrochen
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub