AW: Excel problem
05.07.2014 13:52:52
Hajo_Zi
Hallo Robert,
DieseArbeirtsmappe
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt in der gesamten Datei.
Modul
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen.
Register Ansicht, Befehlsgruppe Makros, auf Makro klicken, Makros anzeigen, Makro auswählen und ausführen.
Tabelle
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.
' ************************************************************* _
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Private Sub _
Workbook_Open()
With Worksheets(" _
Tabelle10")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows. _
Count, 1).End(xlUp).Row, .Rows.Count) + 1
End With
If LoLetzte < 6 Then LoLetzte = 6
End Sub
' **************************************************************
' Modul: Tabelle7 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.WorksheetFunction.CountA(Range("A1:I1")) = 9 Then
Application.EnableEvents = False
Range("A1:I1").Copy Cells(LoLetzte, 1)
Range("A1:I1").ClearContents
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) + 1
Application.EnableEvents = True
End If
End Sub
' **************************************************************
' Modul: Modul4 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Public LoLetzte As Long
Code eingefügt mit: Excel Code Jeanie