Hilfe --> letze Spalte

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 97
nach unten

Betrifft: Hilfe --> letze Spalte
von: Steffen
Geschrieben am: 04.05.2002 - 17:07:03

Hallo Leute, brauche bitte mal Eure Hilfe bei folgendem Problem:

Also:

Ich habe in einer Tabelle ungefähr 20 Spalten mit Werten.

Nun lasse ich über eine Userform die Spalten auswählen die man drucken möchte, mein Problem ist beim kopieren in ein anderes Blatt, weis ich ja nicht welche die letzte Spalte ist.

Mein Code bis jetzt:

If Bez_Spalte2.Value = True Then
Sheets("Quelle").Select
Columns("B:B").Copy
Sheets("Druck").Select

Columns("B:B").Select --> Hier müsste es so sein dass Excel die letzte gefüllte Spalte ermittelt --> weiter geht und dann einfügt.

ActiveSheet.Paste
End If


Danke für Eure Hilfe


Steffen

nach oben   nach unten

Re: Hilfe --> letze Spalte
von: Otto
Geschrieben am: 04.05.2002 - 17:23:37

Hallo Steffen,
in VBA kannst du folgendes tun:

Cells.SpecialCells(xlCellTypeLastCell)            'letzte Zelle
Cells.SpecialCells(xlCellTypeLastCell).Column     'letzte Spalte
cells.SpecialCells(xlCellTypeLastCell).Row        'letzte Zeile

Wenn du damit nicht klar kommst, schick mir bitte deine Mappe mit demo Daten. Ich schaue sie mir an.

Gruß Otto

nach oben   nach unten

Re: Hilfe --> letze Spalte
von: WernerB.
Geschrieben am: 04.05.2002 - 17:41:42

Hallo Steffen,

wenn man die letzte Spalte mit Inhalt in der ersten Zeile ermitteln kann (letzte Spalte hat in Zeile 1 immer einen Inhalt), dann sollte dies funktionieren:


Option Explicit
Sub SpalteKopieren()
Dim laC As Integer
    If Bez_Spalte2.Value = True Then
      Sheets("Quelle").Select
      Columns("B:B").Copy
      Sheets("Druck").Select
      laC = Cells(1, Columns.Count).End(xlToLeft).Column
      Columns(laC + 1).Select
      ActiveSheet.Paste
      Application.CutCopyMode = False
    End If
End Sub

Viel Erfolg wünscht
WernerB.
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Hilfe --> letze Spalte "