Hallo, Schreiben morgen eine Mathe Info Arbeit und ein neben Thema werden die Schleifen sein, verstehe da aber noch nicht ganz den Unterschied zwischen der Do..Until..Lopp und Do..While..Loop Schleife. Hoffe ihr könnt mir helfen, danke im Voraus :D

Hallo Zusammen, ich habe da ein kleines Problem. Ich habe in Excel VBA eine einfache Funktion erstellt und will diese nun um Tabellenblat abrufen. Leider finde ich die dort nicht. Vor ein paar Minuten ging das alles noch wunderbar.

Muss irgenwas aktiviert werden?

Danke

Hallo Forumuser,

Ich habe ein Problem mit Excel.

Ich versuche in einer Tabelle nach einem bestimmten Datum zu suchen, sozusagen zur Überprüfung. Ich hab dazu ein Makro selbst programmiert nur leider hört es nach einem gefundenen treffe auf weiter zu suchen, obwohl mein Suchkriterium öfters zu finden ist. Vielleicht kann mir jemand die passende Schleife dazu bauen. :D

Vielen Dank im voraus

Hallo GF-Community,

ich würde gerne zwei Tabellen, die den gleichen Aufbau, aber an unterschiedlichen Zeitpunkten erstellt wurden, miteinander vergleichen und die neuere Mappe soll dann farblich markiert werden an den Stellen, wo ein Wert sich verändert hat.

Geht das bereits bei Excel 2010? Ich habe die Funktion nicht gefunden, bei Word 2010 geht das doch auch unter "Dokumente vergleichen" oder so?

Kennt sich jemand aus? Gerne auch via VBA (bin aber Anfänger). Danke im Voraus!

Hallo liebe Community,

ich kann inzwischen behaupten mich relativ gut mit "Standard" Excel auszukennen, aber bei VBA bin ich bisher ein hoffnungsloser Fall.

Mein Wunsch ist es aus einer Excel-Datei bzw. -zeile, z.B.:

• A1=Name

• A2=Straße

• A3=Ort

einen "Knopf" zu drücken und dass dann eine bestimmte Wordvorlage (nennen wir sie WordTest1) geöffnet wird in der an bestimmten Stellen diese Infos eingetragen werden, z.B.:

• Herr A1, wohnhaft in A2, A3 hat zum ....

Ich muss täglich mehrere Rechnungen mit ca 15 verschiedenen Werten schreiben, dabei sind alle perfekt in einer Excel-Zeile (A1-A15) aufgereiht. Es würde mir unglaublich viel Zeit sparen, wenn das automatisiert werden könnte und ich bin für jede Hilfe dankbar.

Ich habe schon relativ viel bei Google gesucht, aber da wurden meistens nur komplett fertige Codes herumgeschmissen, die auf bestimmte Fälle zugeschnitten waren, ohne Erklärung wie man diese anpassen könnte. (Vll habe ich auch nach den falschen Stichwörtern gesucht?)

Ich bin für jede Lösung offen, ob nun VBA oder ohne ist mir egal, hauptsache es funktioniert irgendwie. :)

Danke vorab, Peter

Hallo zusammen,

ich hab eine Frage bezüglich VBA in Excel. Wenn ich eine Excel-Datei mit einem UserForm versehe, kann ich keine andere Excel-Datei mehr nebenbei öffnen, es sei denn, ich schliße das UserForm. gibt es eine Möglichkeit, eine Datei mit einem UserForm offen zu lassen, und nebenbei eine andere Excel Datei zu öffnen ?

Danke schonmal für die Antwort!

Die VBA-Programmierung ist für mich Neuland und ich bitte um Untersützung bei einer Sache:

Ich möchte Werte eines Arbeitsvorgangs, die in einem Excelsheet "WO-Vorgangsliste" sich befinden, in ein anderes Sheet "WO-Ablaufplan" in die jeweils vorgegebene Zelle schreiben. In der "WO-Vorgangsliste" sind mehrere Vorgänge als Datensätze gelistet. Jeder Vorgang bzw. jeder Datensatz beinhaltet in Spalte 9 als Wert die Zellenposition, wo er hinkopiert werden soll.

Konkret: -für ersten Vorgang: Wert in Zeile 5 Spalte 7 (5,7) soll gemäß (5,9) in "WO-Ablaufplan" in Zelle (Z41S9)

-für zweiten Vorgang: Wert in Zeile 6 Spalte 7 (6,7) soll soll gemäß (6,9) in "WO-Ablaufplan" in Zelle (Z76S17)

-für dritten Vorgang: Wert in Zeile 7 Spalte 7 (7,7) soll soll gemäß (7,9) in "WO-Ablaufplan" in Zelle (Z36S12)

-allgemein: Schleife für: Wert von Zeile i Spalte 7 gemäß hinterlegter Zellenposition aus Zeile i Spalte 9 der"WO-Vorgangsliste" in entsprechende Zelle von "WO-Ablaufplan" (gemäß hinterlegtem Wert aus Zeile i Spalte 9) kopieren.

Ich hoffe, das ist soweit verständlich und freue mich auf eure Unterstützung!

Ich stehe grad auf dem Schlauch und würde mich wirklich sehr über aussagekraftige Antworten freuen.Ich würde gern einen Kalender erstellen mit VBA in Ecxel in den ich mit einen Commandbutton einen Kalender erstellen kann und dieser dir Wochentag,Monat und so weiter anzeigt aber du auch in einer Tabelle z.B. Urlaub eintragen kannst und er dir das gleich mit im Kalender anzeigt wenn er erstellt wird.Habe schon ein wenig Quellcode zusammengeschrieben es kommt aber immer Laufzeitfehler 1004 Anwender- oder opjektdefinierter Fehler der Debugger sagt mir es wäre etwas an der Zeile: With Worksheets("Kalender").Range("A1;L35") = Worksheets("Kalender").Cells = "bytMonth" falsch.

Ich habe einen Ordner mit ziemlich vielen Bildern auf der Festplatte die alle sauber benannt sind. Dann habe ich noch eine Excel-Tabelle mit dem Dateinamen der Bilder. In dieser Tabelle ist aber nur ein Teil davon enthalten. Wie schaffe ich es anhand eines Makros, dass nur die Bilder aus dem Ordner gezogen werden die mit den Dateinamen in der Excel-Tabelle übereinstimmen?

Beispiel: Ordner mit Bilder auf Festplatte hat den Namen Fotoarchiv 2012 Dieser Ordner enthält u.a. die Bilder mit den Dateinamen Foto1, Foto2, Foto3, Foto4 usw. In der Excel-Tabelle ist aber nur Foto1 und Foto3 angegeben

Es sollen genau diese Fotos neben dem Dateinamen des Bildes in der Excel-Tabelle hinterlegt werden.

Hallo zusammen,

gibt es eine Möglichkeit, Exceldateien per VBA in einer andere Sprache zu übersetzen? (z.B. in Englisch)

Das Problem ist, es handelt sich um eine Datei, in der immer mal wieder Sheets hinzukommen (habe es bisher über die Zellenformel =Wahl(Sprache;"Beispiel";"Example") gelöst, ist jedoch sehr mühselig aufgrund der Vielzahl der Einträge und der "manuellen" Übersetzung)

Deshalb meine Frage, ob es eventuell per VBA eine "automatisierte" Möglichkeit gibt?!

Besten Dank schonmal für Eure Hilfe

Hallo liebes Forum,

ich habe ein kleines Problem bei einer kleinen Datenbank und hoffe das ihr mir weiterhelfen könnt.

Zum Problem: Ich habe in Zelle A1 eine Auswahlliste, bei der ich a,b oder c auswählen kann.

• habe ich a ausgewählt, soll nichts passieren.
• wähle ich jedoch b oder c aus, sollen im Zellbereich C4:F14 die Werte gelöscht werden

Dazu habe ich folgenden Code programmiert:

Private Sub Worksheet_TEST(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case CInt(Range("A1"))
        Case b
            Range("C4:F14").Select
            Selection.ClearContents
        Case c
            Range("C4:F14").Select
            Selection.ClearContents
        End Select
    End If
End Sub

Ändere ich nun die Auswahl, passiert jedoch nichts, die Einträgen werden nicht gelöscht. Wo liegt der Fehler?

Danke für Eure Hilfe

Gruß diece

Hi,

ich möchte ein makro schreiben und die schleife funktioniert bei mir nicht. Ich möchte, wenn in Spalte I das Wort "nein" steht, das er in dieser Zeile eine Leerzeile einfügt.

For i = 1 To 65536
         If Cells(i, 9) = "nein" Then
         Rows.Select
    Selection.Insert Shift:=xlDown
     End If
    Next i

Was mache ich falsch?

Lieben Dank!!!

Wie schafft man es, dem User mitzuteilen, das noch ein VBA-Code läuft.

Ich habe eine Kopier-Routine, die etwas länger dauert und beim Blattwechsel automatisch startet. Damit der User nicht abbricht, möchte ich eine Meldung ausgeben.

Schalte ich aber eine eigene Userform dafür, bleibt der Code beim UserForm.Show hängen und arbeitet nicht weiter.

Hat jemand Vorschläge?

Schon mal Dank vorab.

Hallo zusammen,

ich habe folgende Herausforderung zu bewältigen:

Zwei Tabellen mit Artikeldaten. In der ersten sind alle Stammdaten enthalten. In der zweiten befinden sich ergänzende Daten, die ich gerne mittels Sverweis in Tabelle 1 anfügen möchte. Die Schwierigkeit besteht darin, dass in der zweiten Tabelle mehrere Einträge (Zeilen) zu jeder Artikelnummer enthalten sind, wo ich jeweils aus einer Spalte die Zellinhalte in einer Zelle in Tabelle 1 zusammenführen muss.

Bsp.:

Tabelle 1 (4 Spalten)

0001 Schuh Mann 35,95

0002 Schuh Frau 79,95

Tabelle 2 (3 Spalten)

0001 Schuh 42

0001 Schuh 43

0001 Schuh 44

0002 Schuh 38

0002 Schuh 39

Ergebnis inkl. neuer Spalte (5 Spalten)

0001 Schuh Mann 35,95 42, 43, 44

0002 Schuh Frau 79,95 38, 39

Ist dies' überhaupt mittels Formel zu bewältigen, oder müsste hier VBA her? Wenn ja, wie müsste die Formel aussehen? Bzw. wie müsste sonst ein adäquater VBA Code aussehen?

Für eines Feedback und Eure Unterstützung im Voraus vielen Dank.

Hallo erneut Excel-Freunde,

mein Titel verrät es bereits. Eine Zelle soll markiert werden, daraufhin soll "F2" und dann "Enter" gedrückt werden.

Mein Makro sieht bisher so aus:

'Ans Ende der Tabelle springen

ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Select

ActiveCell.Offset(1, 0).Select

' Eingabeaufforderung 1 Datum

Eingabe = InputBox("Bitte Datum angeben, wann die Ware eingetroffen ist!" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ "Bitte schreiben Sie in: tt:mm:jjjj" & Chr(13) & Chr(10) & _ "" & _ "", _ "Zugang [Datum]", ActiveSheet.Range("B1") _ & "_", 7000, 5000)

If StrPtr(Eingabe) = 0 Then ' MsgBox ("Die Schaltfläche Abbrechen wurde gewählt. Der Vorgang wird abgebrochen.") End Else

End If

ActiveCell.Offset(0, 0).Value = Eingabe

Wie man sieht, sucht er sich selbst die letzte Zelle in meiner Tabelle um dort mit einer Eingabeaufforderung das Datum anzugeben.

Nun möchte ich als nächsten Schritt, genau diese Zelle, wo man eben das Datum eingegeben hat mittels dem Makro da oben, ... das er diese Zelle auswählt, "F2" und dann "Enter" drückt.

Alle Versuche dies zu bewerkstelligen, schlugen bisher fehl.

Habt ihr eine Idee?

Viele Grüße,

David :) ... Pixelschubster :D

Hallo zusammen,

Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.

Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.

Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.

Wäre cool wenn jemand mir da weiterhelfen könnte :)

Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed                 

    If ActiveSheet.Name = "Tabelle2" Then                             Sheets("Tabelle1").Select                                           Else                                                                Sheets("Tabelle2").Select                                             End If

Hallo,

schon wieder eine VBA frage :)

Hab ein Problem mit dem Zahlenformat. Bei einer Variablen wird die Zahl in Anführungszeichen zurückgegeben, bei der anderen ohne Anführungszeichen.

Sub Testsub1()

Test1 = Tabelle1.Cells(1326, 1)
'Hier kommt "101" zurück
Test2 = Tabelle2.Cells(34, 3)
'Hier kommt 101 zurück

End Sub 

Beide Zellen ("A1326" und "C34") sind als Text formatiert.

Bei "A1326" ist dieses kleine grüne Dreieck in der linken oberen Ecke. Da kann ich den Text in eine Zahl umwandeln und dann komm auch bei beiden Zellen 101 ohne Anführungszeichen zurück. Das ist für mich aber keine Option, da das ein Export aus einem anderen Programm ist und deshalb jedes mal wieder neu Eingefügt wird.

Folglich muss die Zelle "C34" irgendiwe verändert werden, dass "101" mit Anführungszeichen zurück kommt. Oder kann ich das auch im Code hinbekommen?

Vielen Dank im Voraus für eure Hilfe!

Gruß

dandi46

hi ich hätte eine frage ich habe mir jetzt eine vba datei erstellt also mit knöüfen und so . nur jetzt will ich die Datei vom destop aus öffnen ohne dabei excel zu benutzen oder offen zu haben

Ich will das die datei selbständig arbeitet also ein icon auf dem destop was ich anklicke und schon kommt meine vba datei ohne excell ich danke im voraus

MFG Halyl

Guten Tag gutefrage.net Community

Ich habe ein Problem in Access, wie man sieht^^

Ich vresuche in einer Datenbank einen Wert, der von einem Formular aus einer Tabelle genommen wird in einer anderen Tabelle zu diesem zu ändern.

Jedoch bringe ich das nur mit Makros, die jedoch die ganze DB nach einer Zeut zumüllen.^^

Vielleicht kann mir jemand helfen, das Makro "SetzenWert" gegen einen VBA-Code zu tauschen, so könnte ich mich in VBA auch gleich weiterbilden. VBA ist immerhin Neuland für mich, wie das Internet für Angela Merkel ;)

Vielen Dank schonmal im Vorraus! :)

Hallo miteinander. Habe eine Tabelle auf der auf Zeile D verschiedene Zahlen mehrmals vorkommen. Auf der Nachbarszeile E sind nur z.T. Werte vorhanden. Nun suche ich ein VBA das mir ermöglicht die leeren Zellen von E mit den jeweiligen Werte von Zelle E in Bezug auf der Nachbarszelle D auszufüllen.

Für eure Hilfe und Tipps jetzt schon vielen Dank

Hallo.

Gibt es eine Möglchkeit, einzustellen, das man eine Excel tabelle bis zu einem bestimmten Datum öffnen kann, und danach eine Fehlermeldung angezeigt wird? Geht das mit VB? Bitte dann mit Code (Bin da nicht wirklich gut). Bitte um schnelle Antwort.

Danke im Vorraus (An alle Frühaufsteher)

Ich habe folgende Excel-Tabelle (s. Bild).
Aus dieser Tabelle soll die daneben stehende 2. Tabelle automatisch generiert werden.
Gleiche Schuhe müssen zusammengefasst werden und gleichzeitig soll die Anzahl km pro Schuh errechnet werden.
Wenn man eine Zeile in der ersten Tabelle hinzufügt sollte die zweite Tabelle auch aktualisiert werden.

Hallo, ich muss für die Berufsschule ein eigenes Projekt in Excel VBA erstellen. Es sollte ein Programm sein, das nicht sehr umfangreich ist, aber bei kleineren Problemen im Arbeitsalltag eingesetzt werden kann. Als Beispiel hatten wir bereits ein Programm, das die restlichen Urlaubstage von Arbeitnehmern ausgibt, nachdem man eingegeben hat, wieviel Gesamturlaub man hat und wieviele Tage man bereits genommen hat. Alle Werte wurden dann in einer Listbox ausgegeben und am Ende wurden alle übrigen Urlaubstage von allen Arbeitnehmern in einem Textfeld angezeigt. Unser Projekt sollte sich also in der selben Größenordnung wie das Beispiel befinden.

Mir fehlen allerdings die Ideen., deshalb brauch ich eure Hilfe. Hat jemand einen Vorschlag was ich machen könnte?

Lg Zora

Wie kann ich das erreichen das mein Commandbutton (uebertragen) mit STRG+a sofort augeführt wird?

Danke schonmal

Ich möchte, dass wenn ich auf eine bestimmte Zelle klicke in einer anderen ein Wort erscheint. Geht das mit WENN? Makros sind auch okay, aber bitte mit Code (mit VB bin ich nicht so gut;) )

Danke im Vorraus!

Ich programmiere in Excel und VBA gerade einen Taschenrechner. Ich habe gerade die Hochrechnung beendet und ich wollte wissen wie davon das Gegenteil heißt. Es gibt ja auch die Gegenteile Plus-Minus, Mal-geteilt und Quadratzahlenberechnung-Wurzelberechnung. Ich möchte gerne den deutschen Namen, den Fachbegriff, das Excel/VBA Rechenzeichen und das normale Rechenzeichen auf einem Blatt Papier. Es reicht auch erst mal eines von den genannten Dingen aus.

Ich arbeite gerade an einem Berichtsformular (wöchentlich) welches eigentlich schon ganz gut funktioniert.

Was mir noch fehlt ist die Möglichkeit bei der Erstellung eines neuen Datensatzes auf das Datum des vorherigen Datensatzes zu zu greifen um daraus automatisch das Datum des aktuellen Datensatzes berechnen zu können.

Also gibt es in VBA eine Möglichkeit zu prüfen, ob ein vorhergehender Datensatz existiert und wenn ja, aus den Wert aus dem Datumsfeld zu holen?

Irgendwie hab ich den Wurm drin...

Ich habe es mit beiden untenstehenden Codes probiert und jedes mal bringt er den MsgBox Text, der auf dir If anweisung folgt, auch wenn eingabe 1 "1" oder "5" enthält.

• ElseIf Not eingabe1 Like "1" Or Not eingabe1 Like "5" And eingabe2 Like "" Then
• ElseIf eingabe1 <> "1" Or eingaben1 <> "5" And eingabe2 = "" Then

Hallo Leute, braucht man für Visual Basic for Applications eine extra Entwicklungsumgebung oder geht das auch mit normalen Visual Basic? Wo kann man das herunterladen?

Ich habe eine Eingabemaske erstellt, und in dem oberen linken Textfeld soll standartmäßig gleich immer das aktuelle Datum drin stehen.

Aktuell steht bei mir

TextBoxcomandato.Value = Date drin, aber irgendwie bleibt das Feld leer...

Hi,

Ich möchte prüfen ob beispielsweise "Cell(x,y)" leer ist. Strings die nur aus Leerzeichen sollen auch als leer gelten. Wie mache ich sowas?

lg HiFriend :)

Hallo Zusammen, ich habe eine knifflige Aufgabe zu lösen und bin leider nicht der fitteste in VBA-Makros:

Meine Aufgabenstellung lautet wie folgt.

ich habe eine Zelle in die ein Zahlenwert eingetragen wird. anschließend soll nach Betätigung eines Buttons eine Tabelle mit 2 Spalten und der Zeilenanzahl des Zahlenwertes erzeugt werden. In Spalte 1 soll eine fortlaufende Nummer Zeile für Zeile eingetragen weden bis der Wert aus A1 erreicht ist.

Spalte 2 muss dann wieder mit manuellen Werten gefüllt werden.

Jetzt soll ein weiterer Button eine andere Tabelle erzeugen. die mehrere Spalten hat 6 Spalten hat.

in Spalte1 soll solange der Wert aus Spalte1 der ersten Tabelle stehen bis der Wert aus der ersten Tabelle aus Spalte 2 erreicht ist dann weiter mit nächstem Wert...

z.B.

Zelle A1 steht 4

Button1

C D 1 1 2 2 3 3 4 4

manuelle eingabe in Spalte D C D 1 1 3 2 2 5 3 3 4 4 4 5

Button 2

F G 1 1 1 2 1 2 3 1 3 4 2 1 5 2 2 6 2 3 7 2 4 8 2 5 9 3 1 10 3 2 11 3 3 12 3 4 13 4 1 14 4 2 15 4 3 16 4 4 17 4 5 usw.

kann mir hier jemand vielleicht helfen?

Hallo zusammen!

Ich möchte in einer PowerPoint-Präsentation einen Button und eine TextBox erstellen. Nun soll man eine Nummer in die Textbox eingeben können und daraufhin soll die Folie mit dieser Nummer angezeigt werden.

Also wenn ich in die TextBox 20 eingebe und auf den Button klicke soll dann Folie 20 ausgegeben werden.

Kann mir jemand damit helfen? Vielen Dank!

Hallo, ich würde gerne eine ComboBox mit 2 Spalten füllen ich habe auf einem Blatt

• A1 B1

• A2 B2

• A3 B3

• A4 B4

• ... ...

und in der comboBox hätte ich gerne

AB 1

AB 2

AB 3

Die Box wird dynamisch erzeugt.

Ich dachte an sowas, aber das funktioniert, wie viele andere Ansätze, leider nicht.

comboWinkel1.ListFillRange = "testKonf!A5:A11" & "testKonf!B5:B11"

Hi ich habe ein Problem ich würde gerne folgendes Kopieren Range (cells (m,4) : cells (m,n)).select selection.copy

allerdings kann ich in dieser form ja leider keine Range eingeben mein Problem ist jedoch das m Variable ist und und über eine Schleife geguckt wird welche Spalte kopiert werden muss somit steht in Variable M natürlich eine Zahl und kein Buchstabe wie für Range erforderlich.

Was kann ich tun

Vielen Dank für eure Hilfe

In Excel habe ich in einer Spalte diverse Hyperlinks untereinander stehen. Also in jeder Zelle einen und immer darunter in der nächsten Zelle den nächsten.

Nun möchte ich die nicht alle einzeln klicken sondern gern mal mehrere gleichzeitig. Es soll sich für jeden Link ein eigener Tab im Firefox öffnen.

Ich möchte also beispielsweise 10 Links auf einmal markieren und erreichen, dass sich dann 10 Tabs mit den jeweiligen Linkzielen öffnen.

Wie geht das?

Frage an die Excel Profis und VBA Experten. Die Aufgabenstellung baut aufeinander auf.

1. Aufgabenstellung: Zelle A1 soll als Eingabefeld in Excel dienen. Alle Werte, die in A1 eingegeben werden, sollen einfach untereinander ausgegeben werden, also in a2, a3, a4 usw. Die Cursormarkierung (damit meine ich die schwarze Umrahmung der aktiven Zelle) bleibt aber in A1.

2. Aufgabenstellung: Aufbauend auf Aufgabenstellung 1 soll nun nachdem in A1 ein Wert eingegeben wurde, der Wert wie gehabt in A2 erscheinen. Die schwarze Umrahmung soll aber jedoch zunächst in B2 erscheinen um einen weiteren Wert einzugeben. Erst nach Eingabe eines Wertes in B2 soll die Umrahmung wieder in A1 springen, damit ein nächster Wert eingegeben werden kann, der dann in Zelle A3 erscheint. Dann springt die Cursormarkierung in B3, um einen Wert einzugeben. Danach wieder in A1 usw.

3. Aufgabenstellung: Aubauend auf Aufgabenstellung 2 sollen die Werte, die in den Zellen der Spalte B eingegeben werden, mit den Werten der Spalte A im Reiter "Tabelle2" verglichen werden. Sofern der eingegebene Wert in der Spalte B mit denen der Spalte A (Reiter Tabelle2) übereinstimmt, soll Excel ein Fenster öffnen, in dem "Wert gefunden" steht.

Ist das in Excel 2003 per VBA für alle 3 Aufgabenstellungen möglich?

Hallo,

ich hätte gern den VBA Code, um in Excel folgendes per Makro zu erreichen:

Ich würde gerne einen Häkchen-Button einfügen (soweit kein Problem), bei dessen Klick ein vorher eingefügtes Rechteck in meiner Tabelle sichtbar wird. Klickt man das Häkchen weg, wird das Rechteck wieder unsichtbar.

Falls das auch ohne VBA geht, wärs natürlich noch besser.

Wer kann mir hier helfen?

verzweifelte Grüße,

quietscheratsch

In der ComboBox111 kann man folgendes auswählen:

• Arbeitstag
• Urlaub
• Krank

Die ComboBox111 ist mit der Zelle D2 verlinkt.

Wenn ich nun Urlaub oder Krank auswähle,

wird als erstes die Combobox geleert und danach ausgeblendet.

nun sollen die Zelle für die nachträgliche Bearbeitung gesperrt werden.

Wenn ich aber Arbeitstag auswähle,

soll die Zelle wieder zum bearbeiten freigegeben sein.

Der bisherige Code lautet:

Private Sub ComboBox111_Change()

If ComboBox111.Value = "Urlaub" Or ComboBox111.Value = "Krank"  Then
        ComboBox1.Value = ""
        ComboBox1.Visible = False
        ComboBox2.Value = ""
        ComboBox2.Visible = False
    Else
        ComboBox1.Visible = True
        ComboBox2.Visible = True
    End If
End Sub

Die ComboBox1 ist mit der Zelle T12 verlinkt

Die ComboBox2 ist mit der Zelle V14 verlinkt

Wenn ich die Zellen unter

Zelle formatieren -> Schutz -> Gesperrt

schützen möchte, kann ich aber wenn Arbeitstag ausgewählt wurde

in der ComboBox nichts auswählen, da die Zelle schreibgeschützt ist.

kann mir Bitte jemand helfen?

Hallo Com,

mal wieder eine Excelfrage von meiner Seite aus.

Ich möchte in einer Zelle einen Wert eingeben (Zelle befindet sich auf der Startseite meiner Excelanwendung). Wenn ich die Eingabe dann mit Enter bestätige, soll er mich direkt in die nächste Arbeitsmappe weiterleiten, wohin der Wert dann übernommen wurde.

Ich vermute das es nur eine VBA-Anwendung geht und leider bin ich darin noch nicht so firm. Also bitte ich mal ganz nett um eure Hilfe :D

MfG und Danke schon einmal.

platin90

Ich kann mich nicht entscheiden, welches das besser ist...

Wo ist es eurer Meinung nach besser VBA zu Programmieren? in Excel oder in Access?

Ich weiss, dass es eine merkwürdige frage ist, aber ich finde den Unterschied nicht?

Hallo VBA-Freunde,

habe wieder eine Aufgabe, wo ich keine Ideen habe...

angenommen in der Zelle A1 steht eine Kommazahl 3,25 (keine Konstante)

es sollen 3 volle Linien und die vierte zu 25% der einen vollen gezogen werden.

zu den Linien: beginnen ab der Zeile 2 untereinander, horizontal in der Mitte jeder Zeile und laufen bis einschlißlich spalte K.

hoffe, ich könnte mein problem verständlich ausdrucken.

hat jemand Ideen???

Guten Abend zusammen. Könnte mir jemand weiterhelfen bei diesem Code. Was macht er genau in Excel? Also Die einzelnen Schritte die er durchläuft,.

Option Explicit

Public Sub Double_Red()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String

lngZeile = Cells(Rows.Count, 4).End(xlUp).Row

  For lngZeilenSprung = lngZeile To 1 Step -1
    strSuchwert = Cells(lngZeilenSprung, 4).Value
      If Application.WorksheetFunction.CountIf(Range(Cells(1, 4), Cells(lngZeile, 4)), strSuchwert) <> 1 Then
        Cells(lngZeilenSprung, 4).Interior.ColorIndex = 3
      End If
  Next lngZeilenSprung

End Sub

Hallo Community,

hab da mal wieder ein Problemchen... Ich habe eine Liste, über die ich jeden Morgen ein Makro laufen lassen muss. Nun ist es so, dass ich im Moment händisch nach drei Kunden filtere und bei diesen Kunden einen Termin löschen muss, da dass ERP-System hier einen Termin generiert, der falsch ist. Nun möchte ich bei diesen Kunden / in den gefilterten Zellen den Zelleninhalt (KW) ebenfalls über das Makro löschen. Meine ersten Versuche haben halbwegs hingehauen, allerdings wurden nicht nur die gefilterten Inhalte, sondern alle Inhalte in der Range gelöscht. Der nächste Versuch hat dazu geführt, dass die Zellinhalte noch da waren, aber die Überschriften gelöscht wurden ... Nun habe ich alles wieder auf Anfang gesetzt :-(

Brauche Hilfe ... Danke im Voraus.

Hallo das Problem steht oben und zwar am Anfang wird man nach USER ID und Kennwort gefragt die sollten laut theorie in den Beiden Lokalen variablen gespeichert werden sollang die Access andwendung offen ist. Aber wenn die Funktion die die Werte in dei Variablen schreibt Beendet ist werden die beiden wieder Geleert.

Danke im Varraus

ToHan0510

Hallo,

eine Frage an die Excel / VBA Spezialisten.:

Wenn ich in Excel einen Befehl per Makro ausführe, dann wird dabei die "Undo" Liste gelöscht; d.h. ich kann mit STRG+Z bzw. dem Pfeil das Makro nicht rückgängig machen.

Kennt Ihr eine Möglichkeit?

Danke Grüße PtC

Hallo zusammen

Ich möchte gerne einen Schachcomputer herstellen und zwar im Excel. Im Excel habe ich zwar schon viel Ahnung und von VBA nur ein bisschen. Erstens ist es möglich einen sehr starken aber auch schwach einstellbaren schachcomputer zu programmieren? Und wie soll ich anfangen?

Ich ermittle die aktuelle Farbe einer Zelle mit der Funtion Interier.ColorIndex. Dummerweise kommen beim gleichen Programm bei manchen Farben unterschiedliche Werte auf zwei Systemen zurück und deshalb macht mein eigentliches Programm nicht genau das was ich erwarte. Das eine System ist Windows 7 mit Excel 2002 und das andere Windows XP mit Excel 2010.

Ich habe eine kleine Testroutine geschrieben:

Private Sub BTestFarben_Click()
  Dim myRow As Integer

  ' Ermittelt die Farben der Zellen
  myRow = 4
  Do
    Cells(myRow, 10) = Cells(myRow, 9).Interior.ColorIndex
    myRow = myRow + 1
    If myRow > 20 Then Exit Do
  Loop
End Sub

Warum ist das so und wie könnte man das Problem lösen?

Hallo alle zusammen,

ich hab ein kleines Problem mit einem Makro, welches ich mir mit Hilfe diverser Quellen versucht habe auf meinen Fall zusammenzuschustern. Folgendermaßen kann man sich die Grundsituation vorstellen:

Ich habe in den Spalten D Und E ca 70 Zeilen mit Einträgen. Bis auf die Zellen 11 - 14 Ist die Spalte E leer. Also wollte ich ein Makro benutzen, welches die Spalte D wenn D und/oder E leer sind mit E zusammenfasst und sonst nicht.

Das soll dann auch für die Spalten F,G und H,I und immer soweiter klappen. Wer könnte mir Helfen und zeigen wo mein Fehler liegt denn bisher funktioniert das Makro nicht ganz so wie ich mir das vorgestellt habe.

Sub Formatierung()

Dim Zeile As Integer Dim Spalte As Integer

For Spalte = 4 To 256 Step 2
For Zeile = 1 To 100

If ((Not (IsEmpty(Cells(Spalte, Zeile)))) = True And IsEmpty(Cells(Spalte + 1, Zeile)) = True) Then
Range(Cells(Zeile, Spalte), Cells(Zeile, Spalte + 1)).Merge
End If

If IsEmpty(Cells(Spalte, Zeile)) = True And IsEmpty(Cells(Spalte + 1, Zeile)) = True Then
Range(Cells(Zeile, Spalte), Cells(Zeile, Spalte + 1)).Merge
End If

Next Zeile

Next Spalte

End Sub

So sieht das bisher aus. Für jede Hilfe vorab schonmal besten Dank

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
End Sub

Hallo Wie kann ich mit VBA ein Eigenschaftsfeld automatisch im Word einfügen?

Gruss

Ich will wie oben gennant, zwei zellen addieren. Z.b. A7+A8. weiss aber nicht wie das geht?

Hallo, mich interessiert mal der Unterschied, die Vor-und Nachteile von den beiden Sprachen (Ich hoffe die heißen genau so^^)

Und würde gerne mal eure subjektiven Äußerungen dazu lesen. Danke =0

Hab schon gegooglet, aber da leider nichts Gutes gefunden. Evtl. hab ich die falschen Begriffe verwendet, also könntet ihr dann an Stelle von Googel doch einen Google-Link schreiben ;)

Es sieht so aus: Mein aktives Sheet ist das erste. Auf dem zweiten Sheet sind ein paar Kontrollkästchen, bei denen ich nun abfragen möchte, ob sie ein Tick haben oder nicht. Aus einem Forum habe ich folgendes herausgekriegt:

Sub machwas()
ActiveSheet.Shapes("Check Box 1").Select
If Selection.Value = xlOn Then
MsgBox "Häkchen gesetzt!"
Else
MsgBox "Häkchen nicht gesetzt!"
End If
End Sub

Das Ziel wäre, dass ich ActiveSheet durch einen Code ersetzen kann, der dann das zweite Sheet - es heisst Mitarbeiter - anspricht.

Ausprobiert habe ich ohne Erfolg:

• Sheets("Mitarbeiter").
• WorkSheets("Mitarbeiter").
• Workbooks("test.xls").Worksheets("Mitarbeiter").

Ich habe Spalten mit unterschiedlicher Länge: A geht bis Zeile 9 hat dann eine Leerzeile und dannvon 11 weiter bis 23, B geht bis 18, C bis 25.

Ich möchte aber immer die erste leere Zelle in A ermitteln, also im Beispiel die Zeile 10 Das geht natürlich mit einer For Next Schleife, aber es soll auch eine einfachere Formel dafür geben. Und ich brauche nur die Nummer der Zeile (Row)

Wenn ich bei mir in Excel 2007 die Tastenkombination Alt-Enter drücke zeigt er rechts immer den "Recherchieren"-Dialog an. In älteren Excel-Versionen macht er das nicht.
Wie kann man das verhindern?
Gibt es irgendwo einen Dialog wo man die Tastatur-Belegung ändern kann?

Hallo,

habe bisher nicht soviel Erfahrung mit VBA und bisher kam ich mit der Macroaufzeichnen funktion gut Zugange. Ich habe eine Tabelle die 271 Zeilen Umfasst, in Spalte C steht der Name und in Spalte D der Vorname. Nun soll man den Namen irgendwo eingeben können (Inputbox oder ähnliches) und dann nach dem Namen in Spalte C und D gesucht werden. Die gefundene Zeile soll gelöscht werden.

Kennt sich da jemand aus und kann mir helfen? Danke schon einmal

Siehe Hardcopy:

http://s14.directupload.net/file/d/2729/q7by9be7_jpg.htm

Wenn ich die Tabelle aufsteigend nach Spalte A sortiere steht das Ö vor dem S, was für mich bedeutet das S größer als Ö ist.
Wenn ich aber Excel VBA die beiden Zellinhalte vergleiche ist nun aber Ö größer als S ???

Damit meine Programme funktionieren sollte der Vergleich schon immer das gleiche Ergebnis zurückbringen. Was kann man tun?

eine frage an die excel experten hier:

ich habe eine Tabelle mit ca. 1000 Bestellnummern in der Spalte. Um diese abzugleichen, klicke ich auf Menü Bearbeiten -- Suchen -- gebe die entsprechende Nummer ein und er springt in die richtige Zelle. Dann markiere ich die Zelle mit Füllfarbe, damit ich weiss, dass die Zelle bereits gefunden worden ist. So weit so gut. Aber gibt es eine Möglichkeit, vielleicht ein VBA Script, mit dem die gesuchten Zellen automatisch farblich markiert werden? Das heisst: beispielsweise: Bestellnummer in A5 gefunbden grün markieren, dann 2. Bestellnummer in A10 gefunden und auch automatisch markieren. Die Zellen in diesem Fall a5 und a10 sollen auch nach der nächsten Suchanfrage markiert bleiben. Hat jemand dafür eine Lösung?

Moin,

ich hab folgendes Problem, und zwar möchte ich eine Makrofunktion erstellen mit der man den Zellinhalt einer markierten Zelle in eine andere frei wählbare Zelle kopieren kann. Bis jetzt sieht meine Funktion so aus:

Sub Makro()

Dim Quellbereich As Range Set Quellbereich = ActiveCell

Quellbereich.Copy Range("C1").Select Selection.PasteSpecial Paste:=x1Values, Operation:=x1None, SkipBlanks:= False, Transpose:=False Application.Cutcopymode = False Quellbereich.Select Quellbereich = "" Range("C1").Select

End Sub

Jetzt ist meine Frage, wie ich "Range("C1") auch über die Auswahl mit der Maus steuern kann. Ich stell mir das mit Pause/Wait und Input neue Zellenauswahl oder so vor. Evnt. auch das man das Makro wie bisher über Strg+y startet und anschließend die Quell und die Zielzelle nach einander markiert.

Würde gerne ein Drehfeld in Excel programmieren ich finde im Internet immer diese Codes.

Private Sub SpinButton1_SpinDown()
Range("A1") = Range("A1") - 0.1
End Sub

Private Sub SpinButton1_SpinUp()
Range("A1") = Range("A1") + 0.1
End Sub 

Aber wie gebe den Code ein? Wenn ich auf Code anzeigen kommt dann kommt etwas mit SpinButton_Change und es macht wohl wenig Sinn das dort einzugeben. Und einzeln kann ich die Felder nicht aussuchen.

Kann mir jemand helfen? Gruß

Hallo Leute,

ich sitze gerade vor einem Excel Problem: Ich habe eine Tabelle in dem die Zellen folgendermaßen formatiert sind: [h]:mm, da ich in Stunden und Minuten über 24 Stunden hinaus rechnen muss. Ich möchte nun eine Abfrage einbauen, wenn in K12 ein Wert steht, der größer als 10 Stunden ist dann soll in L12 die Differenz (also Wert - 10) stehen. Wenn der Wert nicht größer ist, dann soll (als Test) 150 ausgegeben werden. Das Problem ist nun, dass ich in der WENN Abfrage keine 10:00 Als Wert angeben kann! Also das geht nicht: =WENN(K12>10:00;K12-10:00;150) Kann mir da jemand behilflich sein?

Danke im voraus

Gruß BB

Ich habe per VBA für einen Button über .protect password:="xxx" einen Blattschutzpasswort-Schutz eingebaut. Sobald man jedoch das falsche Passwort eingibt meldet Excel "Fehler" und bietet die Debug funktion an. Klickt man darauf kommt man in meinen Code und kann nach belieben zwei Zeilen darüber das Passwort ändern.

Hat jmd einen Tip wie man das verhindern kann?

Gruß, Martin

Hallo nochmals,

ich habe mit hilfe con einigen "gutefrage.net" usern einen code geschrieben und versuche jzt durch "Copy-Paste" es für jede Zelle anzuwenden.

Beim For-Befehl kommt immer folgende Meldung "For Steuervariabel wird bereits verwendet"

was bedeutet das ? heißt es, das man das "For" nur einmal in einem code gebrauchen kann ? wäre vielleicht ein "GoTo" befehl angebrachter? ( sprich: go to next cell, wenn die bedingung erfüllt ist )

hier ist der code:

sub kopieren( )

Dim Zelle As Range Dim Wert As Variant

Wert = ActiveSheet.Range("J16:j29")

With Sheets("Tabelle2") For Each Zelle In .Range("F6:G6")

If ((Range("J16").EntireRow.Hidden = True)

Or (Range("J16").EntireColumn.Hidden = True))

Or (Range("J16").Font.Strikethrough = True) Then

Zelle.Value = ActiveSheet.Range("J17")

Else

Zelle.Value = ActiveSheet.Range("J16")

With Sheets("tabelle2")

For Each Zelle In .Range("H6:I6")

If ((Range("J17").EntireRow.Hidden = True)

Or (Range("J17").EntireColumn.Hidden = True))

Or (Range("J17").Font.Strikethrough = True) Then

Zelle.Value = ActiveSheet.Range("J18")

Else

Zelle.Value = ActiveSheet.Range("J17")

End If End With End If Next Zelle End With End Sub

Danke schonmal für eure Tatkräftigen Hilfen :)))

Gruß Newb

Hallo an alle klugen Köpfe,

ich habe ein Makro erstellt, dass von einer Tabelle die Daten in die ne andere Tabele exportiert. was auch ganz gut klappt!

ich möchte aber das ausgeblendete und durhchgestrichene Zellen ignoriert werden oder besser gesagt nicht in die neue Tabelle mit-exportiert werden.

Hat da jemande eine schlaue Lösung?

Hier (ein Teil vom Makro) :

Range("C14").Select Selection.Copy Sheets("Tabelle2").Select

Range("N6:O6").Select
ActiveSheet.Paste    -----------> außer es ist ausgeblendet/durchges
Range("N7:O7").Select
Sheets("aktuell").Select
Range("G14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Sheets("aktuell").Select
Range("C15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Se

Gruß Newb

Ich habe ein Excel-sheet mit Daten und Makros. Nun möchte ich die Daten in eine neue Excel Tabelle schreiben, so das keine Makro-Sicherheits meldung beim öffnen der ausgegeben Datei kommt.

Wie geht das?

Hallo zusammen,

ich versuch grad 2 Tabellen zu synchronisieren kriege ich aber leider nicht hin.

Mann muss sich das so vorstellen :

in der ersten Tabelle sind Materialnummer die in der zweiten übernommen werden sollen.

Falls sich der Zelleninhalt ändert bzw. eine Zelle gelöscht oder eingefügt wird, soll genau das gleiche in Tabelle 2 auch passieren.

mit der Wenn-funktion hats leider nicht geklappt, befürchte schon fast das ich ein Makro brauche.

Hat jemand eine schlaue Lösung für das Problem?

Gruß Newb

Hallo liebe Community =)

Ich bin Informatiker und Programmiere Leidenschaftlich gerne Makros.Zurzeit habe ich ein Makro erstellt für verschiedenste kleine zeitvertreib Spiele bzw Berechnungen.

Nun bin ich an dem Punkt angekommen wo mir die Ideen ausgehen.

Hättet ihr vll Ideen was man mit Excel noch alles so machen kann ?Oder was man eventuell noch gebrauchen könnte ?Kann natürlich auch was völlig sinfreies sein wenigstens ich habe etwas zutun =)

Ich hoffe ihr könnt mir irgenwelche Anregungen mitteilen =)

Mfg: Kreater

Hallo,

ich habe eine Excel-Datei - der Einfachheit halber eine große Tabelle.

Per Buttons kann man bestimmte Berechnungen mit den Werten in der Tabelle anstellen und die einzelnen Zellen entsprechend formatieren.

Meine Frage:

Wenn ich Blattschutz auswähle und vorher den Bereich innerhalb der Tabelle mit "Benutzer dürfen Bereiche bearbeiten" festlege und dann als Option beim Blattschutz "nicht gesperrte Zellen auswählen" und "zellen formatieren" erlaube, kann ich anschließend trotzdem nicht die Zellen im vorher definierten Bereich auswählen und/oder bearbeiten.

Was mache ich falsch?

vielen Dank,
Thomas

Hallo Leute,

ich habe in Excel 2003 ein Makro per VBA geschrieben. Jetzt möchte ich es als "Microsoft Excel-Add-In"  speichern, um es später unter "Extras - Addins" aufzurufen. Ich kenne nur das normale speichern. Kann mir jemand vllt helfen`?

Danke im Voraus

und kommt cells dann vorne oder hinten und wofür steht das value? Und steht in der Klammer hinter cells erst die Zeile oder erst die Spalte?

Hi,

habe mal wieder ein Problem mit VBA.

In einer Userform deklariere ich eine globale Variable, die von verschiedenen Prozeduren in dieser und einer anderen Userform genutzt werden soll. In der zweiten Userform ist diese Variable jedoch unbekannt. Was mache ich falsch?

Die Variable ist deklariert per:

Public NAME As TYP

gleich unter Option Explicit...

Danke und Gruß Philip

Hallo,

ich habe in einer Tabelle eine Spalte voller Einträge zweier verschiedener Typen:

1. Strings der Form #.#.# wobei # eine Ziffer darstellt
2. Zahlen der Form # bzw #,#

Ich möchte erstere Form beibehalten und die zweite in einen String der Form #.# umwandeln. Kann mir da jemand helfen?

Wie kann ich über VBA ein neues leeres dokument in Word erstellen?

kann mir dabei jemand helfen?

Hallo,

ich habe in Excel-VBA eine Combobox erstellt mit mehreren Auswahlmöglichkeiten und einen Commandbutton. Ich möchte, dass sich je nachdem welche Auswahl man trifft aus der Combobox sich eine andere Userform öffnet, wenn ich den CommandButton drücke. Meine Daten aus der Combobox habe ich in einer Excel-Tabelle (H2;H9). Kann mir jemand helfen? Danke

Hallo liebe Leute,

ich sitze hier seit stunden und komme einfach nicht weiter. Ich habe eine Excel Datei, dort soll wenn kein Inhalt in dieser Spalte vorhanden ist die Spalte gelöscht werden. Die Spalte ab wann die Prüfung stattfinden soll ist I und beginnt in der Zeile 3,weil dort die Spaltenüberschrift steht. Die Spalten davor sollen erhalten bleiben also A-H. Wenn ein Wert /text in der Spalte I vorhanden ist soll die Spalte erhalten bleiben. Dies soll für die Spalten I bis Z erfolgen. Ich hoffe das mir jemand helfen kann.

Wie kann ich in einer Zeittafel in Excel eine mitlaufende Hilfslinie erstellen? Geht es auch ohne VBA? Beispiel siehe Bild. Die Linie ging mal automatisch mit dem aktuellen Datum mit, jetzt muss man manuell verschieben.

Liebe Community,

ist es möglich, die Ergebnisliste der Excel-Suchfunktion in eine neue Tabelle oder ein neues Tabellenblatt schreiben zu lassen?

Ich habe folgendes Problem:

In einer riesigen Excel-Tabelle (Excel 2007) suche ich nach bestimmten Werten über alle Tabellenblätter (>50). Die Ergebnisliste der Excel-Suche (Strg+F) beinhaltet fast alles, was ich wissen muss, vor allem aber den Namen des Blattes, in dem der Wert gefunden wurde und eben den Wert selbst. Leider habe ich keine Möglichkeit gefunden, diese Ergebnisliste abzuspeichern. Am liebsten würde ich die Suche auch leicht abändern, so dass auch der Name des Bereiches, in dem der Wert gefunden wurde, mit in der Ergebnisliste steht.

Für eine Idee wäre ich sehr dankbar. Makros sind mir nicht fremd, aber ich bin kein "VBA-Checker" und habe es nicht geschafft, ein entsprechendes Makro zu bauen. Vielleicht kann man das auch über ein Suchformular lösen, aber mit der Erstellung solcher Abfrageformulare kenne ich mich leider auch gar nicht aus.

Hat hier irgendwer eine Idee? Danke im Voraus!!!

Astro7x7