Letzte Spalte finden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Letzte Spalte finden
von: Stefan
Geschrieben am: 13.05.2002 - 18:53:04

Hallo,

bekomm das immer noch nicht hin. Also das aktuelle Problem:

Ich habe ein Tabellenblatt mit variabler Größe und möchte jetzt in der ersten Zeile in die erste leere Spalte was schreiben.
Ich hab das so versucht - scheint aber was nicht zu stimmen:

intLetzteSpalte = Worksheets("Tabelle 1").Cells(Columns.Count, 1).End(xlUp).Column + 1

Range(Cells(intLetzteSpalte, 1), Cells(intLetzteSpalte, 1)).Select

ActiveCell.FormulaR1C1 = "Textbeitrag"

nach oben   nach unten

Re: Letzte Spalte finden
von: Rolf, Lgh.
Geschrieben am: 13.05.2002 - 19:18:15

Hallo Stefan,
schau Dir das man an:

Sub LetzteZelle()
  Dim Reihe
  MsgBox Cells.SpecialCells(xlCellTypeLastCell).Address
  MsgBox Cells.SpecialCells(xlCellTypeLastCell).Count
  MsgBox Cells.SpecialCells(xlCellTypeLastCell).NumberFormatLocal
  Reihe = Cells.SpecialCells(xlCellTypeLastCell).Row
  MsgBox Reihe
  MsgBox Cells.SpecialCells(xlCellTypeLastCell).Offset(0, 1).Address
  MsgBox Cells.SpecialCells(xlCellTypeLastCell).Column
End Sub

Gruss Rolf
nach oben   nach unten

Re: Letzte Spalte finden
von: WernerB.
Geschrieben am: 13.05.2002 - 19:59:18

Hallo Stefan,

da hast Du offenbar u.a. bei der "Cells-Methode" Zeilen mit Spalten verwechselt.
So sollte es funktionieren:


Option Explicit
Sub LetzteSpalte()
Dim intLetzteSpalte As Integer
    intLetzteSpalte = Worksheets("Tabelle 1"). _
      Cells(1, Columns.Count).End(xlToLeft).Column + 1
    Cells(1, intLetzteSpalte).Value = "Textbeitrag"
End Sub

Viel Erfolg wünscht
WernerB.
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Letzte Spalte finden"