Microsoft Excel

Herbers Excel/VBA-Archiv

ActiveSheets

Betrifft: ActiveSheets von: Rudolf Jacobs
Geschrieben am: 14.06.2014 19:08:48

Hallo!

Erbitte Hilfe!

Habe folgendes Problem:

Habe 3 Sheets im Workbook: Tabelle 1, Tabelle 2, Tabelle 3,
Ich möchte den Zelleninhalt aus F3 in Tabelle 2 und 3 in erste freie zelle in Tabelle 1 kopieren. Ich möchte später noch weitere Sheets hinzufügen, und sollte über ActiveSheets gelöst werden. Meine sämtlichen Auswertungen sind in Tabelle 1.

Vielen Dank schon mal im voraus!
Rudolf

  

Betrifft: AW: ActiveSheets von: Hajo_Zi
Geschrieben am: 14.06.2014 19:18:31

Hallo Rudolf,

schwierig wird es wohl die erste freie Zelle zu finden. Was hat Vorrang die Zeile oder die Spalte?

GrußformelHomepage


  

Betrifft: AW: ActiveSheets von: Rudolf Jacobs
Geschrieben am: 14.06.2014 19:52:24

Hallo Hajo!

Die erste freie Zeile in Spalte B im Tabellenblatt 1!

Viele Grüße
Rudolf


  

Betrifft: AW: ActiveSheets von: Hajo_Zi
Geschrieben am: 14.06.2014 20:01:53

Hallo Rudolf,

Option Explicit
Dim WsTabelle As Worksheet

Private Sub Aufheben()
    Dim WsTabelle As Worksheet
    Dim LoLetzte As Long
    With Worksheets("Tabelle1")
        For Each WsTabelle In Sheets
            If WsTabelle.Name <> "Tabelle1" Then
                LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), _
                    .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1
                .Cells(LoLetzte, 2) = WsTabelle.Range("F3")
            End If
        Next WsTabelle
    End With
End Sub
Gruß Hajo


  

Betrifft: AW: ActiveSheets von: Rudolf Jacobs
Geschrieben am: 14.06.2014 20:54:06

Hallo Hajo!

DAs Makro hilft mir schon einmal!

Es stellt jetzt nur noch folgendes Problem:
Das Makro greift auf das Feld F3 zu, sobald das Tablellenblatt vorhanden ist. Ich brauche es so, dass das Makro erst dann ausgeführt, sobald ich auf dem ActiveSheet bin.

Viele Grüße und Dank im voraus!
Rudolf


  

Betrifft: AW: ActiveSheets von: Hajo_Zi
Geschrieben am: 14.06.2014 21:04:01

Hallo Rudolf,

keine Ahnung was Du meinst.

Gruß Hajo