Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zellen in auktuelle und folgenden Tabellen ändern

zellen in auktuelle und folgenden Tabellen ändern
07.09.2003 22:35:44
Jonnov
Hallo zur später Stunde

Ich habe 15 Arbeitsblätter und in den ersten 12 kann ich mit einem Makro den Inhalt einer Zelle ändern.

Wenn ich das z.B. im Arbeitsblatt 2 mache, soll 2 bis 12 den Inhalt der Zelle verändern. In Arbeitsmappe 6 -> 6 bis 12. usw.
Bitte um Tip wie ich mein Makro erweitern muss.

Danke und Gruß
Jonnov

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zellen in auktuelle und folgenden Tabellen ändern
07.09.2003 22:55:44
Matthias G
Hallo Jonnov,

folgenden Code in "DieseArbeitsmappe":

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Integer
Dim z As String
Dim Inhalt As String
If Sh.Index <= 4 Then
z = Target.Address
Inhalt = Target.Value
For i = Sh.Index + 1 To 4
Sheets(i).Range(z).Value = Inhalt
Next i
End If
End Sub


Viel Erfolg!
Matthias
AW: Korrektur f. Auswahl mehrerer Zellen
07.09.2003 23:09:19
Matthias G
Hallo Jannov,
hier eine kleine Verbesserung, wenn du z.B. mehrere Zellen auf einmal veränderst (z.B. löschst):

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i As Integer
Dim z As Object
Dim Inhalt, zs As String
If Sh.Index <= 12 Then
For Each z In Target
zs = z.Address
Inhalt = z.Value
For i = Sh.Index + 1 To 12
Sheets(i).Range(zs).Value = Inhalt
Next i
Next z
End If
End Sub

Gruß,
Matthias
Anzeige
AW: Korrektur f. Auswahl mehrerer Zellen
07.09.2003 23:37:11
Jonnov
Hallo Matthias

Erst einmal dir Dank.
Ich habe noch Probleme dein Tip auf meine Datei zu übertragen und anzupassen.
Muss auch leider noch vieles nach lesen.

Die Veränderung der Zellen sollen sich aber nur auf die noch folgenden Tabellen auswirken. Oder habe ich das falsch in Deinem Tip gesehen.

GRuß
Jonnov
AW: Korrektur f. Auswahl mehrerer Zellen
08.09.2003 09:36:54
Matthias G
Hallo Jonnov,
Vielleicht habe ich Dich missverstanden.
Das Makro ist ein Ereignismakro (muss in "DieseArbeitsmappe") und wird aufgerufen, sobald sich eine Zelle der Arbeitsmappe verändert.
Also gleichgültig, ob per Makro oder per manueller Eingabe.

Willst Du eine Routine, die nur für die Veränderung der Zellen von VBA aus funktioniert?

Dann vielleicht folgender Code (muss in ein normales Modul):

Sub SchreibeWeiter(ByVal Target As Range, Wert As Variant)
Dim i As Integer
Dim z As Object
Dim zs As String
Dim Sh As Object
Set Sh = ActiveSheet
If Sh.Index <= 12 Then
For Each z In Target
zs = z.Address
For i = Sh.Index To 12
Sheets(i).Range(zs).Value = Wert
Next i
Next z
End If
End Sub


Der Aufruf geht z.B. so:
SchreibeWeiter Range("A1"),12
schreibt den Wert 12 in die Zelle A1 des aktuellen Blattes und aller folgenden bis 12

SchreibeWeiter Cells(12, 4), "Hallo"
schreibt "Hallo" in die Zelle D12 des aktuellen Blattes und aller folgenden bis 12

Manuelle Veränderungen sind davon nicht betroffen.
Ist es so besser?

Grüße,
Matthias
Anzeige

301 Forumthreads zu ähnlichen Themen

unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Anzeige
Zwei Dinge in einer Zelle
Sabine

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...
29.08.2008 15:25:00
Thread-ID: 1005860
2 Beiträge
Cbo Eintrag mit Erklärungstext
Peter

Hallo Experten,
in einer Combobox sind ca 30 Schlüsselnummern eingetragen. Zur Erklärung: jede Schlüsselnummer beschreibt einen Fehler auf einem Röntgenfilm. Gibt es irgendeine Möglichkeit, das bei Auswahl eines Schlüssels zur Orientierung ein Hilfetext aufgerufen wird, bei der Übernahme in...
03.09.2008 10:56:00
Thread-ID: 1007035
3 Beiträge
Anzeige
Tabellenblattname in Zelle eintragen
obelix-xxl

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
04.09.2008 21:27:29
Thread-ID: 1007526
3 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Zelle A2 in Tabelle "Daten" ansprechen
Wolfgang

Hallo,
mit untenstehendem Auszug aus einem Code wird ein Textfeld in einem UF mit Daten aus einem anderen Textfeld des UF "beschickt"; Was müßte ich verändern (kriege das nicht hin), wenn ich nun das ausgeblendete Tabellenblatt "Daten" ansprechen möchte und den Inhalt aus "A2" importieren m...
23.09.2008 09:01:00
Thread-ID: 1011622
4 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 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
7
2
1
2
5
2
6
4
3
2
3
6
4
1
3
9
2
1
4
3
6
3
15
13
6