Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per VBA bedingte (?) Formatierung

Per VBA bedingte (?) Formatierung
05.07.2007 08:52:24
Lenhard
Moin Ihr "Excelianer"!
Folgendes würde ich gerne via VBA in einem Arbeitsblatt hinterlegen:
Wenn in der Spalte C ab der 6. Zeile "Eingang" steht, dann sollen die Zellen ab Spalte D bis AG Zahlen POSITIV machen.
Wenn in der Spalte C ab der 6. Zeile "Ausgang" steht, dann sollen die Zellen ab Spalte D bis AG Zahlen NEGATIV machen.
Das ganze soll von der Zeile 6 bis zur Zeile 750 gelten
------------------------------------
Zur Info: Die Zellen D6:AG750 sind "Benutzerdefiniert" mit "00;[Rot]-00" formatiert.
Wie gesagt, wenn möglich via VBA im Tabellenblatt hinterlegt. Ungern durch direkte Bearbeitung/Formatierung im Tabellenblatt.
Vielen Dank im Voraus!
Gruß aus dem hohen Norden!
Lenhard

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per VBA bedingte (?) Formatierung
05.07.2007 09:20:26
Sven
Hi Lenhard,
was meinst du mit "POSITIV machen" ?
meinst du z.b. die Zahl -7 soll zu +7 umgewandelt werden?
Oder einfach ein WAHR in die Zelle schreiben?
Gruß

AW: Per VBA bedingte (?) Formatierung
05.07.2007 10:03:30
Lenhard
Moin Hajo! Moin Sven!
Erst mal vielen Dank für Eure Antworten!!
Ich habe Deinen Code, Hajo, erst mal überflogen und ich glaube Du hast mich richtig verstanden. Aber auch hier melde ich mich heute Nachmittag bzw. Abends noch mal.
Zu Dir Sven: Ich meine ganz einfach +3 oder -3 oder +13 oder -7 usw. usw. . Nix mit WAHR. Ich glaube aber, dass mir Hajo's Vorschlag helfen wird! Nur wenn Du im Interesse anderer Forum-User noch eine andere Lösung hast: Her damit! Aber dennoch: Vielen vielen Dank auch an Dich!!
Bis dann!
Gruß
Lenhard

Anzeige
AW: Per VBA bedingte (?) Formatierung
05.07.2007 09:23:00
Hajo_Zi
Hallo Lenhard,
In VBA unter der Tabelle

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ini As Integer
Dim InJ As Integer
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 And Target.Row >= 6 And Target.Row  "" Then Cells(Target.Row, InJ) = Abs(Cells(Target.Row,  _
InJ)) * Ini
Next InJ
Application.EnableEvents = True
End If
End Sub



AW: Per VBA bedingte (?) Formatierung
05.07.2007 19:07:00
Lenhard
Hallo Hajo!
So! ...nun habe ich Zeit gefunden, mich mit Deinem Vorschlag auseinander zu setzen. Es funktioniert leider nicht. :-((
Die Wörter "Eingang" und "Ausgang" werden immer von einer ComboBox aus einem UserForm in die Spalte 3 übergeben ...hat dass vielleicht Einfluss auf die Funktionalität?!
Danke nochmals!
Gruß
Lenhard

Anzeige
AW: Per VBA bedingte (?) Formatierung
05.07.2007 19:12:36
Hajo_Zi
Hallo,
beim schreiben per VBA wird kein Change Ereignis ausgelöst. Das braucht ja auch nicht, man kann den Code des Change Ereignis ja dort einbinden.
Gruß Hajo

AW: Per VBA bedingte (?) Formatierung
05.07.2007 19:32:52
Lenhard
Hallo Hajo!
Danke! Das Du Dich meldest!! ...und ich habe auch inzwischen etwas heraus gefunden. Aber zunächst sei mir bitte nicht böse, aber bin leider lange nicht so fit in VBA wie Du.

...man kann den Code des Change Ereignis ja dort einbinden

...meinst Du in das UserForm, wenn die Werte übergeben werden?!?
Also wenn ich das Wort "Ausgang" so in eine Zelle der 3. Spalte schreibe und mit ENTER bestätige, dann werden alle Zahlen in der betreffenden Zeile negativ. DAS FUNKTIONIERT DANN!!!
Nur wenn das Wort "Ausagng" aus der CB des UF übergeben wird, funktioniert es nicht.
Übrigens: In der Spalte 3 sind die Zellen primär mit "Zahl" und "0" Dezimalstellen formatiert, nicht als Text.
Gruß
Lenhard

Anzeige
AW: Per VBA bedingte (?) Formatierung
05.07.2007 19:39:00
Hajo_Zi
Hallo Lenhard,
ich sehe meine Code nicht, aber ich vermute die Formatierung der Zelle hat keinenm Einfluß.
Wie Du das in Deiner Datei umgesetzt hast kann ich nichts schreiben da ich es ablehne über das Internet auf fremde Rechner zu schauen.
Gruß Hajo

AW: Per VBA bedingte (?) Formatierung
05.07.2007 20:11:00
Lenhard
Hallo Hajo!!
Recht hast Du! ...und es wäre ja auch am einfachsten, wenn ich eine Beispieldatei hochlade. Mein Problem ist leider immer nur, dass meine Projekte so umfangreich sind, dass die Dateien sehr groß sind... ...und da eine Quantitätsbegrenzung fürs Hochladen hier im Forum besteht...
Aber ich glaube, ich habe das Problem mittlerweile gelöst: Mein UserForm übergibt natürlich nicht nur den Inhalt dieser ComboBox ("Eingang" oder "Ausgang"), da sind auch ein paar Textboxen. Lange Rede, kurzer Sinn, ich habe einfach die Übergabe der ComboBox an das Tabellenblatt an die letzte Stelle im VBA-Skript gesetzt. Das wirkt dann in der betreffenden Zelle der Spalte 3 so, als wenn ich "Enter" drücken würde und nun funktioniert es!!
Sollte mein Gedankengang vom Grundsätzlichen her so nicht richtig sein, wäre ich für konstruktive Kritik sehr dankbar!
Danke für alles, Hajo!! Du hast mir - wieder mal - sehr geholfen!!
Gruß
Lenhard
Anzeige

311 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Zellenformatierung mit Blattschutz
donald

Hallo ihr vielen Helfer,
ich möchte es gerne zulassen, dass man die Zellen, zeilen und Spalten formatieren sowie auf das Blatt gelegte textfelder bearbeiten kann, obwohl der Blattschutz aktiv ist. Das kann man zwar beim Schutz einstellen, mein Problem ist aber, dass sich diese Einstellunge...
05.12.2008 08:25:00
Thread-ID: 1030343
2 Beiträge
Anzeige
Bedingte Formatierung mit VBA-Modul
Fuhrer

Hallo zusammen
Ich will mit einem VBA-Modul einen bestimmten Bereich nach definierten Kriterien einfärben.
Das Modul wird später einem Comnand-Button Zugeordent (dies ist für mich kein Problem).
Nun konnte ich im Internet ein entprechendes Makro finden. Jedoch ist dieses Makro nur f...
19.01.2009 18:03:57
Thread-ID: 1041611
6 Beiträge
Formatierung mit VBA
Dave

Hallo zusammen
Ich will Zellen aufgrund des Inhalts, der mit einer Formel geholt wird, formatieren.
Ich habe es in der folgenden Datei versucht, jedoch wird die Formatierung nicht automatisch angepasst, sondern die Zelle muss jedesmal angewählt werden.
Könnt ihr Euch das mal in der...
27.01.2009 08:20:03
Thread-ID: 1044069
10 Beiträge
Bedinte Formatierung mittels VBA
Dinci

Hallo zusammen.
Ich habe eine Liste aus der ich verschiedene Ausagen herausziehen möchte.
Dieses kann man ja gut mit der bedingten Formatierung durchführen.
Da es für Anwender konzipiert ist, möchte ich, dass der Anwender diese Aussagen selber definiert.
Aus diesem Grund habe...
27.01.2009 13:36:57
Thread-ID: 1044216
5 Beiträge
"Bedingte Formatierung" kopieren
Susanne

Hallo,
wenn ich unter Excel 2007 die bedingten Formatierungen von Zelle A1 via Innhalte einfügen auf Zelle A2 kopieren, werden die dort eventuell vorhandenen bedingten Formatierungen (im Gegensatz zu Excel 2003!) nicht automatisch gelöscht bzw. überschrieben.
Wie ersetze ich bei Excel 2...
08.02.2009 20:33:51
Thread-ID: 1048473
5 Beiträge
Inhalt Textfelder mit Formatierung kopieren
Tobias

Hi zusammen,
ich hab folgenes Problem. Ich habe 2 Textfelder (NICHT aus den Steuerelementen) und möchte den Inhalt des einen Textfeldes in das andere kopieren wobei jedoch die Formatierung beibehalten wird. Ich habe schon alles mögliche versucht (siehe Anhang) aber es funktioniert leider ni...
10.02.2009 11:41:00
Thread-ID: 1048975
10 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox TextBox

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
1
5
1
19
5
9
4
4
9
3
4
1
5
3
4
2
3
1
5
2
4
1
2
3