Visual Basic – die besten Beiträge

Guten Tag! Ich habe in Word eine Tabelle mit zwei Checkboxen erstellt (siehe Bild 1), wenn man auf Ja klickt passiert soweit nichts, wenn man auf Nein klickt soll der Inhalt der darunter liegenden Zeile eigentlich ausgeblendet werden und darunter soll dann ein Text eingeblendet werden (Z.B: Hiermit erklären Sie sich einverstanden das Sie auf Datensicherung verzichten usw.).

Da ich mich zum ersten mal mit der VBA Programmierung in Word beschäftige, bin ich ziemlich ratlos was ich noch machen kann. Mithilfe von Google habe ich schon folgendes geschafft:

Private Sub OptNo_Click()

If OptNo = True Then
    With ActiveDocument.Tables(1)
        .Rows(2).Select: Selection.Delete
    End With
End If

End Sub

Wie ihr sehen könnt, wird die Zeile geleert. Der Text sollte eigentlich nur ausgeblendet werden, damit man ihn bei Klick auf Ja wieder einblenden kann. Außerdem weiß ich nicht wie ich dann in die geleerte Zeile oder darunter einen Text einfügen kann.

Ich wäre euch für eure Hilfe sehr dankbar Mfg Chaosboy

Hallo

ist es irgenwie möglich eine Datei (VBS) zu programmieren die die tastatur prüft ob z.B. Leertaste gedrückt wird, und wenn das der Fall ist soll es eine Datei starten. Ich fand bis jetzt noch nichts dazu im internet. Wozu ? ich habe eine Batchdatei die Bilder öffnet und auf Vollbild stellt nun brauche ich diese datei um zum nächsten bild zu wechseln.

weiß jemand ob sowas funktioniert ?

Hallo Leute, Seit einiger Zeit bin ich auf der Suche wie man einen eigenen Launcher programmiert. Nehmen wir als Beispiel Minecraft. Wenn ich einen Minecraft Launcher Programmieren soll muss ich ja irgendwo anfangen. Ich habe eigentlich nicht vor eine einfache z. B. Visual Basis Anwendung oder auch.Bat zu machen mit der ich einfach nur Minecraft starte. Ich würde es gerne mit Login Screen machen. Ebenfalls habe ich schon ein bisschen gesucht aber immer leider nur Stücken zusammen gesammelt - welches wie sich später erwiesen - hatte nutzlos war :D --> -.-' naja deswegen wollte ich fragen ob ihr mir eine Anleitung schreiben oder ein einfaches Tutorial kennt wo dies genau erklärt wir...:D

P.S Ich habe sowohl Java als auch C++ kentnisse.

Danke im Voraus :DD

Ich komme nicht weiter, da ich komplett neu bin. Ich versuche momentan dieses Spiel: http://www.youtube.com/watch?v=fySEJPoV74Q zu programmieren, nur in dem umgekerhrten Format. Aber es gibt zei Fehler: ,,Das Item ist Read only``

Hier der Code:

Public Class Form1 Dim unten As Double = +5 Dim rechts As Double = +5 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button1.Visible = True Button2.Visible = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Start()
    Button2.Visible = True
    Button1.Visible = False

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Timer1.Stop()
    Button1.Visible = True
    Button2.Visible = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


    ball.Bottom -= unten
    ball.Right -= rechts

    If ball.Left <= 0 Then rechts = -5
    If ball.Right >= 772 Then rechts = +5
    If ball.Bottom >= 659 Then unten = -5
    If ball.Top <= 0 Then unten = +5

    Plattform1.Top = MousePosition.X

    If ball.Top >= Plattform2.Top Then Plattform2.Top += 5

End Sub

End Class

Übrigens wenn ich die Maus bewege (wenn das Spiel an ist) bewegt sich mein ,,Schläger`` nach oben und unten. Hoffe das mir wer weiterhelfen kann =)

Ich möchte ein Programm in VB schreiben und stehe nun vor einem Problem: Ich möchte, dass wenn man die Fenstergröße des Programms ändert, dass sich dann dementsprechend auch z.B. die Textboxen in der Länge verändern. Ist das durch eine Einstellung in den Objekteigenschaften zu ändern, oder muss ich dazu erst ne Funktion schreiben? Vlt. kann mir jemand schnell helfen. Danke

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!

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

Hallo Leute, ich habe bei meinem Projekt eine Textdatei hinzugefügt , wie kann ich in diese etwas reinschreiben und auslesen?

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?

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

Ich möchte gerne in Visual basic, die Schriftfarbe eines Buttons ändern. Ich bin auch nicht Recherchiere faul, aber ich finde nur Codes wo man die Hintergrundfarbe des Buttons ändern kann, und nicht die Schriftfarbe. In meinen Vorstellungen sollte das so aussehen: Jede 0,5 - 1 Sekunde soll die Schriftfarbe immer auf eine andere Farbe geändert werden und dass unendlich lang.

Ich hoffe jemand könnte mir dabei helfen

Lg Veier

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"

Ist Visual Basic noch eine gänige Programmiersprache?

Hallo Leute ,

Die Frage für die VB Kenner ist , wie lese ich eine Zahl aus einer Textbox aus in der sich mehrere Zahlen befinden , z.B. Level=12Points=8 und lasse die dann auf ein Label laufen ?

MfG

PS. Dankbar für jede Hilfe

Hallo!

Ich suche gerade die Command Line-Optionen der Windows-7-Fotoanzeige, d.h. genau genommen nur, wie man ein oder mehrere Bilder per Batch / vbs / einfach Command Line öffnet. Nach einer ¾stunde Googlens habe bitte ich um antwotrten!

MfG KT

Ist es mögich, mit CMD / Batch / VB eine Netzwerkverbindung unter Windows XP zu trennen, OHNE dabei die Netzwerkkarte zu deaktivieren?

Hintergrund:

Dies wäre zu Datensicherungszwecken nötig, da zur Zeit der Sicherung kein anderer Rechner im Netzwerk auf diesen Rechner zugreifen darf. Ich habe zwar bereits Lösungen gefunden, bei denen die Netzwerkkarte deaktiviert wird, aber das darf in meinem Fall nicht passieren, da sonst einige Programme ihre Lizenzen verlieren.

Also wenn ich bei VB den Befehl rmdir anwende kommt ein Fehler weil man ja mir rmdir nur leere Ordner löschen kann ,ich möchte aber das er auch die Dateien löscht...Welchen befehl brauche ich da ?

Schonmal Danke ^^

Hey Leute,

ich habe imoment keine Ahnung was ich programmieren soll...
Ich beschäftige mich seit einigen Monaten öfters mal mit Visual Basic und habe auch ein Grundlagen Buch (Galileo Computing) gekauft und etwas drin gearbeitet.

Was ich bereits gemacht habe:

• Mehrere Webbrowser (Auch mit Geckoengine)
• Einen kleinen simplen Taschenrechner
• Einen guten Keylogger aus fun(Keine Sorge, ich habe ihn niemanden geschickt xD)
• Ich habe das Spiel "Scary Maze" nachprogrammiert, mit Startseite und mehreren Levels
• Ein paar Aufgaben aus dem Buch

Jetzt habt ihr so eine gewisse Ahnung, was ich bereits kann...
Hättet ihr vielleicht ein paar Ideen, was ich programmieren könnte?
Kann auch etwas schwerer sein, damit ich da etwas länger dran arbeite (aber auch wiederum nicht so schwer, dass ich 1 Jahr dran hocke)

Danke für jeden Vorschlag!

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