Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eintrag irgendeiner Zeile

Eintrag irgendeiner Zeile
07.10.2008 16:20:00
Benny
Wie kann ich diesen Code verändern, wenn egal ist in welcher Zeile man ist? Als Beispiel: C60
Ich trag also etwas in C60 ein und will, dass es in der Tabelle1 in B8 steht. Wenn ich als nächstes etwas in C45 schreib soll es in B8 der Tabelle1 erscheinen.
ThisWorkbook.Sheets("Änderungsanträge").Range("C6").Copy ActiveWorkbook.Sheets("Tabelle1").Range("B8")
Danke im Voraus!

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eintrag irgendeiner Zeile
07.10.2008 16:29:19
Hoffi
Hallo,
zum Beispiel so:
Code in den Codeteil Deiner Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "B8" Then Exit Sub
[b8] = Target.Value
End Sub


Grüße
Hoffi

AW: Eintrag irgendeiner Zeile
07.10.2008 16:31:00
mumpel
Hallo!
Den folgenden Code in den Codebereich der Tabelle Änderungsanträgecolor>
Private Sub worksheet_change(ByVal target As Range)
ActiveWorkbook.Sheets("Tabelle1").Range("B8").Value = target.Value
End Sub


Gruß, René

Anzeige
AW: Eintrag irgendeiner Zeile
07.10.2008 16:30:00
Chris
Servus,
ThisWorkbook.Sheets("Änderungsanträge").ActiveCell.Copy ActiveWorkbook.Sheets("Tabelle1").Range("B8")
Dann muss es aber auch die aktive Zelle sein.
Gruß
Chris
AW: Eintrag irgendeiner Zeile
07.10.2008 16:43:00
Benny
dank euch! hab nur leider keine zeit mehr hoffentlich bekomm ich es dann morgen hin.
liebe grüße benny
AW: Kopie der Eingabe in eine feste Zelle
07.10.2008 16:41:24
Erich
Hallo Benny,
erst mal ein paar Fragen:
1.
Bezeichnen ThisWorkbook und ActiveWorkbook verschiedene Arbeitsmappen,
oder passiert das alles innerhalb einer Mappe?
(Dann könnte man kurz Sheets("Änderungsanträge").Range("C6").Copy Sheets("Tabelle1").Range("B8")
schreiben.)
2.
Ist es richtig, dass "Änderungsanträge" zum Zeitpubkt der Ausführung das aktive Blatt ist?
(Dann könnte man kurz Range("C6").Copy Sheets("Tabelle1").Range("B8") schreiben.)
3.
Soll die Automatik ( Übertragung des Wertes auf Sheets("Tabelle1").Range("B8") )
nur in Spalte C der "Änderungsanträge" funktionieren?
4.
Soll nur der Wert oder sollen auch Formate, Formeln übertragen werden?
(Bei 'nur Wert' könnte man Sheets("Tabelle1").Range("B8") = Range("C6") schreiben.)
5.
Wenn das automatisch bei jeder Eingabe in Spalte C passieren soll: 

' in den Code der Tabelle "Änderungsanträge"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column  3 Then Exit Sub
Sheets("Tabelle1").Range("B8") = Target.Value
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Kopie der Eingabe in eine feste Zelle
08.10.2008 08:44:31
Benny
3.
Soll die Automatik ( Übertragung des Wertes auf Sheets("Tabelle1").Range("B8") )
nur in Spalte C der "Änderungsanträge" funktionieren?
Es soll für das Feld "B8" in "Tabelle1" nur auf die Spalte C der "Änderungsanträge" funktionieren.
Dann noch weitere...also:
Es soll für das Feld "B10" in "Tabelle1" nur auf die Spalte B der "Änderungsanträge funktionieren.
Es soll für das Feld "G10" in "Tabelle1" nur auf die Spalte E der "Änderungsanträge funktionieren.
Es soll für das Feld "E10" in "Tabelle1" nur auf die Spalte F der "Änderungsanträge funktionieren.
kann ich da diese Funktion in irgendeiner Form umbauen?
ThisWorkbook.Sheets("Änderungsanträge").Range("C6").Copy ActiveWorkbook.Sheets("Tabelle1").Range("B8")
ThisWorkbook.Sheets("Änderungsanträge").Range("B6").Copy ActiveWorkbook.Sheets("Tabelle1").Range("B10")
ThisWorkbook.Sheets("Änderungsanträge").Range("E6").Copy ActiveWorkbook.Sheets("Tabelle1").Range("E10")
ThisWorkbook.Sheets("Änderungsanträge").Range("F6").Copy ActiveWorkbook.Sheets("Tabelle1").Range("G10")
Anzeige
AW: Fragen und Antworten
08.10.2008 11:04:00
Erich
Hi Benny!
A) Ein Hallo zu Beginn und ein Gruß am Ende erhöhen die Bereitschaft, Fragen zu beantworten.
B) Wenn du meine Fragen, speziell Nr. 1, 2 und 4, nicht beantwortest, warum sollte ich deine beantworten?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Kopie der Eingabe in eine feste Zelle
08.10.2008 12:50:00
Benny
Stimmt. Das hätte ich wohl tun sollen. Dann werd ich das nachholen! Hallo erstmal ;-)
Es werden verschiedene Arbeitsmappen bezeichnet. Glaube ich jedenfalls bin doch neu auf dem Gebiet. Kannst dann also meine Antworten als Vermutungen annehmen. Zur zweiten Frage würde ich zu einem möglich tendieren. Wie du schon merkst bin ich ein wenig ein "Blindgänger", daher hab ich auf die zutreffende Frage 3 reagiert.
Zur vierten Frage es sollen lediglich Beschreibungen übernommen werden.
Ich hoffe du kannst mir mein unpersönliches Verhalten nachsehen und mir bei meinem "Kuddelmuddel" helfen. Wär unheimlich nett! Danke schonmal.
Anzeige
AW: Kopie der Eingabe in eine feste Zelle
08.10.2008 19:51:00
Erich
Hi Benny,
ob du neue bist auf dem Gebiet oder nicht, ist eigentlich egal.
Du musst aber schon wissen, ob du in einer oder zwei Excelmappen arbeitest. Konkret:
In welcher Mappe steht das Blatt "Änderungsanträge"?
In welcher Mappe steht das Blatt "Tabelle1"?
Zu Frage 4: Meinst du mit "Beschreibungen" die Werte (Zahlen, Texte) der Zellen, also keine Formate?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Kopie der Eingabe in eine feste Zelle
09.10.2008 08:28:49
Fred
Morgen Erich,
ich arbeite in 2 Mappen
Änderungsanträge steht in der Mappe Projekte.xls und das Blatt steht in der Mappe Tabelle1.
Es geht um Zahlen und Texte. Es werden also keine Formate.
Also bis denne Gruß Benny
Anzeige

303 Forumthreads zu ähnlichen Themen

Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Anzeige
Zählen E-Mailadressen in einer Zeile
Enjoy82

Guten Morgen,
ich hab in die Zelle A1 einen rießigen E-Mail Verteiler kopiert und möchte nun die Anzahl der E-Mail Adressen wissen.
Mit Zählenwenn kam ich nicht wirklich weiter (wollte die @s zählen) -- Formel spuckt 0 aus
Nach jedem Beistrich einen Zeilenumbruch machen, ist mir noc...
27.08.2008 08:59:00
Thread-ID: 1004969
3 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Anzeige
Letzter Eintrag von Zeile in Spalte A übernehmen
Zeile

Guten Tag
Ich suche nach einer Formel, die mir den letzten eingetragenen Wert (Wert aus hinterster Spalte) von verschiedenen Zeilen jeweils in die gleiche Zeile in Spalte A einträgt.
Hat mir jemanden einen Tipp?
Danke, Peter
03.09.2008 12:58:17
Thread-ID: 1007081
3 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Anzeige

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
3
5
2
10
8
2
5
3
16
4
3
2
6
16
6
3
6
1
3
4
2
2
3
2
4