Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1760to1764
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
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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

300 Forumthreads zu ähnlichen 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
Anzeige
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
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
userform in tabellenblatt einfügen
Fredy

Hallo alle
Ich versuche schon seit langem eine Datenbank zu erstellen was bis hier auch gut Klappt
Nun komme in nicht mehr weiter weil ich null Ahnung von VBA Habe
In der Vorlage TM2Rapport Datenbank habe ich ein UserForm Erstellt das ich über ein Makro auf rufen kann
Nun kom...
30.10.2009 09:40:59
Thread-ID: 1113242
9 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
Bild in Excel einfügen und Formel hinterlegen
Susanne

Hallo,
mache mal ein neues Thema auf, da es sich auch nicht mehr direkt um das vorige handelt.
Mein Problem:
Kann man ein Logo (Bild) mit einer Formel hinterlegen, damit ich wenn der Kunde xy ist, das Logo ausblende?
Also in der Kopfzeile kann ich keine Formel hinterlegen, oder...
26.04.2010 14:28:36
Thread-ID: 1153845
11 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton 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
8
1
4
7
6
3
3
8
4
10
2
9
2
3
2
2
5
2
6
5
2
6
3
10
24