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


 

Letzte Änderungen auf dieser Seite am 29.10.2006

Valid XHTML 1.0 Transitional    Valid CSS!

Berti's ExcelABC mit vielen Tipps und Tricks rund um Excel und die Makros bzw. VBA

Seitenanfang

A B C D E F G H i J K L M N O P Q R S T U V W X Y Z
Excel: 39  |  Formeln: 1  |  Funktionen: 8  |  Makro / VBA: 40  |  Hintergrundinfos: 7  |  Beispieldateien: 11  |  Komplettlösungen: 1