Sub ZeichenketteUmwandeln() Dim strTelefonnr As String, dblTelefonnr As Double Dim zeile As Integer, i As Integer 'Die zu konvertierenden Zeilen zählen zeile = Range("A1", Range("A1").End(xlDown)).Rows.Count 'Zellen durchlaufen und jede in eine Zahl umwandeln For i = 0 To zeile ...
Range("A:A").Clear For Each ws In Worksheets ActiveSheet.Cells(x, 1) = ws.Name x = x + 1 Next ws End SubAlle Arbeitsblätter einblendenDieses Makro blendet alle Arbeitsblätter ein.'Alle Arbeitsblätter einblenden Sub AlleArbeitsblaetterEinblenden() Dim ws As Worksheet For Each ...
SubGeheZuAndererZelleInAnderemArbeitsblattInDerselbenArbeitsmappe()ActiveSheet.Hyperlinks.Add Range("A1"),Address:="",SubAddress:="'"&Tabelle2.Name&"'!B2",_TextToDisplay:="Klicken Sie hier, um zu Tabelle2, Zelle B2 der gleichen Arbeitsmappe zu gelangen"EndSub ...