L

Problem Makro
Letzte Zeile der Tabelle einer bestimmten Spalte ermitteln Sub letzteZeile()
lZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lZeile
End Sub
Letzte Zeile aller Spalten ermitteln Sub letzteZeileGesamt()
lZeile2 = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
MsgBox lZeile2
End Sub
Datum der letzten Änderung anzeigen ' von Frank Arendt-Theilen:

'Makro in "DieseArbeitsmappe" eintragen
' Trägt das Speicherdatum in Tabelle1!A1 ein
Private Sub Workbook_BeforeSave _
  (ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Worksheets("Tabelle1").Range("A1").Value = _
    Format(Date, "dd.mm.yyyy")
End Sub

'Für das Anzeigen der Letzten Änderung erstellst du ein weiteres Makro in demselben Modul wie oben:

Private Sub Workbook_Open()
  MsgBox "Letzte Änderung am: " & _
    Worksheets("Tabelle1").Range("A1").Value
End Sub

Leerzeilen löschen
Hinweis:
Das Makro läuft von unten nach oben, da sonst Rücksprünge erforderlich wären
Sub Leerzeilen_löschen()
Dim TB As Worksheet
Dim i%, lZeile%
Set TB = Worksheets(1)
lZeile = TB.Cells(Rows.Count, 1).End(xlUp).Row
For i = lZeile To 1 Step -1
If IsEmpty(TB.Cells(i, 1)) Or _
TB.Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next i
End Sub
Lottozahlen Sub Lotto()
Dim DatR, maxAnz, maxZahl, Zahl
maxAnz = 6 'Anzahl einzelner Zahlen
maxZahl = 49 'Größte Zahl
DatR = 5 'Anzahl Datenreihen
[a2:z11] = "" 'Datenbereich Löschen
For d = 1 To DatR
For i = 1 To maxAnz
neu:
Randomize ' Zufallszahlengenerator initialisieren.
Zahl = Int((maxZahl * Rnd) + 1)
'Kontrolle ob doppelt
For x = 1 To i
If Zahl = Cells(x, d * 2) Then GoTo neu 'falls doppelt
Next x
Cells(x, d * 2) = Zahl
Next i
Next d
End Sub


Meine aktuellsten Exceltipps finden Sie hier: