Tabellenkalkulation

Markierung mehrerer Tabellenblätter auslesen

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, mich würde interessieren wie ich in VBA auslesen kann welche Tabellenblätter ich markiert habe? Wichtig es sind mehrere Tabellenblätter markiert. Und dann mich z.B. durch die Markierung bewegen um z.B. auf jedem der Markierten Blätter den Wert einer Zelle auszulesen. Schon mal vielen Dank für die Hilfe Grüße Tino

Antwort 1 von nighty

hi tino :)

wie gewuenscht :)

kleines beispiel :)

gruss nighty

Public Sub test()
    Dim myWorksheet As Object
     For Each myWorksheet In ThisWorkbook.Windows(1).SelectedSheets
      If myWorksheet.Index <> 1 Then
       Sheets(1).Cells(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1, 1) = Sheets(myWorksheet.Index).Cells(1, 1)
      End If
     Next
End Sub

Antwort 2 von powder

Vielen Dank,
werd ich bei Gelegenheit gleich testen.

Grüße Tino

Antwort 3 von nighty

hi tino :)

a1 wird aus allen selectierten sheets nach sheets(1) spalte a kopiert,automatisches abtasten auf ende.

gruss nighty

Antwort 4 von powder

Hi Nighty,
eine Frage noch welche Funktion erfüllt hierbei das public, es läuft doch auch ohne?

Grüße Tino

Antwort 5 von nighty

hi tino :)

wie ueblich bei mir ein ein geschlichener fehler,kein under mir fehlt die endcontrolle :))

du hast natuerlich recht ,sub MakroName reicht natuerlich :))

gruss nighty