Inhalt in Tabellenblätter schreiben

Sub C_Register_Fuellen() ' Uebertrag der Daten Sheets("Register_1").Select Dim Bereich As Range Dim I As Integer I = 0 With Tabelle4 Set Bereich = .Range(.Cells(1, 6), .Cells(.Rows.Count, 6).End(xlUp)) End With Dim Zelle As Range For Each Zelle In Bereich If Zelle "" Then I = I + 1 End If 'MsgBox ("Register_" & I) If Worksheets("Content").Cells(I, 6) = Zelle Then Worksheets("Register_" & I).Cells(21, 4) = Worksheets("Content").Cells(I, 5) Worksheets("Register_" & I).Cells(24, 4) = Worksheets("Content").Cells(I, 2) Worksheets("Register_" & I).Cells(30, 4) = Worksheets("Content").Cells(I, 4) Worksheets("Register_" & I).Cells(27, 4) = Worksheets("Content").Cells(I, 3) Worksheets("Register_" & I).Cells(11, 5) = Worksheets("Content").Cells(I, 6) Worksheets("Register_" & I).Cells(15, 5) = Worksheets("Content").Cells(I, 1) Else End If Next Zelle End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub C_Register_Fuellen() ' Uebertrag der Daten Sheets("Register_1").Select Dim Bereich As Range Dim I As Integer I = 0 With Tabelle4 'Du setzt einen Bereich der aus einem Ausschnitt in Tabell4 besteht Set Bereich = .Range(.Cells(1, 6), .Cells(.Rows.Count, 6).End(xlUp)) End With Dim Zelle As Range For Each Zelle In Bereich If Zelle "" Then 'Du prüfst ob die Zelle einen Wert enthält, willst Du die gleiche _ _ Zelle prüfen 'ob der Wert sich geändert hat? 'Hier hast Du ja einen Range aus Tabelle4? 'ist das die in demen Beispiel erwähnte Zelle ' "die Zelle (1, 6) hat den Wert 11 und folgt 4x _ untereinander, danach folgt ' der Wert 12 usw" ? I = I + 1 End If 'MsgBox ("Register_" & I) 'hier vergleichst Du den Inhalt einer Zelle in Tabelle "Content" 'mit dem Wert der Zelle aus "Tabelle4" If Worksheets("Content").Cells(I, 6) = Zelle Then 'übernimmst hier jeweis Werte vom Tabellenblatt "Content" in 'ein Tabelleblatt dessen Namen Du variabel festlegst 'aus dem 1. Teil "Register_" und dem Zähler I Worksheets("Register_" & I).Cells(21, 4) = Worksheets("Content").Cells(I, 5) Worksheets("Register_" & I).Cells(24, 4) = Worksheets("Content").Cells(I, 2) Worksheets("Register_" & I).Cells(30, 4) = Worksheets("Content").Cells(I, 4) Worksheets("Register_" & I).Cells(27, 4) = Worksheets("Content").Cells(I, 3) Worksheets("Register_" & I).Cells(11, 5) = Worksheets("Content").Cells(I, 6) Worksheets("Register_" & I).Cells(15, 5) = Worksheets("Content").Cells(I, 1) Else End If Next Zelle End Sub

Sub C_Register_Fuellen() ' Uebertrag der Daten Dim Bereich As Range Dim Zelle As Range Dim I As Integer I = 1 Sheets("Register_1").Select With Tabelle4 Set Bereich = .Range(.Cells(1, 6), .Cells(.Rows.Count, 6).End(xlUp)) End With For Each Zelle In Bereich If Worksheets("Content").Cells(I, 6) = Zelle Then I = I + 1 Worksheets("Register_" & I).Cells(21, 4) = Worksheets("Content").Cells(I, 5) Worksheets("Register_" & I).Cells(24, 4) = Worksheets("Content").Cells(I, 2) Worksheets("Register_" & I).Cells(30, 4) = Worksheets("Content").Cells(I, 4) Worksheets("Register_" & I).Cells(27, 4) = Worksheets("Content").Cells(I, 3) Worksheets("Register_" & I).Cells(11, 5) = Worksheets("Content").Cells(I, 6) Worksheets("Register_" & I).Cells(15, 5) = Worksheets("Content").Cells(I, 1) End If Next Zelle End Sub

Sub C_Register_Fuellen() ' Uebertrag der Daten Dim Bereich As Range Dim Zelle As Range Dim I As Integer I = 1 Sheets("Register_1").Select With Tabelle4 Set Bereich = .Range(.Cells(1, 6), .Cells(.Rows.Count, 6).End(xlUp)) End With For Each Zelle In Bereich '----- ich bin mir nicht sicher, ob Du wirklich vergleichst, was Du vergleichen willst --- '(Achtung das funktioniert so nur weil Du im Bereich nur eine Spalte hast ' sonst bin ich mir nicht sicher ob For Each erst alle Zeilen oder erst alle Spalten ' verarbeitet dann merke ich mir den alten Wert einer Zelle lieber in einer Variablen) 'aber prüfe erst einmal - ob Du das wolltest 'beim 1. Schleifendurchlauf entspricht dein Vergleich 'If Worksheets("Content").Cells(1,6) = Worksheets("Tabelle4).Range(.Cells(1, 6) 'bin mir auch nicht sicher, ob Du hier den Inhalt der Zelle vergleichst oder nur 'ob es sich um den gleichen Bereich handelt(was ja nicht sein kann, da der 'Bereich sich in anderen Tabellblättern befindet + was soweit ich das überblicke 'auch keinen Sinn macht) 'ich benutze den Automatismus mit Kurzschreibweisen und Standardeigenschaften eher selten 'weiß nicht ob die Value-Eigenschaft die Standardeigenschaft von Range ist 'würde immer schreiben Worksheets("Content").Cells(I, 6).value = Zelle.value Then ' Du kannst das ganz gut testen indem Du ' MsgBox "Worksheets("Content").Cells(I, 6).value =" & Worksheets("Content").Cells(I, 6). _ value ' MsgBox "zelle.Value =" & Zelle.Value ' Bin mir nicht sicher, ob Du mit Msgbox den Unterschied merkst ob du .Value schreibst ' oder nicht - könnte sein, daß dort immer auf den Inhalt zugegriffen wird (irgendeine _ interne ' Konvertierung zeigt glaube ich immer den Inhalt an) - falls die If-Anweisung nicht _ funktioniert ' einfach mal versuchshalber ".Value" verwenden If Worksheets("Content").Cells(I, 6) = Zelle Then ' MsgBox "Bedingung erfüllt" 'natürlich könntest Du das auch mit dem Debugger testen 'will es hier aber nicht übertreiben I = I + 1 Worksheets("Register_" & I).Cells(21, 4) = Worksheets("Content").Cells(I, 5) Worksheets("Register_" & I).Cells(24, 4) = Worksheets("Content").Cells(I, 2) Worksheets("Register_" & I).Cells(30, 4) = Worksheets("Content").Cells(I, 4) Worksheets("Register_" & I).Cells(27, 4) = Worksheets("Content").Cells(I, 3) Worksheets("Register_" & I).Cells(11, 5) = Worksheets("Content").Cells(I, 6) Worksheets("Register_" & I).Cells(15, 5) = Worksheets("Content").Cells(I, 1) End If Next Zelle End Sub

Sub C_Register_Fuellen() ' Uebertrag der Daten Dim Bereich As Range Dim Zelle As Range Dim I As Integer I = 1 Sheets("Register_1").Select With Sheets("Content") Set Bereich = .Range(.Cells(1, 6), .Cells(.Rows.Count, 6).End(xlUp)) End With For Each Zelle In Bereich If Worksheets("Content").Cells(I, 6).Value = Zelle.Value Then I = I + 1 Worksheets("Register_" & I).Cells(21, 4) = Worksheets("Content").Cells(I, 5) Worksheets("Register_" & I).Cells(24, 4) = Worksheets("Content").Cells(I, 2) Worksheets("Register_" & I).Cells(30, 4) = Worksheets("Content").Cells(I, 4) Worksheets("Register_" & I).Cells(27, 4) = Worksheets("Content").Cells(I, 3) Worksheets("Register_" & I).Cells(11, 5) = Worksheets("Content").Cells(I, 6) Worksheets("Register_" & I).Cells(15, 5) = Worksheets("Content").Cells(I, 1) End If Next Zelle End Sub

Hallo Stefan,
Achtung - hier habe ich noch eine Anweisung ergänzt.
Alt = Zelle.value
Leider erst heute die Antwort - gestern gab es mit dem Forumsserver scheinbar ein Problem - ich konnte meinen Beitrag nicht absenden - nach mehrmaligen Versuchen stand die Headline mehrmals drin - man konnte aber nicht auf den Beitrag zugreifen - heute ist er ganz weg.
Was meinst Du mit: "Nur jetzt wird die Zellen mit dem Wert 1 nicht mehr übertragen!" ?
Dass Du in der ersten Zeile einen Vergleichswert hast, und in Deiner bisherigen If-Anweisung dafür sorgst, daß nur Daten der Zeilen, bei denen der Wert der Spalte 6 diesem Vergleichswert entspricht, in ein Tabellenblatt Register ... übernommen wird?
Nun versuch ichs nochmal, Dir ein paar Änderungen einzubauen, so wie ich die Aufgabenstellung verstanden habe. Falls da noch ein kleiner Irrtum ist, siehst Du so zumindest das Prinzip, wie Du vermeiden kannst, daß mehrfache Einträge mehrfach übernommen. Mein Programm setzt voraus, daß die Einträge so sortiert sind, daß Mehrfacheinträge hintereinander stehen.
Sub C_Register_Fuellen()
' Uebertrag der Daten
Dim Bereich As Range
Dim Zelle As Range
Dim I As Integer
Dim Alt As Integer '---------------------
I = 1
Sheets("Register_1").Select
With Sheets("Content")
Set Bereich = .Range(.Cells(1, 6), .Cells(.Rows.Count, 6).End(xlUp))
End With
Alt = 0 '---- einen Wert zuweisen, der keinesfalls in der 1. zu vergleichenden
'---- Zeile steht (oder sicher nie vorkommt - Achtung, daß eine
'---- leere Zelle nicht auch 0 zurückgibt, da bin ich mir im Moment
'-----nicht sicher)
'--- damit der If auch im 1. Durchlauf der Schleife richtig greift
For Each Zelle In Bereich
'------ hier mit einer UND-Verknüpfung dafür sorgen, daß eine weitere
'------ Bedingung abgefragt wird (bewirkt im Gegensatz zu einer
'------ODER-Verknüpfung), daß beide Bedingungen erfüllt sein
'------müssen.
'-- Achtung, hier wird ein Integer verglichen, schon bei der
'-- Dimensionierung von Alt wurde davon ausgegangen daß es
'-- sich um keine Zeichenkette handelt, sonst müßtest Du mit
'-- strcomp Zeichenkettenvergleich arbeiten
If Worksheets("Content").Cells(I, 6).Value = Zelle.Value AND _
Zelle.Value <> Alt _
Then
I = I + 1
Worksheets("Register_" & I).Cells(21, 4) = Worksheets("Content").Cells(I, 5)
Worksheets("Register_" & I).Cells(24, 4) = Worksheets("Content").Cells(I, 2)
Worksheets("Register_" & I).Cells(30, 4) = Worksheets("Content").Cells(I, 4)
Worksheets("Register_" & I).Cells(27, 4) = Worksheets("Content").Cells(I, 3)
Worksheets("Register_" & I).Cells(11, 5) = Worksheets("Content").Cells(I, 6)
Worksheets("Register_" & I).Cells(15, 5) = Worksheets("Content").Cells(I, 1)
Alt = Zelle.Value '----------- den aktuellen Wert als Alten Wert merken
'----------- für die nächste Verarbeitungsschleife!
End If
Next Zelle
So das war es für heute, bin heute den ganzen Tag nicht erreichbar.
Kannst ja falls noch Probleme bestehen und es für Dich eilig ist, Einzelfragen in ein neues Thread stellen, damit sich jemand darum kümmert.
Gruss Monika
PS:
Kannst Du eigentlich mit einem Debugger umgehen? Schau Dir diesbezüglich mal die Hilfe an, das lohnt sich bestimmt - gerade so kleine Programmausschnitte kann auch als Einsteiger super damit testen.
Da kannst Du Programmcode Befehl für Befehl abarbeiten und den Inhalt der jeweiligen Variablen und
den Wert von Ausdrücken beobachten.

Hallo Stefan,
heute ist mir noch eingefallen, daß ich Dir eine Info mitschicken wollte, als die Server-Probleme bestanden,
dies dann aber scheinbar irgendwie verloren ging.
Die If-Anweisung hat soweit ich das richtig lese bei Cells(I, 6)
die Zeile durch die Variable I und nicht die Ziffer 1 bestimmt wird.
Wäre das so, hättest Du bei den Schleifendurchläufen folgende Zellen angesprochen
Schleifendurchgang: 1
Variable i wenn if erfüllt war: 1
Du vergleichst Worksheets("Content").Cells(1, 6).Value
mit Zelle.Value Zelle zeigt im Durchlauf auch auf Zeile1 Spalte 6
Mit For Each wird ja jede Zelle von Bereich der Reihe nach über den Variablennamen Zelle adressiert.
Das würde bedeuten, Dein Vergleich vergleicht den Inhalt der gleichen Zelle nur über eine andere Art wird auf die Zelle verwiesen.
Frage:
Hast Du schon einmal mit dem Debugger gearbeitet?
Wenn Du magst helfe ich Dir bei den ersten Schritten, da findest Du solche Fehler sofort, da Du Befehl für Befehl prüfen kannst.
Dies hier wäre gerade ein richtig schönes Beispiel,
vor die For Each-Anweisung die folgende Anweisung einfügen:
Stop
Dann hält Dein Programm an und zeigt den Programmcode im Debugger an - Du kannst die Fenstergröße so ändern, daß Du gleichzeitig den Debugger und das Excel-Tabellenblatt siehst.
Nun ist die Zeile in der Stop steht markiert, Dein Programm ist angehalten.
Mit F8 kannst Du immer den nächsten Befehl ausführen (es geht auch mehr - aber bei dem kleinen Programm und zur 1. Übung nicht nötig)
Immer die nächste zu bearbeitende Programmzeile ist markiert. Wenn Du dann F8 drückst wird diese ausgeführt.
Du kannst nun mit dem Mauszeiger über eine Variable oder einen Ausdruck fahren und etwas warten, dann siehst Du den Wert den die Variable aktuell hat. (und zwar bis zu dem Befehl, bis zu dem Du das Programm abgearbeitet hast, sprich eine Variable die Ihren Wert erst nach der Stelle an der Du Stop eingefügt hast Ihren Wert erhält, zeigt noch nichts an - dann musst Du erst mit F8 weistere Programmschritte abarbeiten, bis der Wert gesetzt wurde, dann siehst Du den neuen Wert)
Gehe in dem Du immer wieder F8 drückst bis auf die If-Anweisung, wenn Du dann noch einmal F8 drückst siehst Du ob die Befehle im If-Block abgearbeitet werden, wenn nicht kannst Du mit der Maus auf einen Teil der If-Anweisung zeigen
z.B. auf Worksheets("Content").Cells(1, 6).Value und siehst den Wert der hier verglichen wird
oder Du zeigst auf Zelle.Value und siehst den Vergleichswert
so kannst Du auch sehen, welchen Wert z.B. die Variable i beim Schleifendurchlauf hat
Das alles geht noch besser - Du kannst Variableninhalte ohne mit der Maus darauf zeigen zu müssen,
in einem extra Fenster immer mitverfolgen(Ansicht Lokalfenster) - aber für den Anfang mal nicht soviel.
Wenn Du keine Lust hast das auszuprobieren ist es auch gut - dachte nur das würde Dir grundsätzlich bei der Fehlersuche in Programmen helfen.
Falls es Dich interessiert:
http://www.ku-eichstaett.de/Fakultaeten/WWF/Lehrstuehle/WI/Lehre/WI_bsc_VBA/HF_sections/content/106673247398977/Skript_Wirtschaftsinformatik
II WS 08089_Teil 1.pdf Seite 32
Was nicht heißen soll, daß ich Dir nicht Fragen direkt beantworte.
Gruß Monika

Beliebteste Forumthreads (12 Monate)

Inhalt in Tabellenblätter schreiben

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalt in Tabellenblätter schreiben

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread