Thema Datum  Von Nutzer Rating
Antwort
14.11.2007 02:53:54 Kim
NotSolved
15.11.2007 13:47:26 Jerry
NotSolved
Rot Aw:Aw:Wenn-Funktion
 17.11.2007 17:47:46 Jürgen
NotSolved

Ansicht des Beitrags:
Von:
Jürgen		 Datum:
17.11.2007 17:47:46		 Views:
918		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Wenn-Funktion
Hallo Kim,
Du gehst im Projekt-Explorer mit einem Doppelclick auf die Tabelle, in der sich die Spalte E befindet,
und gibst folgende Ereignis-Prozedur ein

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
SpaltenManipulieren
End If
End Sub

Danach machst Du im Projekt-Explorer einen rechten Mausklick auf "Microsoft Excel Objekte" und fügst über Einfügen/Modul ein neues Modul ein.

In dieses Modul fügst Du folgende Prozedur ein (kannst Du natürlich auch von hier kopieren):

Sub SpaltenManipulieren()
Dim Zeile As Long
Dim Zähler As Integer

Columns("G:I").ClearContents

For Zeile = 21 To 65536
If Cells(Zeile, 5).Value = 1 Then

For Zähler = 6 To 20
Cells(Zeile - Zähler, 7).Value = 1
Next Zähler

For Zähler = 1 To 5
Cells(Zeile - Zähler, 8).Value = 1
Next Zähler

For Zähler = 1 To 2
Cells(Zeile + Zähler, 9).Value = 1
Next Zähler

End If
Next Zeile

End Sub

Immer wenn Du nun eine Änderung in der Spalte E vornimmst, wird die Ereignisprozedur
"Worksheet_Change" aufgerufen, die ihrerseits, dann die Prozedur "SpaltenManipulieren"
Aufruft und ausführt.

Zuerst werden alle Inhalte der Spalten G bis I gelöscht.
Danach werden die Zellen der Spalte E nach dem Wert "1" durchsucht.

Wird eine "1" in Spalte E gefunden werden die Spalten G bis I Deinen Vorgaben entsprechend gefüllt

Gruß Jürgen





Jerry schrieb am 15.11.2007 13:47:26:

Dem Kim kann geholfen werden:

Es gibt eine Eigenschaft Offset(zeile,spalte) - wo sich die befindet müsste ich erst im Buch nachsehen - mit der kann man von der aktuellen Zelle aus um n nach rechts/links: offset(0,n/-n), nach oben: offset(n,0) etc.
Damit findest du immer den Anfang des neuen Bereichs.

Gruss Jerry

Kim schrieb am 14.11.2007 02:53:54:

Meine VBA-Kenntnisse sind leider völlig laienhaft - es wäre toll, wenn mir jemand unter dei Arme greifen könnte.

Hier ist mein Problem:
In der Spalte "E" taucht gelegentlich der Wert "1" auf.
Ich möchte drei neue Spalten generieren, die sich folgendermaßen auszeichnen:

Alle Werte beziehen sich gewissermaßen auf Spalte E.
- Spalte G: soll in den Zeilen [-20 bis -6] vor einer "1" in Spalte E ebenfalls den Wert 1 in G ausgeben.
[Beispielsweise ist in E29 die erste 1: Excel soll in G23-G9 eine 1 anzeigen)
- Spalte H: das gleiche für die Zeilen [-5 bis -1] vor einer 1 in Spalte E
[Bezogen auf E29...also eine 1 in H28-H24]
- Spalte I: [+1 bis +2]
[Bezogen auf E29 ...eine 1 in I30 und I31]

Ich habe es bereits mit einfachen WENN-Verschachtelungen versucht, leider schafft meine Excel-Version (2003) nur eine begrenzte Anzahl an Verschachtelungen.

Wer kann mir weiterhelfen??

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.11.2007 02:53:54 Kim
NotSolved
15.11.2007 13:47:26 Jerry
NotSolved
Rot Aw:Aw:Wenn-Funktion
 17.11.2007 17:47:46 Jürgen
NotSolved