Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spaltenbezeichnung in VBA auslesen

Spaltenbezeichnung in VBA auslesen
26.07.2005 10:14:43
Steffen
Hallo !
Folgendes Problem:
ich brauche zu einer Tabelle ein Änderungsprotokoll.
Mittels 2 Nachrichten aus dem Archiv hier hab ich es auch geschafft, klappt wunderbar.
Nur muss er anstelle "E19" im Änderungsprotokoll die Spalten- und Zeilenbezeichnung angeben (Die Bezeichung steht jeweils in der Spalte A und B; die Kopfbezeichnung in der Zeile 2).
Für die Reihe hab ich es auch geschafft...Mir fehlt zum Glück noch die Kopfbezeichnung auszulesen - also wenn Zelle E19 geändert wird das was in E2 steht, wenn Zelle K7 geändert wird das was in K2 steht etc...
Den von hier "geklauten" zusammengezimmerten Code ist mal angefügt.
Danke !

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vNew As Variant, vOld As Variant
Dim iRow As Integer
If Intersect(Target, Range("C4:BY35")) Is Nothing Then Exit Sub
vNew = Target.Value
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Application.Undo
vOld = Target.Value
Target.Value = vNew
With Worksheets("Protokoll")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(iRow, 1).Value = Tabelle1.Cells(Target.Row, 1)
.Cells(iRow, 2).Value = Tabelle1.Cells(Target.Row, 2)
.Cells(iRow, 4).Value = vOld
.Cells(iRow, 5).Value = vNew
.Cells(iRow, 6).Value = Date
.Cells(iRow, 7).Value = Application.UserName
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenbezeichnung in VBA auslesen
26.07.2005 11:56:47
Herbert
hallo Steffen,
die Zeile 2 mit variabler Spalte kannst du so ansprechen:
Cells(2, Target.Column)
gruß Herbert
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige