Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Target.Address.Column+2 ??

Target.Address.Column+2 ?
19.10.2008 13:11:00
Alex
Hallo zusammen,
bei diesem Code handelt es sich um einen "Bearbeiternachweis"- bei dem je nach Eintragung in Spalten 6-16 von Tabelle1 -
der username und das datum in Tabelle2 (selbe Zieladresse) geschrieben.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16
Sheets("Tabelle2").Range(Target.Address).Value = Application.UserName & " - " &  _
Date
Case Else
End Select
End Sub


Die Zieladresse soll nun aber um zwei Spalten nach rechts versetzt sein.
Wie muss ich das schreiben?
Wie immer vielen Dank für eure Mühen,
alex

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Target.Address.Column+2 ?
19.10.2008 13:18:11
Hajo_Zi
Hallo Alex
ich hätte es mal so versucht.
Sheets("Tabelle2").Range(Target.Address).offset(0,2).Value = Application.UserName & " - " & _

AW: Target.Address.Column+2 ?
19.10.2008 13:21:00
Hajo_Zi
Hallo Alex,
andersrum
Sheets("Tabelle2").Range(Target.offset(0,2).address) = Application.UserName & " - " & _
Gruß Hajo
AW: Target.Address.Column+2 ?
19.10.2008 13:38:00
Alex
Hallo Hajo,
die Zieladresse ist jetzt 2 Spalten weiter auf Tabelle2.
Soweit gut.
nur wird die Information jetzt ab der neuen Zieladresse jeweils zwei Spalten weiter noch einmal, zwei Spalten weiter noch einmal ... usw. geschrieben.
Ich brauchen es nur einmal.
Danke,
gruß alex
Anzeige
Sorry, brauche es im selben Tab.
19.10.2008 13:44:00
Alex
Hajo,
sorry,
der Code funktioniert bei Einträgen in Tab.1 und Infoübertrag in Tab.2.
Habe nun vor den Infoeintrag in der selben Tab.1 zu bekommen. Und da gings nicht.
alex
AW: Target.Address.Column+2 ?
19.10.2008 13:45:14
Tino
Hallo,
du rufst Dein Event- Makro durch das schreibe in eine Zelle
sehr Wahrscheinich immer wieder neu auf.
Private Sub Worksheet_Change(ByVal Target As Range)
 Application.EnableEvents = False
   Select Case Target.Column
       Case 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16
    Sheets("Tabelle2").Range(Target.Address).Offset(0, 2).Value = _
    Application.UserName & " - " & Date
       Case Else
   End Select
 Application.EnableEvents = True
End Sub


Gruß Tino

Anzeige
AW: Geht jetzt, danke euch beiden o.w.T.
Alex
.

87 Forumthreads zu ähnlichen Themen

If Target.Address = "$A$1" Then
Karsten

Hallo,
in folgendem Beispiel habe ich A1 und A2 verbunden.
Der Befehl:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
18.11.2009 08:57:17
Thread-ID: 1118184
7 Beiträge
Anzeige
VBA If Funktion mit Inhaltssuche in Target Feld
Michael

Hallo zusammen,
ich habe mein erstes kleines VBA Makro geschrieben (siehe unten). Soweit funktioniert auch alles. Allerdings habe ich jetzt das Problem das ich im Target nicht nach einem fest definierten Inhalt sondern nach einem bestimmten Wort ("dedicated") suchen möchte. Vielleicht sollt...
28.01.2011 08:09:32
Thread-ID: 1197758
4 Beiträge
If Target.Column 2 Then Exit Sub
Harald K

Hallo im Excelforum,mit If Target.Column 2 Then Exit Sub breche ich das Makro ab wenn nicht die zweite Spalte ausgewählt wird, nun möchte ich das Makro nur ausführen wenn der Wert in B9 bis B11 verändert wird.
Mein Gedanke ist
If Range("B9:B11") hier fehlt mir der Wert? Then Exit Sub...
05.01.2003 21:12:08
Thread-ID: 199285
4 Beiträge
Anzeige
ElseIf 7<=k<=11 then wird ignoriert
michael

HAllo,
kann mir zu später Stunde noch jemand helfen?
wenn der SchleifenZähler bei k=12 steht springt die routine trotzdem in die ElseIf 7&lt=k&lt=11 then~f~ Bedingung
wie mus die Abfrage richtig lauten? Damit die routine in die naüächste Abfrage springt
~f~ElseIf 12&l...
10.02.2005 00:29:53
Thread-ID: 565021
6 Beiträge
If ActiveCell = Range("A1") Then
Horst

Liebe Excelfreunde,
Ich habe eine Mappe bei der, dieser Befehl funktioniert.
Sub Makro1() If ActiveCell = Range("A1") Then Exit Sub End If End Sub In dieser Mappe ...
https://www.herber.de/bbs/user/133683.xls
... läuft der Befehl, egal wo die aktive Zelle ist, immer ins Exit S...
08.12.2019 21:02:42
Thread-ID: 1727949
9 Beiträge
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Worksheet_Change(ByVal Target As Range)
Axel

Ein schönes Wochenende zuvor wünschend!
Aufgabenstellung:
Ich möchte in einer Zelle einen Wert schreiben, was ein Makro auslösen soll. In einer Zweiten soll dadurch automatisch eine Umrechenformel einfügt werden. Auf diese Weise kann man (trivial, nur als Beispiel) bei der Bedienung ein...
06.03.2009 15:21:33
Thread-ID: 1057353
7 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
9
3
3
4
5
8
3
13
6
4
3
4
4
6
6
2
4
4
6
10
12
2
3
5