Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1028to1032
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
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBox mittels Modul einfügen!

TextBox mittels Modul einfügen!
03.12.2008 11:21:27
adrian
Hi,
habe ma folgendes probiert, nur klappt es leider noch nicht so ganz!
Will 2 Zellen unterhalb eines jeden Wertes in einem Bereich eine Textbox einfügen.
habe das mir folgend gedacht:
Da ich noch VBA-Anfänger bin und in diversen Büchern nichts dazu finde, wäre es toll wenn mir hier jemand helfen könnte =)
lg
adrian
Aufruf im Hauptsheet:
For Each Cell In Range("ODMListB")
i = 0
If Cell.Value "" Then
Call AddTextbox(Stelle:=Worksheets("Overview").Range("E35").Offset(2, i))
i = i + 6
End If
Next
Module:

Sub AddTextbox(Stelle As Range)
Const TEXTBOX As String = "Forms.TextBox.1"
Dim Objekt As OLEObject
Dim ObForm As MSForms.TEXTBOX
With ActiveSheet
Set Objekt = .OLEObjects.Add(ClassType:=TEXTBOX, _
Left:=Range(Stelle).Left = 180, Top:=Range(Stelle).Top = 90, Width:=Range(Stelle).Width =  _
480, _
Height:=Range(Stelle).Height = 50).Select
Set ObForm = Objekt.Object
With ObForm
.Name = "ODMVolumeBox" & ActiveSheet.OLEObject.Count
.Caption = "ODMVolumeBox" & ActiveSheet.OLEObject.Count
.Enabled = True
End With
ActiveWorkbook.Save
End With
End Sub


6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox mittels VBA einfügen!
06.12.2008 04:53:00
Luc:-?
Hi, Adrian!
1. Was läuft denn nicht?
2. Wie sieht die Proz im "HptSheet" aus, denn das da ist ja nur ein Teil?
3. Soll das automatisiert laufen (&rarr s.2.)?
Gruß Luc :-?
AW: TextBox mittels VBA einfügen!
08.12.2008 13:22:17
adrian
Hi Luc,
im Hauptsheet habe ich einen Bereich "ODMListB", der Spaltenweise (immer 6 Spalten weiter) einen Wert aus anderen Sheets enthält bzw. anzeigt.
Die Range oder Größe bzw. der Inhalt von "ODMListB" variiert!
Die Funktion zum zum Auslesen der Werte "ALLODM_auslesen und übrigen Code habe ich mal weggelassen, weil es wahrsch. unwichtig ist.
Jetzt möchte ich 2 Zellen unterhalb jeder Zelle der Range "ODMListB" eine Textbox mit bestimmter Größe etc. einfügen.
optional:
Schrumpft die Range, sollen überflüssige Textboxen, d.h. welche über denen 2 Zellen oberhalb kein Wert mehr aus dem Bereich "ODMListB" steht, wieder entfernt werden.
lg
adrian
Folgender Codeausschnitt im Hauptsheet:

Sub CodeAusschnitt()
'#### Nochmals Aufnahme aller ODMs für Horizontale Darstellung! ####
Dim areaB As String, ODMBZeile As Long, ODMBSpalte As Long, Found As String, Kontrollzelle As  _
Range
areaB = "ODMListB"
Set rangeListeB = Nothing
Application.Range(areaB).ClearContents
Set rangeZielB = Application.Range(areaB).Range("A1")
Call AllODM_Auslesen(rangeSector:=Worksheets("Overview").Range("ODMListA"))
With rangeListeB
Application.Names(areaB).RefersTo = "='" & .Parent.Name & "'!" & .Address
End With
ODMBZeile = 33
With Datenblatt
ODMBSpalte = .Cells(ODMBZeile, .Columns.Count).End(xlToLeft).Column
Set Kontrollzelle = .Cells(ODMBZeile, ODMBSpalte)
End With
While Found  "Yes"
For Each Cell In Range("ODMListA")
If Cell.Value = Kontrollzelle.Value Then
Found = "Yes"
End If
Next
If Found  "Yes" Then
Kontrollzelle.Value = ""
Set Kontrollzelle = Kontrollzelle.Offset(0, -6)
End If
Wend
For Each Cell In Range("ODMListB")
If Cell.Value  "" Then
AddTextbox Cell.Offset(2, 0)
End If
Next
End Sub


Folgender Code im Modul1: habe fehlermeldung fett unterstrichen


Sub AddTextbox(Stelle As Range)
Const TEXTBOX As String = "Forms.TextBox.1"
Dim Objekt As OLEObject
Dim ObForm As MSForms.TEXTBOX
With ActiveSheet
    Set Objekt = .OLEObjects.Add(ClassType:=TEXTBOX, _
Left:=Range(Stelle).Left, Top:=Range(Stelle).Top, Width:=Range(Stelle).Width, _
Height:=Range(Stelle).Height).Select
Set ObForm = Objekt.Object
With ObForm
.Name = "ODMVolumeBox" & ActiveSheet.OLEObject.Count
.Caption = "ODMVolumeBox" & ActiveSheet.OLEObject.Count
.Enabled = True
End With
End With
End Sub


Anzeige
AW: TextBox mittels VBA einfügen!
08.12.2008 13:47:44
adrian
Hi Luc,
lag daran, das ich die doppelt gemoppelt mit Range(Stelle).left die Location deklariert habe > muss lauten Stelle.left etc.
ABER
jetzt funktioniert es nur fast =/
er bringt die erste textbox richtig an, nur dann gibt er "Runtime Error 424", Object required aus und bricht ab =(
lg
adrian
AW: TextBox mittels VBA einfügen!
08.12.2008 16:44:04
adrian
Hi Luc,
es Funktioniert nun, doch hiermit bastel ich jetzt daran, dass er mir nicht immer wieder neue Textboxen in die Zellen einfügt, bzw die alten vorher löscht =/
mit:
MainSheet:
For Each Cell In Range("ODMListB")
If Cell.Value "" Then
Cell.Offset(2, 0).Clear
AddTextbox Cell.Offset(2, 0)
End If
Next
funktioniert es nicht wirklich =(
vll. hast du ja noch ne idee hierfür und ggf. noch Tipps bzgl. Aussehen etc.
Code im Modul sieht jetzt wie folgt aus:

Sub AddTextbox(Stelle As Range)
Dim Objekt As OLEObject
Dim TB As MSForms.TEXTBOX
With ActiveSheet
Set Objekt = .OLEObjects.Add(ClassType:= _
"Forms.TextBox.1", Left:=Stelle.Left, Top:=Stelle.Top, _
Width:=Stelle.Width, Height:=Stelle.Height)
Set TB = Objekt.Object
With TB
.Name = "ODMVolumeBox" & ActiveSheet.OLEObjects.Count
End With
End With
End Sub


lg
adrian

Anzeige
Modulcode sieht jetzt besser aus! Mich...
10.12.2008 04:41:50
Luc:-?
...hatte auch das Select im Set-Befehl gestört, Adrian!
Ansonsten bin ich mir nicht sicher, ob Clear die richtige Methode ist, auch Objekte auf einer Zelle zu löschen... ;-)
AddTextbox Cell.Offset(2, 0) ist schlicht Quatsch! Das hast du doch unten schon besser gemacht! Hier musst du wohl entweder erst die Zelle auswählen und dann mit Selection arbeiten, was nicht so toll ist, oder das gleich auf die Zelle beziehen. Sieh dir mal die Bspp in der VBE-Hilfe an!
Falls dann immer noch Probleme, hier wieder melden - finde ich schon, wenn ich auch dran denke... ;-)
Gruß Luc :-?
Anzeige
AW: Modulcode sieht jetzt besser aus! Mich...
10.12.2008 11:11:00
adrian
Hi Luc,
ja mir ist es auch bald gekommen, dass es mit clear und sonst allem was sich auf Zellen bezieht nicht funktioniert =)
Ist auch logisch, weil das Element bzw. die TextBox nicht in die Zelle eingefügt, sondern nur dort plaziert ist ;-)
denke zum löschen jetzt an folgendes: die erstellten Textboxen über den Namen alle raushauen und mit einem Zähler nacheinander ansprechen:
Funktioniert nicht so ganz, da bei ausführen des Events nur den letzte count gelöscht wird und dann kommt die Errormeldung: Method 'Name' of Object 'IMdcText' failed =(
bastel noch daran....hast du ein link zu den Bspp in der VB.-Hilfe?
lg
adrian
Modul:

Sub DeleteTextBox(Bereich As Range)
Dim TB As MSForms.TEXTBOX
Dim Objekt As OLEObject
Dim Anzahl As Integer, Stelle As Integer, Zaehler As Integer
Anzahl = Bereich.Cells.Count
For Zaehler = 0 To Anzahl - 1
With ActiveSheet
Stelle = .OLEObjects.Count - Zaehler
For Each Objekt In .OLEObjects
If Objekt.Name = "ODMVolumeBox" & Stelle Then
Objekt.Delete
End If
Next
End With
Next
End Sub


Aufruf im Hauptsheet:
DeleteTextBox Bereich:=Worksheets("overview").Range("ODMListB")

Anzeige

302 Forumthreads zu ähnlichen Themen

unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Anzeige
Zwei Dinge in einer Zelle
Sabine

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...
29.08.2008 15:25:00
Thread-ID: 1005860
2 Beiträge
Cbo Eintrag mit Erklärungstext
Peter

Hallo Experten,
in einer Combobox sind ca 30 Schlüsselnummern eingetragen. Zur Erklärung: jede Schlüsselnummer beschreibt einen Fehler auf einem Röntgenfilm. Gibt es irgendeine Möglichkeit, das bei Auswahl eines Schlüssels zur Orientierung ein Hilfetext aufgerufen wird, bei der Übernahme in...
03.09.2008 10:56:00
Thread-ID: 1007035
3 Beiträge
Anzeige
Tabellenblattname in Zelle eintragen
obelix-xxl

Hallo,
ich habe mir eine Tabellenblatt als Vorlage erarbeitet und dieser Tabelle auch den Namen Vorlage gegeben.
Mit einem Makro kann ich nun über die zugewiesene Tastenkombination diese Tabelle an das Ende der Arbeitsmappe kopieren. Dabei fragt das Makro nach dem Tabellenblattnamen. Di...
04.09.2008 21:27:29
Thread-ID: 1007526
3 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Zelle A2 in Tabelle "Daten" ansprechen
Wolfgang

Hallo,
mit untenstehendem Auszug aus einem Code wird ein Textfeld in einem UF mit Daten aus einem anderen Textfeld des UF "beschickt"; Was müßte ich verändern (kriege das nicht hin), wenn ich nun das ausgeblendete Tabellenblatt "Daten" ansprechen möchte und den Inhalt aus "A2" importieren m...
23.09.2008 09:01:00
Thread-ID: 1011622
4 Beiträge
Inhalt einer Tabelle in 2. Tabelle kopieren
Thomas

Hallo Excel Gemeinde,
Den Inhalt einer Tabelle, möchte ich in eine zweite Tabelle in der gleichen Arbeitsmappe kopieren, das funktioniert schon mal.
Die zu kopierenden Daten sollen aber am Ende der bereits vorhandenen Daten angefügt werden, bisher überschreibt es mir diese aber ;-(
...
24.09.2008 22:19:00
Thread-ID: 1012186
3 Beiträge
Anzeige

Links zu Excel-Dialogen

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
2
1
2
5
2
6
4
3
2
3
6
4
1
3
9
2
1
4
3
6
3
15
13
6