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 |
