Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA Message Box
#1
Hallo zusammen!

Ich habe durch bereits viel Hilfe aus diesem Forum ein Excel-VBA-Projekt großartig zum Laufen bekommen. Nun gilt es nur noch einmal, einige Feinschliffe vorzunehmen. Ich würde mich sehr freuen, wenn mir jemand von euch einen Tipp geben könnte, wie ich das folgende (kleine) Problem lösen könnte:

Ich habe - wie man in der angehängten Datei sehen kann - einige Zeilen im Reiter "Master", die via "x" setzten am Ende der Tabelle in ein anderes Tabellenblatt kopiert werden. Es erscheint zudem immer eine MessageBox, in der die Information aufkommt, dass a) der Inhalt in den betreffenden Reiter kopiert wurde oder b) dass diese Zeile bereits in der anderen Tabelle existiert. 

Der Schönheitsfehler ist nun, dass diese Messageboxen mit der Nachricht "wurde in X/Y/Z kopiert" für jeden Reiter erscheint - nicht nur für die eigentlich vom "x" betroffenen Tabellenblätter...

Der betreffende Code lautet wie folgt:

   If LCase(Cells(ze, "AK")) = "x" And yFind = "" Then
      Worksheets("Projekt Y").Cells(ylz, 1).PasteSpecial xlPasteAll
   End If
   
   If LCase(Cells(ze, "AL")) = "x" And zFind = "" Then
      Worksheets("Projekt Z").Cells(zlz, 1).PasteSpecial xlPasteAll
   End If
   
   Application.CutCopyMode = False

   If xFind <> "" Then MsgBox "in Projekt X bereits kopiert", vbInformation
   If yFind <> "" Then MsgBox "in Projekt Y bereits kopiert", vbInformation
   If zFind <> "" Then MsgBox "in Projekt Z bereits kopiert", vbInformation
   
   If xFind = "" Then MsgBox Firma & "  in Projekt X kopiert"
   If yFind = "" Then MsgBox Firma & "  in Projekt Y kopiert"
   If zFind = "" Then MsgBox Firma & "  in Projekt Z kopiert"


Vielen Dank! Ich freue mich über jeden Hinsweis! :)

Beste Grüße,
David


Angehängte Dateien
.xlsm   160802_Test Forum Lösung.xlsm (Größe: 54,33 KB / Downloads: 3)
Antworten Top
#2
Hallo David,
   'kopierte Zeile in alle Projekte kopieren
If LCase(Cells(ze, "AJ")) = "x" Then
If xFind = "" Then
Worksheets("Projekt X").Cells(xlz, 1).PasteSpecial xlPasteAll
MsgBox Firma & " in Projekt X kopiert"
Else
MsgBox "in Projekt X bereits kopiert", vbInformation
End If
End If

If LCase(Cells(ze, "AK")) = "x" Then
If yFind = "" Then
Worksheets("Projekt Y").Cells(ylz, 1).PasteSpecial xlPasteAll
MsgBox Firma & " in Projekt Y kopiert"
Else
MsgBox "in Projekt Y bereits kopiert", vbInformation
End If
End If

If LCase(Cells(ze, "AL")) = "x" Then
If zFind = "" Then
Worksheets("Projekt Z").Cells(zlz, 1).PasteSpecial xlPasteAll
MsgBox Firma & " in Projekt Z kopiert"
Else
MsgBox "in Projekt Z bereits kopiert", vbInformation
End If
End If

Application.CutCopyMode = False
End With
Exit Sub
Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • DavidHans
Antworten Top
#3
Hallo Uwe, klappt! Vielen Dank für die (ständige) Hilfe! :)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste