Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aus UF in Tabelle einfügen

Forumthread: aus UF in Tabelle einfügen

aus UF in Tabelle einfügen
21.05.2020 08:15:58
Werner.B
Guten Morgen,
ich habe einmal direkt eine Beispielsmappe angefügt, um meine Frage zu erläutern. - Auf dem UF befinden sich 7 Textboxes. Ich würde gerne den Text der jeweiligen Box, sofern sich hierin Text befindet, in eine vorbestimmte Zelle in Spalte A der ausgeblendeten Tabelle2 einfügen. Irgendetwas mache ich offensichtlich falsch, weil der Code immer nur den obersten Eintrag und nicht die folgenden Einträge gleichzeitig übernimmt. Ich wäre sehr dankbar mir Hilfestellung zu geben, was ich da falsch gemacht habe. Weiterhin soll dann der Bereich A1:A9 in die Windows Zwischenablage eingefügt werden, wäre denkbar, dieses ohne leere Zellen zu erreichen? Ich bedanke mich schon jetzt ganz herzlich für die Rückmeldungen, viele Grüße Werner.B
https://www.herber.de/bbs/user/137662.xls
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: aus UF in Tabelle einfügen
21.05.2020 08:26:49
Hajo_Zi 

Option Explicit
Private Sub CommandButton1_Click()
With Worksheets("Tabelle2")
'If TextBox1.Text  "" Then
[A1] = "Überlegt wurde der Besuch folgender Module:" '& Chr(10) & TextBox1.Text & Chr( _
10) & "Wochen" '& TextBox2.Text & Chr(10) & TextBox3.Text & Chr(10) & TextBox4.Text & Chr(10)
[A1] = Application.Substitute([A1], Chr(10), " ")
Range("A2:A8").ClearContents
'Mod1
If TextBox1.Text  "" Then
[A2] = "Modul1" & Chr(10) & TextBox1.Text & Chr(10) & "Woche/n"
[A2] = Application.Substitute([A2], Chr(10), " ")
End If
'Mod2
If TextBox2.Text  "" Then
[A3] = "Modul2" & Chr(10) & TextBox2.Text & Chr(10) & Chr(10) & "Woche/n"
[A3] = Application.Substitute([A3], Chr(10), " ")
End If
'Mod3
If TextBox3.Text  "" Then
[A4] = "Modul3" & Chr(10) & TextBox3.Text & Chr(10) & Chr(10) & "Woche/n"
[A4] = Application.Substitute([A4], Chr(10), " ")
End If
'Mod4
If TextBox4.Text  "" Then
[A5] = "Modul4" & Chr(10) & TextBox4.Text & Chr(10) & Chr(10) & "Woche/n"
[A5] = Application.Substitute([A5], Chr(10), " ")
End If
'Mod 5
If TextBox5.Text  "" Then
[A6] = "Modul5" & Chr(10) & TextBox5.Text & Chr(10) & Chr(10) & "Woche/n"
[A6] = Application.Substitute([A6], Chr(10), " ")
End If
'Mod 6
If TextBox6.Text  "" Then
[A7] = "Modul6" & Chr(10) & TextBox6.Text & Chr(10) & Chr(10) & "Woche/n"
[A7] = Application.Substitute([A7], Chr(10), " ")
End If
'Mod 7
If TextBox7.Text  "" Then
[A8] = "Modul7" & Chr(10) & TextBox7.Text & Chr(10) & Chr(10) & "Woche/n"
[A8] = Application.Substitute([A8], Chr(10), " ")
End If
End With
End Sub

Anzeige
AW: aus UF in Tabelle einfügen
21.05.2020 08:27:15
Hajo_Zi 

Option Explicit
Private Sub CommandButton1_Click()
With Worksheets("Tabelle2")
'If TextBox1.Text  "" Then
[A1] = "Überlegt wurde der Besuch folgender Module:" '& Chr(10) & TextBox1.Text & Chr( _
10) & "Wochen" '& TextBox2.Text & Chr(10) & TextBox3.Text & Chr(10) & TextBox4.Text & Chr(10)
[A1] = Application.Substitute([A1], Chr(10), " ")
Range("A2:A8").ClearContents
'Mod1
If TextBox1.Text  "" Then
[A2] = "Modul1" & Chr(10) & TextBox1.Text & Chr(10) & "Woche/n"
[A2] = Application.Substitute([A2], Chr(10), " ")
End If
'Mod2
If TextBox2.Text  "" Then
[A3] = "Modul2" & Chr(10) & TextBox2.Text & Chr(10) & Chr(10) & "Woche/n"
[A3] = Application.Substitute([A3], Chr(10), " ")
End If
'Mod3
If TextBox3.Text  "" Then
[A4] = "Modul3" & Chr(10) & TextBox3.Text & Chr(10) & Chr(10) & "Woche/n"
[A4] = Application.Substitute([A4], Chr(10), " ")
End If
'Mod4
If TextBox4.Text  "" Then
[A5] = "Modul4" & Chr(10) & TextBox4.Text & Chr(10) & Chr(10) & "Woche/n"
[A5] = Application.Substitute([A5], Chr(10), " ")
End If
'Mod 5
If TextBox5.Text  "" Then
[A6] = "Modul5" & Chr(10) & TextBox5.Text & Chr(10) & Chr(10) & "Woche/n"
[A6] = Application.Substitute([A6], Chr(10), " ")
End If
'Mod 6
If TextBox6.Text  "" Then
[A7] = "Modul6" & Chr(10) & TextBox6.Text & Chr(10) & Chr(10) & "Woche/n"
[A7] = Application.Substitute([A7], Chr(10), " ")
End If
'Mod 7
If TextBox7.Text  "" Then
[A8] = "Modul7" & Chr(10) & TextBox7.Text & Chr(10) & Chr(10) & "Woche/n"
[A8] = Application.Substitute([A8], Chr(10), " ")
End If
End With
End Sub

Anzeige
Danke, Hajo
21.05.2020 10:05:22
Werner.B
Vielen Dank für die Rückantwort, Hajo und die Korrektur. Wenn ich das richtig sehe, lag mein Fehler bei ElseIf. Der Code funktioniert nun auch soweit. Vielen Dank nochmals und Viele Grüße Werner.B
AW: aus UF in Tabelle einfügen
21.05.2020 09:31:08
Martin
Hallo Werner,
schau dir mal an, ob du es dir so vorgestellt hast:
Private Sub CommandButton1_Click()
Dim i As Integer
With Worksheets("Tabelle2")
'If TextBox1.Text  "" Then
.[A1] = "Überlegt wurde der Besuch folgender Module:" '& Chr(10) & TextBox1.Text & Chr(  _
_
10) & "Wochen" '& TextBox2.Text & Chr(10) & TextBox3.Text & Chr(10) & TextBox4.Text & Chr(10)
.[A1] = Application.Substitute(.[A1], Chr(10), " ")
.Range("A2:A8").ClearContents
'Mod 1 bis Mod 7
For i = 1 To 7
If Controls("TextBox" & i).Text  "" Then
.Cells(i + 1, 1) = "Modul1" & Chr(10) & Controls("TextBox" & i).Text & Chr(10) & _
"Woche/n"
.Cells(i + 1, 1) = Application.Substitute(.Cells(i + 1, 1), Chr(10), " ")
Else
.Cells(i + 1, 1) = ""
End If
Next
.Range("A2:A8").SpecialCells(xlCellTypeConstants).Copy
End With
End Sub
Viele Grüße
Martin
Anzeige
AW: aus UF in Tabelle einfügen
21.05.2020 10:02:43
Werner.B
Vielen Dank, Martin für die Rückantwort. In der Grundstruktur ist es schon, wie ich es mir gewünscht hatte. Ich habe allerdings versäumt, zu beschreiben, dass die Bezeichnungen Modul1 usw. Platzhalter sind und noch durch jeweils indviduellem Text ersetzt werden. TextBox1 würde dann anstatt Modul1 z.B. "Tagestouren" stehen. Bei Modul2 wiederum ein anderer individueller Text. Sorry, das hätte ich beschreiben sollen. Hast Du da evtl. noch eine andere Idee? - Viele Grüße Werner.B
Anzeige
AW: aus UF in Tabelle einfügen
21.05.2020 10:16:54
Martin
Hallo Werner,
ich habe die Modulbezeichnungen jetzt in ein Datenfeld ("Array") ausgelagert, damit der Code schön kurz bleibt:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim arrModule As Variant
With Worksheets("Tabelle2")
'If TextBox1.Text  "" Then
.[A1] = "Überlegt wurde der Besuch folgender Module:" '& Chr(10) & TextBox1.Text & Chr(  _
_
10) & "Wochen" '& TextBox2.Text & Chr(10) & TextBox3.Text & Chr(10) & TextBox4.Text & Chr(10)
.[A1] = Application.Substitute(.[A1], Chr(10), " ")
.Range("A2:A8").ClearContents
'Mod 1 bis Mod 7
arrModule = Array("Modul 1", "Modul 2", "Modul 3", "Modul 4", "Modul 5", "Modul 6", " _
Modul 7")
For i = 1 To 7
If Controls("TextBox" & i).Text  "" Then
.Cells(i + 1, 1) = arrModule(i) & Chr(10) & Controls("TextBox" & i).Text & Chr( _
10) & "Woche/n"
.Cells(i + 1, 1) = Application.Substitute(.Cells(i + 1, 1), Chr(10), " ")
Else
.Cells(i + 1, 1) = ""
End If
Next
.Range("A2:A8").SpecialCells(xlCellTypeConstants).Copy
End With
End Sub
Du kannst die Modulbezeichnungen in der fett formatierten Zeile entsprechend anpassen.
Viele Grüße
Martin
Anzeige
...kleiner Fehler
21.05.2020 10:39:01
Martin
Hallo Werner,
mir ist ein kleiner Fehler beim Array-Index unterlaufen. Es müsste lauten: arrModule(i - 1).
Hier noch einmal das komplette Makro mit der Korrektur:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim arrModule As Variant
With Worksheets("Tabelle2")
'If TextBox1.Text  "" Then
.[A1] = "Überlegt wurde der Besuch folgender Module:" '& Chr(10) & TextBox1.Text & Chr(  _
_
10) & "Wochen" '& TextBox2.Text & Chr(10) & TextBox3.Text & Chr(10) & TextBox4.Text & Chr(10)
.[A1] = Application.Substitute(.[A1], Chr(10), " ")
.Range("A2:A8").ClearContents
'Mod 1 bis Mod 7
arrModule = Array("Modul 1", "Modul 2", "Modul 3", "Modul 4", "Modul 5", "Modul 6", " _
Modul 7")
For i = 1 To 7
If Controls("TextBox" & i).Text  "" Then
.Cells(i + 1, 1) = arrModule(i - 1) & Chr(10) & Controls("TextBox" & i).Text &  _
Chr(10) & "Woche/n"
.Cells(i + 1, 1) = Application.Substitute(.Cells(i + 1, 1), Chr(10), " ")
Else
.Cells(i + 1, 1) = ""
End If
Next
.Range("A2:A8").SpecialCells(xlCellTypeConstants).Copy
End With
End Sub
Viele Grüße
Martin
Anzeige
AW: aus UF in Tabelle einfügen
21.05.2020 10:47:40
Werner.B
Hallo Martin - so finde ich es super! - Momentan bekomme ich allerdings eine Fehlermeldung, wenn ich TextBox7 befülle. Ohne die Ahnung zu haben, könnte da noch etwas mit Array nicht stimmen? - Ich habe den Code noch nicht verändert - Modul1 wird bei Eingabe eines Textes in TextBox1 nicht eingtragen, sondern Modul2. Wenn Du da noch vielleicht helfen könntest. - Vielen Dank und Viele Grüße Werner.B
Anzeige
Tausend Dank! - Beiträge überschnitten.
21.05.2020 10:52:53
Werner.B
Herzlichen Dank, Martin. Unsere beiden letzten Beiträge haben sich überschnitten. Der Code funktioniert nun wunderbar. Super!! - Vielen Dank für Deine Zeit dafür und viele Grüße Werner.B
AW: Tausend Dank! - Beiträge überschnitten.
21.05.2020 11:05:50
Martin
Hallo Werner,
ich danke dir für deine Rückmeldung. Nur als kleiner Hinweis am Rande: Für die Excelformel "Wechseln" (Substitute) gibt es auch direkt in VBA die Ersetzen-Funktion "Replace".
Statt der Zeile 
.Cells(i + 1, 1) = Application.Substitute(.Cells(i + 1, 1), Chr(10), " ")
wäre folgende Zeile "sauberer": 
.Cells(i + 1, 1) = Replace(.Cells(i + 1, 1), Chr(10), " ")
Das hat aber keinen Einfluss auf die Funktionalität deines Makros ;-)
Viele Grüße
Martin
Anzeige

Forumthreads zu verwandten Themen

Wechselbild in der Tabelle
WalterK

Hallo,
die angehängte Tabelle habe ich in der Recherche gefunden, mittels VBA wird ein Wechselbild gesteuert.
2 Fragen hätte ich dazu:
1.) Ich möchte 2 andere Bilder einfügen, wie kann ich diese dann mit dem Makro ansprechen, muss ich den Bildern Namen geben ....?
2.) Das Makro...
18.09.2008 19:50:12
Thread-ID: 1010845
9 Beiträge
Bild in Tabelle einfügen
Dirk

Hallo zusammen,
ich möchte gerne über ein Dropdownfeld in einem Tabellenblatt eine entsprechendes Bild in die Tabelle einfügen. Über den Makrorecorder wurde mir folgende Syntax angezeigt
ActiveSheet.Pictures.Insert( "Z:\Daten\Excel\Stückliste\Zeichnungen\Korpus\Kopus 001.jpg").Select
02.02.2009 13:00:00
Thread-ID: 1046195
2 Beiträge
Hintergrundbild in Excel-Tabelle
Lonni

Hallo,
kann mir jemand sagen, ob es möglich ist ein Bild (Grafikdatei) als Hintergrund in einer Excel-Tabelle einzufügen?
Dass es bei Diagrammen geht, weiss ich, jedoch hätte ich gerne ein Bild als Tabellenhintergrund.
Danke für Antworten!
Gruß Lonni
27.03.2009 18:28:11
Thread-ID: 1064723
5 Beiträge
Bilder einfügen ander Tabelle Formel Reaktion
Karel

Hallo Exelianer,
Habe untestehende Code zum bilder einfügen von Hajo's Seite.
meine Frage:
- wie kan ich Bilder einfugen wobei die Bildernamen in ein andere tabelle liegen (Tabelle1) bereich A8:A100
- bildname komen in Zelle Set RaBereich = Range("A10,C10,E10,G10") Tabelle (bild...
11.06.2009 20:52:07
Thread-ID: 1080841
8 Beiträge
Anzeige
Tabellenbereich in Userform abbilden
Jonatan

Hallo,
ist es möglich einen Tabellenbereich aus einem Tabellenblatt in eine Userform abzubilden, genauso, wie dieser Bereich auch auf dem Tabellenblatt aussieht?
Also sagen wir, ich habe im Bereich "A1:C3" überall eine 1 drin stehen und alle Zellen sind rot markiert. Kann ich mir diese...
24.07.2009 08:28:19
Thread-ID: 1090958
7 Beiträge
Bilder per Makro in Excel einfügen
stefanseevetal

Hallo zusammen!
Ich habe ein Problem, das ich mir nicht erklären kann. Ich füge nach einer Auswahl über den untenstehenden Code ein Bild im Tabellenblatt "Deckblatt" ein. Es soll gemäß dem Code oben links eingefügt werden. Leider funktioniert dies bei einigen Computern nicht und das Bild wi...
27.10.2009 19:27:47
Thread-ID: 1112579
4 Beiträge
Bild in Zellverbund einfügen
Markus

Hallo,
füge ich ein Bild (Einfügen Graphik) in einen Zellverbund (verbunde Zellen von A3 bis R13 ein,
so wird das Bild zwar eingefügt ....
aber die Grösse passt sich nicht dem Zellverbund an (Bild meistens zu gross);
es wird zudem nicht eingemittet (der Zellverbund wurde vorher...
29.10.2009 16:19:45
Thread-ID: 1113103
4 Beiträge
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Tabellenbereich: Bild in Userform ohne Bildexport
Axel

Hallo Könner,
ich habe viele Möglichkeiten gefunden, Bilder aus einer Mappe in Userformen einzubinden. Oder Tabellenbereiche erst als gif zu exportieren und dann in die Userform zu holen.
Was ich suche:
Gibt es denn keine Möglichkeit, eine Shape aus einem Tabellenblatt direkt in die...
07.05.2010 13:59:17
Thread-ID: 1156082
3 Beiträge
Bild in Tabellenblatt anzeigen
Benedikt

Guten Morgen zusammen
Bei Eingabe von. zB. "Sommer" in Zelle B24 soll das hinterlegte Bild Sommer.jpg in Zelle D33 angezeigt werden.
Mein Ansatz funzt leider nicht:
ActiveSheet.Pictures.Insert ("C:\Test\Bider\" & B24.Text & ".jpg")
Vielen Dank für eure Hilfe
14.05.2010 08:05:51
Thread-ID: 1156971
10 Beiträge
Bild von der userform in tabelle einfügen
der

Hallo Excelsfans,
ich habe auf einer userform ein bild (image). dieses möchte ich gern als bild in eine zelle einfügen
irgendwie so
cells(1,1).insert.picture=image1.picture
geht sowas?
gruß rocky
14.06.2010 19:14:52
Thread-ID: 1161836
3 Beiträge
Bild in Zelle einfügen.
Ernst

Hallo Exel Profis !
Ich würde mal wieder eure Hilfe benötigen.
Ich bräuchte ein makro das mir folgendes erfüllt, per Doppelklick in Zelle. g3 sollte sich der ordner C:\Dokumente und Einstellungen\Eigene Dateien\Eigene Bilder öffnen .Danach möchte ich mir ein bild auswählen können das si...
24.11.2010 12:48:35
Thread-ID: 1188515
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige