Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zeilen name in celle

zeilen name in celle
kocky
Hallo Ihr,
brauche mal eure hilfe.
Wie bekomme ich den Zeilennamen mit vba in eine celle geschrieben? Habe es so probiert
.Offset(1, 64) = zeile()
aber das klappt nicht. Hat jemanseine Ideeß
Gruß&Dank
kocky

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: zeilen name in celle
26.10.2007 22:24:24
Thomas
Hallo,
z.b so:
Dim zeile
zeile = ActiveCell.Row
ActiveCell = "Zeile " & zeile
Gruß Thomas

AW: zeilen name in celle
kocky
Hallo,
klappt nicht bekomme immer eine "1".
Bilde mal dengesamten code ab (mit deiner änderung)

Private Sub cmdSave_Click()
Dim Zeile
With wksbew_dat.Cells(wksbew_dat.Rows.Count, 1).End(xlUp)
Zeile = ActiveCell.Row
MsgBox Zeile
.Offset(1, 0) = TextBox1.Value 'Name
.Offset(1, 2) = Zeile
End With
sort1
Set wksbew_dat = Nothing
ActiveWorkbook.Save
End Sub


Gruß&Dank
kocky

.Activate eingesetzt! Jetzt gehts!
kocky
HAllo,
zur vollständigkeit hier der funktionierende Code. Danke nochmals

Private Sub cmdSave_Click()
Dim Zeile
With wksbew_dat.Cells(wksbew_dat.Rows.Count, 1).End(xlUp)
.Activate
Zeile = ActiveCell.Row
MsgBox Zeile
.Offset(1, 0) = TextBox1.Value 'Name
.Offset(1, 2) = Zeile
End With
sort1
Set wksbew_dat = Nothing
ActiveWorkbook.Save
End Sub


Gruß&Dank
kocky

Anzeige
AW: .Activate eingesetzt! Jetzt gehts!
26.10.2007 23:00:00
Thomas
Ja, oder so ;o)
Das entspricht dann aber wksbew_dat.Rows.Count
ohne +1
Tschüß Thomas

AW: zeilen name in celle
26.10.2007 22:58:00
Thomas
Zeile = activecell.row geht nicht, weil sicher eine Zelle in der ersten Zeile ausgewählt sein wird. Ich denke das es so gehen könnte:
Zeile = wksbew_dat.Rows.Count + 1
Das entspricht dem Offset(1, x).

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige