Spalten abhängig von Überschrift kopieren.

11/03/2010 - 11:50 von Der_Soern | Report spam
Ich habe mit Hilfe von Andreas Killer eine Prozedur die mir aus einem
Tabellenblatt die Überschriften als Userform ausgibt und dann diese (je
nachdem ob ich sie auswàhle oder nicht) auch in ein neues Tabellenblatt
schreibt.

Ich hab jetzt versucht eine Prozedur tzu schreiben die auf dem neues Blatt
die Überschriften einliest, die passende im ersten Blatt findet und die
dazugehörige Spalte komplett übernimmt.

Quasi so:

Ausgangsblatt

Überschrift: a b c
Inhalt: 1 2 3
7 4 3

Momentanes Ergebnis wenn ich Spalte b und c auswàhle:

b c

Was ich will:

b c
2 3
4 3

Hoffe ich konnte es verstàndlich machen.

Zweite Frage:
Ich habe eine Prozedur hinter einem Butten. Dieser soll automatisch
unterhalb der Daten im neuen Blatt eingefügt werden. Geht das?
Ich bekomme ihn im Moment nur über eine Vorlage auf das Blatt(ich habe ein
Vorlagensheet mit Eigenschaft hide dass ich automatisch immer als letzes
Blatt einreihe. So hat er aber immer die gleiche Position), aber nicht
abhàngig zur Füllmenge der Tabelle (wenn ich das mal so nennen möchte)

Wàre super wenn mir jemand helfen könnte
 

Lesen sie die antworten

#1 Andreas Killer
11/03/2010 - 12:31 | Warnen spam
On 11 Mrz., 11:50, Der_Soern
wrote:

Ich hab jetzt versucht eine Prozedur tzu schreiben die auf dem neues Blatt
die Überschriften einliest, die passende im ersten Blatt findet und die
dazugehörige Spalte komplett übernimmt.



Sub Kopiere_Spalten()
Dim X As Long, C As Range

'Die neue Tabelle
Sheets("Tabelle2").Select
'Die alte Tabelle
With Sheets("Tabelle1")
'Durchlauf alle Spalten der neuen Tabelle
For X = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
'Zelle leer?
If Not IsEmpty(Cells(1, X)) Then
'Nein, suche in Zeile 1 der alten Tabelle
Set C = .Rows(1).Find(Cells(1, X), LookAt:=xlWhole)
'Gefunden?
If Not C Is Nothing Then
'Ja, Spalte kopieren
C.EntireColumn.Copy Cells(1, X)
End If
End If
Next
End With
End Sub

Zweite Frage:
Ich habe eine Prozedur hinter einem Butten. Dieser soll automatisch
unterhalb der Daten im neuen Blatt eingefügt werden. Geht das?


Naja, geht schon. Aber wenn's ein CommandButton ist, dann wàre dann
auch noch der Code zu kopieren und dann wird's etwas vertrackt, ich
meine das der Code dann nicht sofort làuft, außerdem muss
sichergestellt sein das die Namen zueinander passen

Kopier lieber das ganze Blatt und sag dann Cells.ClearContents, dann
sind die Inhalte weg, aber der Button ist noch da und funktioniert.

Andreas.

Ähnliche fragen