Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
644to648
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
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahl aus Liste (ComboBox?) in Zelle eintragen

Auswahl aus Liste (ComboBox?) in Zelle eintragen
04.08.2005 09:08:06
Josef
Hallo!
Ich habe z.B. folgende Daten in der Tabelle2:
SpalteA, SpalteB
999 ,Keine Zuordnung
101 ,Beratung
102 ,Extraktion eines Zahnes inkl. Anästhesie und Injektionsmittel
103 ,Anästhesie
104 ,Visite
In Tabelle 1 sollte jetzt in einer Zelle, wenn in einer ComboBox "Visite" aktiviert wird, die Zahl 104 eingetragen werden.
Wie würde ich bitte 1. die Daten in die ComboBox und 2. die richtige Zahl in die Zelle bekommen?
Ginge das bitte mittels VBA Text?
Danke
Josef

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahl aus Liste (ComboBox?) in Zelle eintrag
04.08.2005 09:55:08
Unbekannter
Du musst alles noch anpassen und das select case ist nur ein beispiel das musst du auch noch dementsprechen ändern.

Private Sub combobox1_Change()
Select Case combobox1
Case Is = "Visite"
Range("a1").Value = 104
End Select
End Sub



Private Sub CommandButton1_Click()
Dim i, ende
ende = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To ende
With combobox1
.AddItem Range("b" & i).Value
End With
Next i
End Sub

Gruß UN1
AW: Auswahl aus Liste (ComboBox?) in Zelle eintrag
04.08.2005 10:41:01
Josef
Hallo Un1
So würde es glaube ich passen.

Private Sub combobox1_Change()
Select Case ComboBox1
Case "Beratung"
'Range("a1").Value = 101
ActiveCell.Value = 101
Case "Extraktion eines Zahnes inkl. Anästhesie und Injektionsmittel"
ActiveCell.Value = 102
End Select
End Sub

Können die Daten schon beim Öffnen der Userform in die ComboBox eingelesen werden?
Danke
Josef
Anzeige
AW: Auswahl aus Liste (ComboBox?) in Zelle eintrag
04.08.2005 10:44:20
Unbekannter
Ob`s passt kann ich dir nicht sagen, aber wie beim öffnen der Userform die Combo eingelesen wird schon.

Private Sub UserForm_Activate()
'dein code
End Sub

Nachtrag
04.08.2005 10:47:16
Josef
Hallo UN1
Eine Frage hätte ich bitte noch:
Wenn ich jetzt die Daten in einem Arbeitsblatt in einem Addin habe wie müßte man dann den Code noch ändern, wenn der aufruf der UserForm in einem anderen Arbeitsblatt erfolgt?
Dim i, ende
ende = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To ende
With ComboBox1
.AddItem Range("b" & i).Value
End With
Next i
Danke
Josef
Anzeige
AW: Nachtrag
04.08.2005 10:52:49
Unbekannter
Gar nicht,wenn dein Blatt oder was auch immer eine Userform mit dem Namen der unten steht hat geht trotzdem(Nur der Name ist wichtig)
z.b.

Private Sub UserForm_Activate()
End Sub



Private Sub MeineUserForm_Activate()
End Sub

AW: Nachtrag
04.08.2005 11:00:46
Josef
Hallo UN11
Also die Case Sache würde bestens passen.
Nur beim unten stehenden Code muß das Arbeitsblatt(z.B. Tabelle1) mit den Daten aktiviert sein sonst werden die Daten nicht in die ComboBox eingelesen, wenn der Aufruf der Userform in einem anderen Arbeitsblatt(z.B. Tabelle2)erfolgt.

Private Sub CommandButton1_Click()
Dim i, ende
ende = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To ende
With combobox1
.AddItem Range("b" & i).Value
End With
Next i
End Sub

Josef
Anzeige
AW: Nachtrag
04.08.2005 11:04:47
Unbekannter
Nein,du legst die Userform ja in jeder neuen Mappe neu an und die hat ein namen und nur den musst du änder und dann den code rein und schon egal in was für einer mappe du das machen willst solange der name der userform stimmt wird der code immer ausgeführt wenn sie aktiviert wird.Kurz bis auf den namen ist es egal wo sie ist
AW: Nachtrag
04.08.2005 11:19:01
Josef
Hallo nochmals!
Ich glaube ich habe mich nicht richtig artikuliert. tut mir leid, ist mein Fehler gewesen.
Nochmals mein Problem:
Ich habe in einem Addin in einem Arbeitsblatt die Daten stehen welche dann in die UserForm in die Combobox eingelesen werden, aber nur dann eingelesen werden, wenn dieses Arbeitsblatt aktiviert ist.Ist dieses Arbeitsblatt aktiviert, so funktioniert Dein Code bestens und ohne Fehler.
Die Userform wird jedoch nicht immer neu angelegt, sondern ist im Addin ebenfalls vorhanden.
Wenn ich jetzt dieses Addin ausführe,so wird erst einmal eine neue Arbeitsmappe angelegt und sämtliche sonstigen Makros abgehandelt. Wenn ich jetzt in diesem Arbeitsblatt die Userform öffne so können keine Daten eingelesen werden, weil ja keine im aktiven Arbeitsblatt vorhanden sind.Die Daten sind im Addin in einem Arbeitsblatt vorhanden.
Im nachfolgenden Code

Sub Eintrag()
Dim i, ende
ende = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To ende
With ComboBox1
.AddItem Range("b" & i).Value
End With
Next i
End Sub

kann nicht das Arbeitsblatt im Addin abgefragt werden sondern nur das aktive Arbeitsblatt.
Auf jeden Fall danke ich dir voerst einmal bestens für Deine Mühe und Deine Hilfe.
Josef
Anzeige
AW: Nachtrag
04.08.2005 11:46:30
Unbekannter
Ich kenne mich nicht mit Addins aus und wie ich das verstanden habe musst du also auf das Addin zugreifen und da kann ich dir nicht mehr helfen,sorry
Mache ein neuen Thread auf und schildere dein Problem dann bekommst du deine Antwort.
AW: Nachtrag
04.08.2005 11:55:23
Josef
Hallo!
Auf jeden Fall Danke nochmals für Deine Mühe.
Schönen Tag noch.
Josef

317 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Syntax für benutzerdefiniertes Zellenformat
BF

Hallo Forum,
kennt jemand eine kurze Beschreibung im Internet zur Syntax des benutzerdefinierten Zellenformats (Zellen formatieren - Zahlen - Benutzerdefiniert - Typ)?
Ich möchte jetzt z.B. statt einer Null einen Strich anzeigen...
Eine allgemeine Anleitung wäre klasse, da ich schon...
04.10.2008 16:17:00
Thread-ID: 1014157
3 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Anzeige
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Benutzername Datum Zeit in Zelle
Michael

Hallo zusammen,
ich suche nach einem Makro, das einen Benutzernamen aus Tabelle1 Zelle B2, das aktuelle Datum (JJJJ.MM.TT) und die Zeit der Änderung Zeit (hh:mm:ss) bei Änderungen in einer Zeile der Spalten A bis AT in die Zelle AU2 usw. schreibt.
Die Suche hat mich leider nicht weiterg...
27.12.2008 19:52:00
Thread-ID: 1035469
15 Beiträge
Benutzername Datum Zeit in Zelle
Micha

Hallo zusammen,
am 29.12.2008 hat mir Peter Feustel bei einem Problem geholfen. Klappte auch alles wunderbar.
Archiv: https://www.herber.de/forum/archiv/1032to1036/t1035469.htm
(vom Archiv aus kann man Beiträge wohl nicht mehr als "Beitrag offen" setzen?!)
Nun macht das Makro "S...
25.01.2009 19:19:50
Thread-ID: 1043657
9 Beiträge
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Lange Matrixformel mittels VBA in Zelle eintragen
hoffi

Hallo zusammen,
auch nach einer längeren Internetrecherche konnte ich folgendes Problem leider nicht lösen.
Ich möchte in Excel 2003 mittels VBA eine Matrixformel in eine Zelle schreiben lassen. Der Programmiercode sieht vereinfacht so aus:
A = "=sum(if(XXX,YYY,ZZZ))"
Cells(1,1)...
25.03.2009 13:09:25
Thread-ID: 1063729
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox CommandButton

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
2
2
2
7
10
7
14
8
5
4
4
8
5
10
2
3
2
1
2
2
8
5
2
2
2