Thema Datum  Von Nutzer Rating
Antwort
07.05.2014 14:19:53 Caro
NotSolved
Blau Je nach Auswahl im Kombinationsfeld bestimmte Spalte kopieren
 08.05.2014 12:11:25 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
08.05.2014 12:11:25		 Views:
639		 Rating:
     
Antwort:
  Ja
Thema:
Je nach Auswahl im Kombinationsfeld bestimmte Spalte kopieren

Hallo Caro,

eine Schleife erscheint mir nicht notwendig zu sein.

Ich gehe davon aus, dass wirklich Auswahl meinst und nicht auf eine Eingabe eines neuen Textes ins Eingabefeld der Combobox reagieren willst.
Ferner nehme ich an, dass sich für alle Auswahlen nur die Spaltennummer, nicht aber der Zeilenbereich unterschiedlich ist.
Wenn die Reihenfolge der Combobox-Einträge genau der Reihenfolge der Spalten entspricht, keine Leerspalten enthalten sind und die erste Datenspalte C ist, sollte

b = Chr(ComboBox1.ListIndex + 67)
Sheets("Datenbank").Range("C20:C8779").Value = Sheets("Vergleich").Range(b + "15:" + b + "9000").Value

das Gewünschte liefern.
 
Wenn Spalten- und Eintragsreihenfolgen sich unterscheiden, empfehle ich, die Combobox zweispaltig auszulegen und den Spaltenbuchstaben in die zweite Spalte zu schreiben. Dann sollte

b = ComboBox1.List(ComboBox1.ListIndex, 1)
Sheets("Datenbank").Range("C20:C8779").Value = Sheets("Vergleich").Range(b + "15:" + b + "9000").Value

funktionieren.
 
Sollte der Zeilenbereich variabel sein, kann in die zweite Spalte der zu kopierende Bereich eingefügt werden. Dann sollte 
 
Sheets("Datenbank").Range("C20:C8779").Value=""
b = ComboBox1.List(ComboBox1.ListIndex, 1)
d = 19 + Sheets("Vergleich").Range(b).Rows.Count
Sheets("Datenbank").Range("C20:C" + CStr(d)).Value = Sheets("Vergleich").Range(b).Value
 
funktionieren.
 
Gruß
Holger

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
07.05.2014 14:19:53 Caro
NotSolved
Blau Je nach Auswahl im Kombinationsfeld bestimmte Spalte kopieren
 08.05.2014 12:11:25 Holger
NotSolved