Скачать или смотреть Auf dem dritten Blatt wird eine Kopie der Datenbank erstellt Excel VBA

   • 1Befehlszeichen für „Entwurfsmodus“ in die...  






''''''28'28'28'28'28'28'28'28
On Error Resume Next
Dim ††† As Long
AAAA2.Activate
AAAA2.AutoFilterMode = False
AAAA2.[h1].Select
Cells.Select
Selection.ClearContents
††† = AAAA.Cells(1000000, 1).End(xlUp).Row
AAAA.Activate
ActiveSheet.Range(Cells(1, 1), Cells(†††, 5)).Select
Selection.Copy
AAAA2.Activate
AAAA2.Cells(1, 1).Select
AAAA2.Paste
AAAA2.Cells(1, 1).Select
Application.CutCopyMode = False
ActiveSheet.Name = AAAA.[g1]
For ††† = 1 To 5
ActiveSheet.Cells(Rows.Count, †††).EntireColumn.AutoFit
Next †††
With ActiveSheet.PageSetup
.RightHeader = ActiveSheet.Name & ": &P/&N"
End With
UserForm1.Hide
Exit Sub
''''''28'28'28'28'28'28'28'28




Auf dem dritten Blatt wird eine Kopie der Datenbank erstellt. Excel VBA.

Doppelklicken Sie im VBA-Editor mit der linken Maustaste auf CommandButton2.

Geben Sie den Code aus der Videobeschreibung in die Prozedur „Click“ ein.

Öffnen Sie das Arbeitsblatt und anschließend das Formular. Auf dem dritten Blatt wird eine Kopie der Datenbank erstellt.