Hallo zusammen,

ich würde gerne über Visual Basic, wenn eine bestimmte if Bedingung erfüllt ist (bekomme ich hin), einen Zellbereich leeren (Formatirung soll erhalten bleiben, also nur Hintergrundfarbe und Inhalt löschen), z.B. 2B bis 6E. Kann mir jemand hierbei helfen? Ich weiß leider weder wie ich eine Aktion für einen Zellbereich ausführe (es werden mehrere Zellbereiche werden) noch weiß ich, wie ich über Visual Basic Zellen leeren kann.

Gruß

Hallo zusammen,

ich habe eine UserForm mit verschiedenen OptionButtos. Durch klicken auf einen CommandButton soll zum einen je nach ausgewähltem OptionButton eine neue UserForm geöffnet werden, dass ist kein Problem, und zum anderen die aktuelle UserForm geschloßen werden. Wie bekomme ich das hin?

Hier der Code, den ich bisher habe:

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
    UserForm2.Show
ElseIf OptionButton2 = True Then
    UserForm3.Show
ElseIf OptionButton3 = True Then
    UserForm4.Show
ElseIf OptionButton4 = True Then
    UserForm5.Show
ElseIf OptionButton5 = True Then
    UserForm6.Show
ElseIf OptionButton6 = True Then
    UserForm7.Show
ElseIf OptionButton7 = True Then
    UserForm8.Show
ElseIf OptionButton8 = True Then
    UserForm9.Show
ElseIf OptionButton9 = True Then
    UserForm10.Show
ElseIf OptionButton10 = True Then
    UserForm11.Show
ElseIf OptionButton11 = True Then
    UserForm12.Show
End If
    

End Sub

Ich habe vor, mich für ein duales Informatik-Studium zu bewerben. Da soll ich einen Programm-Code mitschicken, ich habe nur keine Idee, welche Art von Programm ich erstellen könnte, was für die Personalleute interessant ist. Ich habe schon einige Grundkenntnisse in Visual Basic und C, ich habe aber einfach keine Idee, welche Art von Programm ich denen schicken könnte. Ein Schulfreund hat mir zu einem Random-Maze-Game in VB geraten, aber das bekomme ich einfach nicht hin. Hat irgendjemand eine einfachere Idee, die aber nicht zu einfach wirkt? Z. B. Schleifen und Bedingungen bekomme ich schon hin, es soll auf keinen Fall etwas Hello World mäßiges sein. Ich meine nicht einen vorgefertigten Code, sondern welche Art von Programm. Über eine Hilfe wäre ich sehr dankbar.

Hallo, ich hätte da eine Frage bezüglich Visual Basic 2010.

Ich habe ein Programm erstellt, welches mir eine Email zusenden sollte. Als Fehlercode kommt jedoch: Für den SMTP-Server ist eine sichere Verbindung erforderlich, oder der Client wurde nicht authentifiziert. Die Serverantwort war: Must issue a STARTTLS command first

Unten im Anhang findet ihr ein Bild mit meiner Codierung und dem Fehlercode. Ich hoffe jemand kann mir helfen, ich bekomme einfach keine Email.

Das Bild: http://fs1.directupload.net/images/150322/6oje4rvz.png

Würde mich über einen Ratschlag freuen. Viele Grüße.

Hallo zusammen, ich würde Geren wissen, wie man eine Worddatei in eine VBS Datei umwandelt.

Wenn ich die txt Datei einfach in .vbs ändere dann bleibt sie ja eine txt. Datei.

Zumindest habe ich ja beim speichern auch immer "Vorgaben" beim Dateityp also entweder als txt. als pdf usw. da kann ich vbs natürlich nicht auswählen.

Was wäre der richtige Weg?

Besten Dank!

Hallo, ich habe in mein Excel Dokument einen Button eingebaut, den ich mit einem Makro verbinden möchte, der eine neue Zeile einfügt und eine darüberliegende vorhandene Zeile Kopiert bzw. nach unten zieht, um in dieser neue Werte eintragen zu können. Funktioniert soweit auch ....

ABER natürlich verschieben sich die Bezüge durch das einfügen neuer Zeilen und die Makros, welche sich auf Zeilen unter dem ersten Makro beziehen, funktionieren nicht mehr an gewünschter Stelle...

In Visual Basic habe ich versucht die "Range" Bezüge zu ändern, habe aber nur den ansatz für einzelne zellen gefunden z.b. "ActiveCell.Offset(1,0).Range("A1").Select"

Auf dem Bild soll jeweils das blaue kreuzchen eine neue Zeile einfügen, siehe Zeile Opex. Folgendes ist mein VB Quelltext bei dem sich immer alles verschiebt: Sub add_cost_netrent() ' ' dada Makro '

' Rows("9:9").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("D8:H8").Select Selection.Copy Range("D9").Select ActiveSheet.Paste ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 8 Range("U8:Y8").Select Application.CutCopyMode = False Selection.Copy Range("U9").Select ActiveSheet.Paste End Sub

Hallo Leute,

Ich möchte mir evtl. einen Arduino UNO kaufen aber der hat ja seine eigene Programmiersprache. Da ich mich aber schon relativ gut mit Visual Basic (.NET) auskenne, hier nun meine Frage: Kann ich mit Visual Basic ein Programm schreiben, das der Arduino auch verarbeiten kann und wie kriege ich das dann drauf?

P.S. Ich möchte mit VB ein Programm schreiben und den Arduino nicht nur ansteuern!

Danke im Voraus

Hallo,wie oben schon beschreiben, möchte ich ein Programm schreiben welches ein anderes externes Programm beendet (um genau zu sein Steam), also im prinzip den Prozess Steam.exe beendet.

Auserdem möchte ich das es später, auf Knopfdruck wieder Steam (bzw Steam/Origin/Uplay etc.) startet.

Ich habe leider überhaupt kein Plan, wie ich das umsetzten soll...

Vielen Dank :)

Servus, Ich möchte gerne in VB prüfen ob ein Prozess läuft, wenn er es tut soll der Text eines Labes geändert werden. Ich hab es bisher so gemacht, aber das funktioniert nicht :(

Dim p As Process For Each p In Diagnostics.Process.GetProcesses() If p.ProcessName = "..." Then Form1.Label1.Text = "..." Else Form1.Label1.Text = "..." End If Next

Ich hoffe ihr könnt mir da helfen

Ich arbeite grade in Visual Basic 2010 Express an einem Pogramm, in dem der User Dateien auswählen kann, die dann an einen bestimmten Ort kopiert werden sollen. Ich habe vorher noch nicht viel mit Dateien gemacht und bräuchte deshalb etwas Hilfe bzw. einen Quellcode

will man zum Beispiel bei Visual Basic ein Programm schreiben, dass überprüft, ob Zahlen Primzahlen sind, macht man das mit einer Schleife, die von 2 bis zur Wurzel der Zahl geht. Meine Frage ist jetzt, warum man die Schleife nur bis zur Wurzel der Zahl machen muss? Ich habe gelesen, dass es nur Teiler bis zu der Wurzel geben kann aber warum ist das so? Ich habe leider keine der Erklärungen verstanden >.<

Hier nochmal mein Code zur Verständnis:

Dim p As Long = tbPrimzahl.Text
Dim Counter As Long
    Dim Primzahl As Boolean  = True                            

        For Counter = 2 To  Math.Sqrt(p) Step 1
            If p Mod Counter = 0 And Counter <> 1 Then
              Primzahl = False
              MsgBox(p & " ist keine Primzahl.", MsgBoxStyle.OkOnly)
              Exit Sub
            End If
        Next Counter

Hey :)

Ich wollte fragen ob es eine Möglichkeit in Visual Basic gibt entweder zu verhindern dass das Fenster minimiert wird oder dafür zu sorgen dass das Fenster sobald es minimiert wird , wieder Maximiert wird :D

Würde mich über Hilfe seeehr freuen :)

Mfg MCZ

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

hey leute, ich brauch nen quelltext für VB. ich möchte ein programm programmieren, welches unter eingabe von einer kathete und der hypotenuse alle größen in einem rechtwinkligen dreieck berechnet.

als gedankenstütze kann ich sagen, dass man funktionen zur berechnung von pi und zur umwandlung von Gradmaß ins bogenmaß brauch.

ich habe leider echt keine ahnung wie ich da rangehen soll. die userform ist kein problem.

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 ?

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 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?