Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellen anlegen und Spalten einfügen
 24.07.2009 10:50:14 Leon
NotSolved
26.07.2009 09:38:37 Holger
NotSolved

Ansicht des Beitrags:
Von:
Leon		 Datum:
24.07.2009 10:50:14		 Views:
1714		 Rating:
     
Antwort:
  Ja
Thema:
Tabellen anlegen und Spalten einfügen
Hi,
habe halb mit Makro-Rekorder und halb mit einem VBA-Buch folgendes Makro erstellt:
Sub Tabellen_Einfügen()
Dim intZeile As Integer
intZeile = 7

Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Alles"

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Spalte1&7"

Sheets("Alles").Select
Cells(intZeile, 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Spalte1&7").Select
Cells(intZeile - 4, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Sheets("Alles").Select
Cells(intZeile, 7).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Spalte1&7").Select
Cells(intZeile - 4, 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Columns("A:B").EntireColumn.EntireColumn.AutoFit

‘Nächstes Tabellenblatt Spalten1, 5 und 8 usw.
End Sub

Es funktioniert auch soweit ganz gut, wird nur mit jedem neuen Tabellenblatt immer länger. (Ich habe hier nur stellvertretend das erste Tabellenblatt aufgelistet.) Da gibt es doch bestimmt eine Möglichkeit, das Ganze effektiver zu gestalten.
Anschließend sollen Tabelle 2, 4 und 5 mit einem Makro1 ausgewertet werden und Tabelle 3 und 6 mit Makro2. Diese sind schon erstellt, ich weiß nur noch nicht, wie ich sie im aktuellen Programm implementiere.
Für jede Hilfe bin ich dankbar.

Leon

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:



  • 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
Rot Tabellen anlegen und Spalten einfügen
 24.07.2009 10:50:14 Leon
NotSolved
26.07.2009 09:38:37 Holger
NotSolved