Thema Datum  Von Nutzer Rating
Antwort
Rot Erste leere Zeile in einenem farbigen Bereich finfen
29.01.2015 13:53:29 vanderstorm
NotSolved
29.01.2015 14:33:04 Gast63919
NotSolved
29.01.2015 14:52:30 Gast76819
NotSolved
29.01.2015 15:07:39 vanderstorm
NotSolved
29.01.2015 15:30:36 Gast89358
NotSolved
29.01.2015 15:43:54 vanderstorm
NotSolved
29.01.2015 15:54:37 Gast5702
NotSolved
29.01.2015 15:57:57 Gast63898
NotSolved
29.01.2015 16:14:36 vanderstorm
NotSolved
29.01.2015 16:08:01 Gast16995
NotSolved
29.01.2015 16:20:59 Gast81686
NotSolved
29.01.2015 17:16:03 Gast55329
*
NotSolved
29.01.2015 16:23:58 Gast58600
NotSolved
29.01.2015 17:14:30 Gast19756
NotSolved
30.01.2015 11:58:45 vanderstorm
NotSolved
30.01.2015 13:12:53 vanderstorm
NotSolved
30.01.2015 14:35:59 Gast5802
NotSolved
30.01.2015 19:59:59 vanderstorm
NotSolved
30.01.2015 20:03:03 Gast90792
NotSolved
30.01.2015 20:47:08 Gast9731
NotSolved
02.02.2015 18:38:07 vanderstorm
NotSolved

Ansicht des Beitrags:
Von:
vanderstorm
Datum:
29.01.2015 13:53:29
Views:
497
Rating: Antwort:
  Ja
Thema:
Erste leere Zeile in einenem farbigen Bereich finfen

Hallöchen,

 

ich komme einfach bei meinem kleinen Projekt nicht so richtig weiter.

Ich habe eine Tabelle bestehend aus 5 Spalten. In der ersten Spalte sind Zellberieche entsprechend den Abteilungen in unserer Firma farblich markiert.

Nun wird mittels Userform die Befüllung der restlichen Spalten vorgneommen. Man füllt zunächst entsprechende Textfelder aus und trifft mittels OptionsButton die Entscheidung, zu welcher Abteilung --> Farbbereich der Eintrag gehört. Dieser soll dann in dem gewählten Bereich in die erste freie Zeile geschrieben werden und anschließend soll eine neue leere Zeile eingfeügt werden.

Ich weiß, wie ich die leeren Zeilen finde und ich weiß,  wie ich den Farbindex suchen kann. Leider bekomme ich beide Codes nicht so richtig zusammen gebastelt.

Ich hab schon diverse Foren durchforstet und vieles hin und her probiert, aber der richtige Stein der Weisen war noch nicht dabei.

 

Vielleicht kann mir einer von euch weiterhelfen?

 

Mein bisher erfolgreichstes Codefragment ist dieses hier:

 

  Dim liZeile As Integer
  Dim i, j, x As Integer

If OptionButton3 = True Then
  
        For liZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
            If Range("A" & liZeile).Interior.ColorIndex = 42 Then
               i = liZeile
            End If
   
        Next
        
                Range("A" & i).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
                Range("B" & i).Value = UserForm1.TextBox1
                Range("C" & i).Value = UserForm1.TextBox2
                Range("D" & i).Value = UserForm1.TextBox3
                Range("E" & i).Value = UserForm1.TextBox4
                Range("A" & i).WrapText = True
  
  End If

...hier wird von unten her nach der Farbe gesucht und in die letzte Zeile werden die Einträge geschrieben. Nach leeren Zeile wird nicht gesucht.

Da aber die Tabelle am Beginn noch leer ist und jeder Farbreich (leider notwendig) aus zwei leeren Zeilen besteht und immer nur die letzte Zeile des Farbbreichs aufgegriffen wird, bleibt die erste Zeile stets leer.

Deshalb müsste das Makro so geändert werden, dass die Suche nach der Farbe von oben beginnt, entsprechende Zeile dann einer weiteren Schleife übergeben wird und in diesem Bereich nach der ersten leeren Zeile gesucht wird, da im Laufe der Zeit immer mehr Einträge hinzukommen.

Und eben bei der Kombination der beiden Suchabfragen stehe ich auf dem Schlau.

 

Ich wäre über einen Idee oder einen Denkanstoß sehr Dankbar.

 

vg vanderstorm


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Erste leere Zeile in einenem farbigen Bereich finfen
29.01.2015 13:53:29 vanderstorm
NotSolved
29.01.2015 14:33:04 Gast63919
NotSolved
29.01.2015 14:52:30 Gast76819
NotSolved
29.01.2015 15:07:39 vanderstorm
NotSolved
29.01.2015 15:30:36 Gast89358
NotSolved
29.01.2015 15:43:54 vanderstorm
NotSolved
29.01.2015 15:54:37 Gast5702
NotSolved
29.01.2015 15:57:57 Gast63898
NotSolved
29.01.2015 16:14:36 vanderstorm
NotSolved
29.01.2015 16:08:01 Gast16995
NotSolved
29.01.2015 16:20:59 Gast81686
NotSolved
29.01.2015 17:16:03 Gast55329
*
NotSolved
29.01.2015 16:23:58 Gast58600
NotSolved
29.01.2015 17:14:30 Gast19756
NotSolved
30.01.2015 11:58:45 vanderstorm
NotSolved
30.01.2015 13:12:53 vanderstorm
NotSolved
30.01.2015 14:35:59 Gast5802
NotSolved
30.01.2015 19:59:59 vanderstorm
NotSolved
30.01.2015 20:03:03 Gast90792
NotSolved
30.01.2015 20:47:08 Gast9731
NotSolved
02.02.2015 18:38:07 vanderstorm
NotSolved

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar