N

Problem Makro
Namen von benannten Zellen löschen Sub Alle_Namen_löschen()
Dim Nm As Name
alle = MsgBox("Sollen alle Namen auf einmal gelöscht werden?" & _
Chr(10) & "bei Nein kann jeder einzeln gelöscht werden", vbYesNo)
If alle = vbYes Then
For Each Nm In Names
Nm.Delete
Next
Else
For Each Nm In Names
frage = MsgBox("Soll der Zellname " & Nm.Name & " gelöscht werden?", vbYesNo)
If frage = vbYes Then Nm.Delete
Next
End If
End Sub
nummerierte Namen dynamisch vergeben Sub NamenDynFestlegen()
Dim x, z, lZeile
'Ermittlung Anzahl Spalten
x = ActiveSheet.UsedRange.Columns.Count
For z = 1 To x
'Ermittlung letzte Zeile
lZeile = ActiveSheet.Cells(Rows.Count, z).End(xlUp).Row
'Dynamisch einen Nummerierten Namen vergeben
ActiveWorkbook.Names.Add Name:="Name" & z, RefersTo:= _
Range(ActiveSheet.Cells(2, z), ActiveSheet.Cells(lZeile, z))
Next z
End Sub
Nur Nachkommaanteil einer Zahl ermitteln Sub Nachkomma()
MsgBox [a1] - Int([a1])
End Sub


Meine aktuellsten Exceltipps finden Sie hier: