Inhalt in Tabellenblätter schreiben

StefanS · 2009-05-12T17:38:14+02:00

Hallo, kurz vor Feierabend hätte ich noch eine kleine Frage an Euch: Wie stelle ich es an, dass wenn der Inhalt der Zelle (1, 6) doppelt oder mehrfach vorkommt, das Register mit der nächsten Zahl beschrieben wird. Beispiel: Zelle (1, 6) hat den Wert 11 und folgt 4x untereinander, danach folgt der Wert 12 usw. Jetzt soll nicht 4-mal je ein Register mit den Inhalt von 11 beschrieben werden, sondern der nächste Register gleich mit 12 weitermachen. Mein VBA-Code sieht bis hierhin wie folgt aus: 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

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

Inhalt in Tabellenblätter schreiben

Forumthread: Inhalt in Tabellenblätter schreiben

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Inhalt in Tabellenblätter schreiben

Forumthread: Inhalt in Tabellenblätter schreiben

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread