VBA Kontrolle Zelleninhalt

Hallo liebes Forum,
ich beschäftige mich nun seit ein paar Wochen mit den VBAs in Excel, komme aber bei folgendem Problem nicht weiter:
und zwar möchte ich alle Arbeitsblätter meiner Arbeitsmappe darauf kontrollieren, ob die Zelle F2 nicht leer ist. Wenn dies der Fall ist, also F2 nicht leer ist, dann soll der Inhalt der Zelle A5 an ein Textfeld im Arbeitsblatt "Übersicht" weitergegeben werden. Die Zelleninhalte aus A5 der verschiedenen Arbeitsblätter sollen dabei am besten durch ein Komma getrennt werden.
Die Überprüfung, ob ein Textfeld leer ist, bekomme ich schon hin. Jedoch komme ich nicht weiter anschließend die Inhalte der Zelle A5 an ein Textfeld zu schicken.
Vielen Dank bereits für die Unterstützung :).
Beste Grüße
Stefan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,
TextBox1 =Textbox1 & Range("F5") & " ,"
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Grußformel

In diesem Forum bekomme nur selten eine Mailbenachrichtigung, weitere Antworten sind zufällig.

Sub test() Dim wS As Worksheet, myString As String For Each wS In ThisWorkbook.Worksheets If wS.Name "Tabelle1" Then If wS.Range("F2") "" Then myString = myString & wS.Range("A5") & vbLf End If End If Next wS Tabelle1.Shapes("TextBox 1").TextFrame.Characters.Text = myString End Sub

Sub Blätter_auflisten() Dim Txt As String, Txt2 As String For j = 1 To Worksheets.Count If Worksheets(j).Range("F2") "" Then Txt = Txt & ", " & Worksheets(j).Range("A5") & " (" & Worksheets(j).Name & ")" Txt2 = Txt2 & vbLf & Worksheets(j).Range("A5") & " (" & Worksheets(j).Name & ")" End If Next j MsgBox Trim(Mid(Txt, 1)) '** zum Testen MsgBox Trim(Mid(Txt2, 1)) '** zum Testen Worksheets("xxx").TextBoxes(1).Text = Txt End Sub

Sub Blätter_auflisten() Dim Txt As String Worksheets("Tabelle1").TextBoxes(1).Text = Empty For j = 1 To Worksheets.Count If Worksheets(j).Range("F2") "" Then Txt = Txt & ", " & Worksheets(j).Range("A5") End If Next j Worksheets("Tabelle1").TextBoxes(1).Text = Trim(Mid(Txt, 2)) End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Kontrolle Zelleninhalt

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread