Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1676to1680
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
1676to1680
1676to1680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit VBA Wert zu Spalteneintrag ?

Mit VBA Wert zu Spalteneintrag ?
21.02.2019 19:01:16
Alexander
Hallo,
wie müßte ein Code dafür aussehen ?:
- wenn ein Eintrag erfolgt in einer Zeile sollte der VBA Code in Spalte F den user eintragen und in Spalte G ein X.
Mit einer excel Formel kann ich es nicht lösen da excel sonst alle Zeilen mit Formel in die Access DB überträgt :(

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit VBA Wert zu Spalteneintrag ?
21.02.2019 19:43:06
Alexander
Eintrag in der Zeile erfolgt in B
AW: Mit VBA Wert zu Spalteneintrag ?
21.02.2019 19:48:03
Hajo_Zi
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle. 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target  "" Then
Application.EnableEvents = False
Cells(Target.Row, 6) = Environ("Username")
Cells(Target.Row, 7) = "X"
Application.EnableEvents = True
End If
End Sub


Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: Mit VBA Wert zu Spalteneintrag ?
21.02.2019 20:01:35
Alexander
Vielen Dank Hajo, werde ich gleich testen.
AW: Mit VBA Wert zu Spalteneintrag ?
21.02.2019 20:06:16
Hajo_Zi
noch eine kleine Ergänzung, fals mehr als eine Zelle. 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
If Target.Column = 2 And Target  "" Then
Application.EnableEvents = False
Cells(Target.Row, 6) = Environ("Username")
Cells(Target.Row, 7) = "X"
Application.EnableEvents = True
End If
End If
End Sub
Gruß Hajo
Anzeige
AW: Mit VBA Wert zu Spalteneintrag ?
25.02.2019 13:56:40
Alexander
Hallo Hajo,
ich habe das Problem mit deinem Code dass wenn ich die Zeile übertragen lasse und diese anschliessend gelöscht wird, es zu einem Laufzeitfehler kommt "Laufzeitfehler 13" Typen unverträglich, gibt es eine Lösung ? Danke
AW: Mit VBA Wert zu Spalteneintrag ?
25.02.2019 16:52:07
Hajo_Zi
prüfe gleich zu Beginn 

if CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet)=1 then
Gruß Hajo
AW: Mit VBA Wert zu Spalteneintrag ?
26.02.2019 07:39:41
Alexander
And Target "" habe diesen Bereich gelöscht jetzt klappts :) Danke
Dann bitte nicht auf offen setzen. o.w.T.
27.02.2019 00:31:21
Werner

300 Forumthreads zu ähnlichen Themen

Automatisch Zeilen einfügen und Text reinschreiben
oblivion

Hallo,
hab folgendes Problem.
Ich habe ein Tabelle mit 4 Spalten. Wegen dem automatischen Zeilenumbruch habe ich keine vebundenen Zeilen.
In Excel ist die Zeilenhöhe ja auf 409 begrenzt. Ich habe aber teilweise Text der größere Spalten bräuchte.
Wenn ich die Spalte größer mach...
02.09.2008 20:54:00
Thread-ID: 1006942
5 Beiträge
Anzeige
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Anzeige
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Text autom. in Excel-Spalten einsortieren
Annalena49

Hallo,
habe eine (für mich) ungewöhnliche Datendatei, ähnlich CSV ist aber keine CSV. Hier ein Beispiel einer Excel-Zeile:
10153-8158 10194 1023007 1025250000 102950600 1030LP 1032EUR 1029880000 1032EUA 11010100001 1102UM 110105586724 1102KN 11019783815860847 1102EN 11013815860849 110...
05.12.2008 20:54:02
Thread-ID: 1030586
3 Beiträge
Linien, wenn Text in Zeile - VBA
Wolfgang

Hallo,
in einer Arbeitsmappe hatte ich bislang bis ca. Zeile 6000 für die Spalten A-Q das Format für die Linien direkt über Zellenformat vorgegeben. Das macht die Datei wohl doch relativ fett.- Gäbe es eine Möglichkeit, evtl. über VBA zu steuern, dass ausschließlich die Zeilen, in denen au...
07.12.2008 09:58:34
Thread-ID: 1030803
2 Beiträge
Spalten in VBA anpassen
Markus

Hallo zusammen,
eine vermutlich blöde Frage.
Ich lese aus einem Anwendungsfenster Daten in bestimmte Zellen aus. Wenn alle Daten (je nach Anwendung bis zu 30 Spalteneinträge) ausgelesen sind, erfasse ich die Zeit mit ActiveCell.Offset(0, 10).Value = Format(Date & " " & Time)
10.12.2008 20:45:20
Thread-ID: 1031825
9 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 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
4
3
2
2
5
6
2
1
8
21
5
5
2
8
5
1
1
5
6
28
6
1
5
5
5