Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

einfügen von vba-code

einfügen von vba-code
13.10.2004 09:36:26
vba-code
tag.. in dem thread hier unten wurde mir ein vba-code gegeben, doch leider weiss ich nicht, wie ich damit umgehen soll. auch hat mir das ganze noch nicht wirklich bei der problemlösung geholfen....
könnte bitte noch jemand sich meiner annehmen?
https://www.herber.de/forum/messages/499250.html

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: einfügen von vba-code
vba-code
Hi Philipp,
Der VBA-Code muß in ein Modul des VBE eingefügt werden.
Markiere den VBA-Code und dann kopieren über die Zwischenablage.
Dann folgende Schritte:
1. ALT - F11
2. Menü EINFÜGEN - Menüpunkt Modul
3. im linken Fenster "Modul1" auswählen
4. im rechten Fenster über Zwischenlage den Code einfügen
Jetzt kannst Du den VBA-Code über EXTRAS-MAKRO-Schaltfläche AUSFÜHREN dieses
Makro ausführen lassen oder Du weißt dem Makro eine Schaltfläche oder ein Symbol
zu.
Das Beispiel von Peter dürfte Deine Anforderungen genügen.
Jan
AW: einfügen von vba-code
vba-code 

Sub Kumulieren()
Dim n2&, n1&, n3&
n1 = 2: n2 = 2: n3 = 2
Do
If Cells(n1, 1) = Cells(n2, 3) Then
Cells(n3, 8) = Cells(n1, 1)
Cells(n3, 9) = Cells(n2, 4) - Cells(n1, 2)
n1 = n1 + 1: n2 = n2 + 1
ElseIf Cells(n1, 1) > Cells(n2, 3) Or Cells(n1, 1) = Empty Then
Cells(n3, 8) = Cells(n2, 3)
Cells(n3, 9) = Cells(n2, 4)
n2 = n2 + 1
ElseIf Cells(n1, 1) < Cells(n2, 3) Or Cells(n2, 3) = Empty Then
Cells(n3, 8) = Cells(n1, 1)
Cells(n3, 9) = -Cells(n1, 2)
n1 = n1 + 1
End If
n3 = n3 + 1
If Cells(n1, 1) = Empty And Cells(n2, 3) = Empty Then Exit Do
Loop
End Sub

ich habe diesen code eingefügt. das makro kann ich jetzt über extras->makro-> makros, dann auf ausführen, starten, aber es passiert sich nichts. muss ich nicht irgendwas markieren, oder so?
Anzeige
AW: einfügen von vba-code
vba-code
Hi Philipp,
Deine Beispieltabelle wird durchsucht und die entsprechenden Werte in der
Spalte I eingetragen, so wie Du es wolltest. Lösche mal die Werte der Spalte I
und starte nochmal das Makro. Jetzt solltest Du die Veränderungen sehen können.
Der VBA-Code muß natürlich in eine Modul Deiner Beispielarbeitsmappe
kopiert werden und das aktive Tabellenblatt muß Dein Beispieltabellenblatt sein.
Jan
AW: einfügen von vba-code
vba-code
das beste wäre es jetzt noch, wenn das ergebnis gleich geordnet würde... das klappt noch nicht wirklich so.. sonst aber schon super....
AW: einfügen von vba-code
vba-code
Hi Philipp,
Wonach soll sortiert werden?
Jan
Anzeige
AW: einfügen von vba-code
vba-code
am besten nach fortlaufenden nummern.... macht er aber glaube ich... hat nur nicht geklappt, als die zahlen völlig durcheinander waren...
wie kann ich den script anpassen... mit welchen variablen muss ich das machen, dass er in einen anderen bereich schreibt und einen anderen quellbereich hat?
AW: einfügen von vba-code
vba-code
Hi Philipp,
Ich denke Du solltest das komplette Problem beschreiben.
- Quellbereich in einem Tabellenblatt der gleichen Arbeitsmappe oder einer anderen
Arbeitsmappe?
- Wie ist Dein Quellbereich genau aufgebaut? Wie in Deinem Beispiel beschrieben
(Ident-Nr in Spalte A und C, Werte in Spalte B und D) oder ist eine anderer Aufbau
vorhanden?
- Soll Dein Zielbereich mit den Ident-Nr automatisch soriert aufgebaut werden
aus den im Quellbereich definierten Ident-Nr.?
Jan
Anzeige
AW: einfügen von vba-code
vba-code
der quellbereich ist in etwa so aufgebaut wie im beispiel... es kann sein, dass noch eine spalte zwischendrin ist, aber ich glaube die zahlen in den klammern hinter den cells (n2, 3) da gibt die 3 die spalte an, in dem fall c, oder? ich hab mir das erstmal so erklärt.. unklar ist mir vom quellcode her noch das n1, n2, n3...
im zielbereich sollen die identnummern automatisch von 1 bis unendlich sortiert werden, mit den zugehörigen werten.
so ist das makro erstmal klasse. sogar noch eine weile... genau das habe ich gesucht.... ist es relativ rechenunaufwändig, oder braucht es ne weile zum rechnen?
hoffe du konntest trotz der etwas verwirrenden formulierung folgen...
Anzeige
AW: einfügen von vba-code
vba-code
Hi Philipp,
n1 bis n3 sind Variablen für die Zeilennummern der Spalten A, C und für den Zielbereich
H und I. Es werden unterschiedliche Variablen für die Zeilennummer gewählt, weil
die Zeilennummer Quellbereich - Zielbereich auch unterschiedlich ist.
Durch If - Then - Else - Anweisungen werden die verschiedenen Fälle
überprüft ( Ident-Nr 1 = Ident-Nr 2; Ident-Nr 1 > Ident-Nr 2;Ident-Nr 1 je nach zutreffenden Fall werden dann im Zielbereich die Ident-Nr in Spalte H
und der berechnete Wert in Spalte I geschrieben.
Die Do - Loop - Schleife wird so lange ausgeführt bis, in der Spalte A und C keine
Ident-Nr vorhanden sind.
Mit dem zweiten Teil Deiner Ausführungen kann ich nichts anfangen.
Jan
Anzeige

305 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 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
16
5
3
7
4
3
12
5
2
1
2
7
6
2
5
3
2
2
4
2
4
4
7
4
4