|
Guten Tag,
erst vor kurzem habe ich Makros für mich entdeckt, daher beherrsche ich die VBA Sprache noch nicht gut.
Ich bin dabei mir ein Makro für die Arbeit zusammen zu basteln, da wir viel mit Excel arbeiten – aber keiner mit VBA vertraut ist.
Makro 1)
Bisher erscheint eine Message Box bei der man aufgefordert wird, einen Bereich auszuwählen.
Nun möchte ich aber, dass das Makro anhand der Auswahl unter einer Bedingung die Summe bildet. Der Knackpunkt bzw. die Bedingung ist, dass die Summe nur von Zellen gebildet werden soll, die die Füllung grün „13434828“ haben.
Die Summe soll anschließen automatisch, durch Eingabe der Zelladresse in einer Message Box, in dieser angegebenen Zelle gebildet werden. Nach Bildung der Summe, soll diese Zelle gelb hinterlegt werden.
Das Makro wird in der Persönlichen Arbeitsmappe gespeichert und sollte bei verschiedenen Excel Dokumenten anwendbar sein.
Über Unterstützung wäre ich dankbar.
Makro 2)
Vorgang 1: Ähnlich wie Makro 1, soll ein Bereich ausgewählt werden.
Die Rahmenlinie am Anfang des Bereichs und am Ende des Bereichs sollen dick erscheinen.
Vorgang 2: Anschließend soll erneut nach der Auswahl des Bereichs gefragt werden. Hiervon soll wieder die Summe gebildet werden. Wie in Makro 1 soll die Summe anschließend automatisch, durch Eingabe der Zelladresse in einer Message Box, in dieser angegebenen Zelle gebildet werden. Nach Bildung der Summe soll diese Zelle gelb hinterlegt werden.
Über Unterstützung wäre ich dankbar.
LG Jutta
Mein bisheriger Code:
Sub Test()
'
' Test Makro
'
'
Dim Msg, Style, Title, Response, MyString
Msg = "Soll die Summe gebildet werden?" ' Definiert die Nachricht
Style = vbYesNo + vbInformation + vbDefaultButton1 ' Box Optik.
Title = "Auswertung " ' Titel
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' Benutzer wählt "Ja"
MyString = "Yes"
On Error Resume Next
Dim Bereich As Range
Set Bereich = Application.InputBox("Bitte markieren Sie einen Bereich", _
"Bereich wählen", , , , , , 8)
HIER FEHLT DIE ERGÄNZUNG DES CODES
Else ' Benutzer wählt "Nein"
MyString = "No" ' Vorgang abbrechen.
End If
End Sub
|