Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
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
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

Arbeitsblätter

Arbeitsblätter
17.10.2008 17:49:55
Jochen
Hallo brauche Hilfe
Ich habe ein Arbeitsblatt mit dem Namen Kanal dort können 22 Makros gestartet werden.
Jedes der Makros fügt in die Zeile 9 auf dem Arbeitsblatt Kanal eine neue Zeile ein.
Dann startet eine Abfrage nach Zahlenwerten und zum Ende wird eine Summe errechnet.
Nun möchte ich das wenn eines der Makros gestartet wird auch auf dem Arbeitsblatt ISO
eine neue Zeile in Reihe 9 eingefügt wird und die Werte aus dem Arbeitsblatt Kanal
übernommen werden.
Zudem soll auf dem Arbeitsblatt ISO zu den Zellen D9 und E9 ein Wert hinzugerechnet werden den es nur auf diesem Arbeitsblatt in Zelle B12 gibt.
Wäre toll wenn mir jemand helfen könnte.
Gruß Jochen

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblätter
17.10.2008 18:41:00
Matthias
Hallo Jochen
meinst Du so ?

Option Explicit
Sub Jochen()
Sheets("ISO").Rows("9:9").Value = Sheets("Kanal").Rows("9:9").Value
With Sheets("ISO")
.Cells(9, 4) = CLng(.Cells(9, 4) + .Cells(12, 2))
.Cells(9, 5) = CLng(.Cells(9, 5) + .Cells(12, 2))
End With
End Sub


Userbild
Gruß Matthias

AW: Arbeitsblätter
17.10.2008 18:46:16
stormy_weathers
mit verlaub...
sorry, dass ich mich einmische... aber:
ohne
Worksheets("ISO").Rows("9:9").Select
Selection.Insert Shift:=xlDown
wird es ihm keine neue reihe einfügen in seinem blatt iso.
(mach das nur, weil ich auch grad an einer lösung gearbeitet habe)
gruß
stormy
Anzeige
kein Problem :o)
17.10.2008 19:07:45
Matthias
Hallo
Na das ist ja logisch, aber wenn er folgendes schreibt:
Jedes der Makros fügt in die Zeile 9 auf dem Arbeitsblatt Kanal eine neue Zeile ein.
dann hat er ja den Code schon !
Da braucht er das gleiche ja nur für das Worksheet("ISO") tun. Oder?
... und dann den Rest hinten dranhängen. So hätte ich es erwartet ;o)
Gruß Matthias
AW: kein Problem :o)
17.10.2008 19:10:33
stormy_weathers
ok, unentschieden... lol
Ne hast natürlich recht!
gruß
stormy
AW: Arbeitsblätter
17.10.2008 19:09:00
Jochen
Danke für die Antworten
Da ich keine besonderen Kenntnisse in VBA habe sind zwei unterschiedliche Antworten für mich nicht
so gut. Wie soll ich das Makro den jezt schreiben.
Grüß Jochen
Anzeige
AW: Arbeitsblätter
17.10.2008 19:13:12
stormy_weathers
Na, ein bisschen sollte man schon eigeninitiative zeigen und zumindest mal versuchen...
meine Zeilen vor die Zeilen von Matthias, damit die Zeile 9 in deinem Blatt nicht überschrieben wird, sondern eine neue eingefügt wird...
Das sind nicht unterschiedliche Codes... du must diese zusammen kombinieren...
gruß
stormy
AW: Arbeitsblätter
17.10.2008 19:29:27
Jochen
Hallo
Möchte auch nicht das ihr für mich die Arbeit erledigt.
Das versuchen macht ja auch Spaß. Muß nur jedesmal wenn ich weiter Arbeiten möchte die
Festplatte tauschen. Hab meine Programme auf einer Festplatte ohne Internet Zugang.
Gruß Jochen
Anzeige
AW: Arbeitsblätter
17.10.2008 19:47:00
Matthias
Hallo Jochen
Na Du brauchst doch nur am Ende von deinem Makro diese beiden Codes einfügen:
erst Dein Makro, wo Du die Zeile einfügst in Blatt "Kanal"
dann den Code von stormy
und dann eben
Sheets("ISO").Rows("9:9").Value = Sheets("Kanal").Rows("9:9").Value
With Sheets("ISO")
.Cells(9, 4) = CLng(.Cells(9, 4) + .Cells(12, 2))
.Cells(9, 5) = CLng(.Cells(9, 5) + .Cells(12, 2))
End With
allerdings solltest Du dann in Blatt "ISO" einen Namen vergeben für (B2) also für Cells(2, 2)
da beim Einfügen von einer Zeile dann dieser Bareich auch nach unten rutscht.
da muß man dann mit Range("DeinName") statt Cells(2, 2) arbeiten. Da dieser Name dann mitwandert
B2 statt B12 ist schon berücksichtigt (Du hast es sicher bemerkt)
Man kann Festplatten jumpern als Master und Slave. Da braucht man dann auch nicht immer umbauen ;o)
sonder kann auf beide zugreifen.
Gruß Matthias
Anzeige
Korrektur - kein Name notwendig
17.10.2008 20:15:51
Matthias
Hallo
nur B12 hätte sich nur verschoben B2 natürlich nicht . Also brauchst Du auch keinen Namen vergeben.
Ich hatte den Text schon fertig und dann nur B12 durch B2 ausgetauscht.
Hatte nur vergessen das mit dem Namen wieder zu löschen, was allerdings bei B12 notwendig gewesen.wäre.
Gruß Matthias
AW: Arbeitsblätter
17.10.2008 19:29:04
Erich
Hallo Jochen,
eins verstehe ich so nicht:
Nehmen wir an, in ISO!B12 steht die Zahl 1000.
Wenn in ISO eine neue Zeile 9 eingefügt wird, dann steht die 1000 danach doch in B13, oder?
Ich hielte es für sinnvoll, wenn du mal ein oder zwei deiner 22 Makros hier postest.
Dann ließe sich leichter sagen, was du wo einbauen könntest.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Arbeitsblätter
17.10.2008 19:37:00
Jochen
Hallo
Du hast recht das war ein Tipfehler vom mir. Keine Absicht!!!!
Der Wert seht nicht in Zelle B12 sondern in B2.
Gruß
AW: Arbeitsblätter
17.10.2008 19:59:00
Erich
Hi Jochen,
da du meinem Vorschlag, 2 bisherige Makros zu posten, nicht folgst,
habe ich das mal an zwei Beispielmakros nachgebaut.
Das kannst du auch in einer neuen Mappe (mit den beiden Blättern) ausprobieren: 

Option Explicit
Sub Makro1()
With Sheets("Kanal")
.Rows("9:9").Insert Shift:=xlDown
.Cells(9, 1) = "Makro1"
.Cells(9, 2) = Now
.Cells(9, 2) = Now
.Cells(9, 4) = Rnd
.Cells(9, 5) = Rnd
End With                   ' bis hier bisheriges Makro
ISO_bearb                  ' Aufruf ISO_bearb
End Sub
Sub Makro22()
With Sheets("Kanal")
.Rows("9:9").Insert Shift:=xlDown
.Cells(9, 1) = "Makro22"
.Cells(9, 2) = Now
.Cells(9, 4) = 22 + Rnd
.Cells(9, 5) = 22 + Rnd
End With                   ' bis hier bisheriges Makro
ISO_bearb                  ' Aufruf ISO_bearb
End Sub
Sub ISO_bearb()
With Sheets("ISO")
.Rows("9:9").Insert Shift:=xlDown               ' neue Zeile 9
.Rows("9:9").Value = Sheets("Kanal").Rows("9:9").Value
.Cells(9, 4) = .Cells(9, 4) + .Cells(2, 2)      ' addiere B2
.Cells(9, 5) = .Cells(9, 5) + .Cells(2, 2)      ' addiere B2
End With
End Sub

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

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige