© Klaus-Martin Buss
www.kmbuss.de
Diese Seite ist Teil eines Framesets. Sollte links kein Navigationsmenü angezeigt
werden, bitte
hier klicken ...
Häufig verwendete / in Foren angefragte Codefragmente
Ermittlung Zeilennummer
erste freie Zeile in Spalte A
Dim lRow As Long
lRow = Range(Cells(1, 1), Cells(Rows.Count, 1)).Find(What:="").Row
Zellinhalte kopieren
Range("A1:A4").Copy Range("C1")
Formeln kopieren und als
Werte einfügen
Sheets(“A”).Range("A1:A4").Copy
Sheets(“B”).Range("C1:C4").PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Autofilter auch bei
Blattschutz
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
Datum und Uhrzeit in Zelle
“stempeln”
ActiveCell = Date & ", " & Time
Inputbox durch
Mausmarkierung füllen
Dim r As Range
Set r = Application.InputBox("Bereich markieren
… ", Type:=8)
Mauszeiger auf dem
Bildschirm positionieren
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long,
ByVal Y As Long) As Long
Sub Cursor1()
SetCursorPos 540, 350 'hier die Bildschirmposition anpassen, 1.Wert links /
rechts, 2. Wert oben / unten
End Sub
Schliessen einer Userform
mit Klick auf „X“ verhindern
If CloseMode = vbFormControlMenu Then Cancel = True
Autofilter zurücksetzen
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Name des Standarddruckers auslesen
MsgBox Application.ActivePrinter
Focus nach Aufruf einer UserForm zurück auf die Arbeitsmappe
AppActivate Application.Caption
Positionieren einer UserForm
UserForm1.StartupPosition = 0
' Startposition der UserForm
UserForm1.Left = ActiveWindow.Width - UserForm7.Width - 18
' Verschieben nach oben / unten
UserForm1.Top = ActiveWindow.Height - UserForm7.Height + 64
' Verschieben nach oben / unten