Thema Datum  Von Nutzer Rating
Antwort
21.03.2022 09:35:10 Tim
NotSolved
Blau VBA Select Tabelle1 oder Tabelle 2....
 21.03.2022 12:48:28 Gast20248
NotSolved
21.03.2022 15:18:34 Tim
NotSolved

Ansicht des Beitrags:
Von:
Gast20248		 Datum:
21.03.2022 12:48:28		 Views:
660		 Rating:
     
Antwort:
  Ja
Thema:
VBA Select Tabelle1 oder Tabelle 2....
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim wks As Excel.Worksheet
 
For Each wks In ThisWorkbook.Worksheets
  If StrComp(Left$(wks.Name, 7), "Tabelle", vbTextCompare) = 0 Then
    If IsNumeric(Mid$(wks.Name, 8)) Then
      Exit For
    End If
  End If
Next
 
If wks Is Nothing Then
  Exit Sub
End If
 
Call wks.Range("I2:K7").Copy
 
Set wkb = Workbooks.Open("C:\Übergabebeleg.xls")
Call wkb.Worksheets(1).Range("A26").Paste
 
Application.CutCopyMode = False

Die For-Schleife geht alle Blätter der Reihe nach durch und prüft, ob der Name mit "Tabelle" anfängt und danach ein Ausdruck folgt, der sich als Zahl auswerten lässt - es liefert also das erste Tabellenblatt, welches diesen zwei Kriterien entspricht.

Dann wird der Bereich I2:K7 aus jener Tabelle wks kopiert,

dann wird eine Mappe wkb geöffnet,

und in der Mappe, auf dem ersten Tabellenblatt wkb.Worksheets(1), wird der zuvor kopierte Bereich schlussendlich bei A26 beginnend eingefügt.

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.03.2022 09:35:10 Tim
NotSolved
Blau VBA Select Tabelle1 oder Tabelle 2....
 21.03.2022 12:48:28 Gast20248
NotSolved
21.03.2022 15:18:34 Tim
NotSolved