Hallo liebe Leute,

Ich habe eine Excel-Tabelle mit 8 Spalten. In dem angehängten Bild ist ein Beispiel. Nun möchte ich gerne in der grünen Zeile einen Wert zu einer beliebigen Spalte eingeben. Dieser Wert liegt irgendwo zwischen zwei Werten der Tabelle in der jeweiligen Spalte. Dann soll Excel mir die restlichen Werte der übrigen Spalten in der grünen Zeile durch lineare Interpolation ermitteln. In der angehängten Datei ist dies für a=4,87 zum Beispiel gezeigt. Ich möchte nun aber auch mal d=16,66 eingeben können und die restlichen Werte für a-h bekommen.

Hat jemand eine Idee, wie ich das in Excel umsetzen könnte?

Vielen Dank euch allen und viele Grüße!

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

Hallo zusammen,

ich habe in Excel eine Liste, mit einer Hintergrundfarbe die ich aus der Farbpalette selbst hinzugefügt habe. Nun habe ich in Visual Basic hinterlegt das je nachdem was an Werten ausgespukt wird einzellne Zellen rot gefärbt werden. Cells(zd, 6).Interior.Color = vbRed Wenn man die UserForm noch mal ausführt und die Werte ok sind, soll die Farbe wieder auf die vorherige Farbe geändert werden. Da diese aber keine standart Farbe ist, weiß ich nicht wie ich diese dort wieder rein bekomme..

Brauche Hilfe mit einigen Formular Kontrollkästchen: Sie soll bei aktiv die Hintergrundfarbe grün (erledigt) erhalten. Ich habe es schon per macro versucht und auch per VBA, aber es scheint das ich dafür Profi-Hilfe brauche. Bitte gebt mir einen Tip wie ich das hin bekomme. Ich habe ein Formular das 20 Kontrollkästchen aus der Steuerelemente (Entwicklertools) hat und alle die, die aktiviert wurden sollen als grüne Kästchen erscheinen. Besten Dank vorab

Hallo,

Ich arbeite gerade an einer App, die Text in eine Richtextbox spammt, 2 verschiedene Lines jeweils abwechselnd mit einer verzögerung von 0.5 Sekunden. Den Code dazu seht ihr hier: (VB.net)

Ich weiß jedoch nicht, wie man im Bild sieht, wie ich das mit der 0.5 Sekunden Wartezeit geht. Wenn ich Thread.Sleep benutze, freezt die Anwendung komplett. Kennt jemand eine Lösung, wo die Anwendung nicht freezt und kann mir auch den Code schicken und sagen wo ich den einfügen soll? Bin neu bei VB.net.

Danke im Vorraus,

Louis

Hallo,

ich habe ein VBA-Script, in welchem die nächste freie Zeile gesucht wird.

In dieser Zeile sollen automatisch "alle Rahmenlinien" festgelegt werden.

Muss nicht unbedingt per VBA gelöst werden, darf auch gerne eine Regel sein.

Die Zellen vorzuformatieren möchte ich nicht.

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!

Ich will ein Makro schreiben, wo ich per Mausklick auf einem Button Inhalte kopieren kann. Auch in oder aus eine(r) andere(n) Datei. Könnte mir jemand dazu Hilfestellung geben? Oder einen brauchbaren Link vermitteln?

Danke!!! ;-)

Gruß

Gnuman

Alle Zellen sollen durch eine bedingte Formatierung formatiert werden die mindestens einen Buchstaben in der Zelle enthalten. Dabei spielt es keine Rolle ob es am Anfang in der Mitte oder am Ende der Zelle ist.

Z.B. sollte: 89A800d328934K-89 erkannt werden und 9823490-2308 wiederum nicht erkannt werden von der bedingten Formatierung.

Hallo,

Ich habe ein Problem. Ich möchte mehrere Variablen einem Wert zuweisen. Bisher bin ich davon ausgegangen dass das so funktioniert:

am1200 = am1200f = am1215 = am1215f = am1230 = "ON1OG"

Die Variablen am1200 bis am1230 sollen den Wert ON1OG haben. Weiß jemand wie man das lösen kann?

Danke an alle die sich Gedanken machen

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 Zusammen,

ich bin absoluter VBA neuling, bräuchte aber ein einfaches Makro zu folgendem Fall:

In den Zellen der Spalte R (R6:R150) steht entweder: "STATUS1=grün" oder "STATUS2=gelb" oder "STATUS3=rot".

• Wenn zum Beispiel Zelle R6 = "STATUS1=grün" dann sollen die Zellen (I6:J6) und die Zellen (L6:N6) geleert werden

• Wenn R6 = "STATUS2=gelb" dann sollen die Zellen (I6:J6) geleert werden

• Wenn R6 = "STATUS3=rot" dann soll nichts gelöscht werden.

• Wenn R6 = "" (also leer) soll auch nicht gelöscht werden.

--> Gleiches soll für alle Zelle im Bereich (R6:R150) gelten

--> Die Spalten I,J,L,M und N müssen aber befüllbar sein, daher lässt sich das ja nicht über eine Formel machen.

Das ist alles was ich bis jetzt zusammen gebastelt habe: leider funktioniert es nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Änderung in Zelle A1 erfolgt ist
If Target.Address = "$R$6" Then
    If IsValue(STATUS1 = grün) Then
    
            Range("4:F14").Select
            Selection.ClearContents
    End Select
End If
End Sub

Vielen Dank für eure Hilfe.

Hallo,

Ist es irgendwie möglich, dass wenn ich in Visual Basic ein Fenster habe dieses immer im Vordergrund ist und andere Fenster des gleichen Programms erst geschlossen werden können, wenn das Fenster im Vordergrund geschlossen wurde? Also so wie mit MsgBoxen?

Danke im Vorraus ^^

Louis

Hallo, ich programmiere in VBA etwas und nun bin ich an einem Punkt angelangt, an dem ich nicht weiß wie ich ihn lösen könnte. Ich habe eine Userform erstellt und dort gibt es eine Combobox. Wenn man dort einen Wert auswählt, wird dieser in einer Tabelle mit Datensätzen im Hintergrund gefiltert. Eine weitere Combobox erscheint, und diese soll nun mit den Werten gefüllt werden, die beim bereits gefilterten in einer anderen Spalte übrig bleiben. Die gleichen Wörter können dort auch noch öfter vorkommen. Also ich filtere zum Beispiel als erstes nach Nahrungsmittel und in der Combobox danach sollte dann Käse, Gemüse, Obst etc. zu wählen sein. Nun meine Frage: Wie kann ich aus einer bereits Gefilterten Tabelle Werte die übrig geblieben sind für die Initialisierung meiner Combobox verwenden? Danke für die Antworten schon im Voraus!

PS: Ist in Excel und nicht Access (hat seine Gründe)

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!

Wie kann ich meinen Visual Basic-Code in eine exe-Datei umwandeln ? Benutze Microsoft Visual Basic 2010 Express. Ich hab gelesen das man die Vollversion braucht. Gibt es keinen kostenlosen Complimier ?

Hallo zusammen,

ich will in Visual Basic Variablen addieren.

S12 = S2 + S3 + d2

Wenn z.B. S2=1, S3=2 und d2=3 sind sollte 6 raus kommen, jedoch wird mir 123 ausgegeben. Kann mir jemand sagen was ich ändern muss?

LG

Hallo zusammen,

ich möchte in Excel mithilfe eines Buttons und VBA bestimmte Zeilen ausblenden.

Das ganze soll wie folgt wirken:

Klickt man auf den Button sucht Excel nach Zeilen die in Spalte C den Inhalt "ohne Angaben" enthalten und blendet alle Zeilen aus welche diesen Text in Zelle C enthalten.

Wie kann man das realisieren?

Dirk

Hallo zusammen,

Ich versuche gerade ein Excel-Dokument zu erstellen, bei dem eine Mehrfachauswahl aus Dropdown-Listen möglich ist. Das heißt aus einer Liste sollte es möglich sein mehrere Werte anzuwählen. Das habe ich auch mit dem untenstehenden VisualBasic-Code gemeistert. Allerdings habe ich erstens das Problem, dass auch eine Mehrfachauswahl des immer gleichen Wertes möglich ist. Theoretisch könnte also in einer Zelle x-mal derselbe Werte auftauchen. Dies soll natürlich nicht möglich sein. Bei Doppelauswahl desselben Wertes soll dieser aus der Zelle wieder verschwinden.

Mein zweites Problem ist, dass ich bislang nur 2 zwei Dropdown-Listen mit Mehrfachauswahl eingefügt bekomme. Sobald ich eine dritte Spalte versuche zu implementieren, bekomme ich eine Fehlermeldung für meinen Code.

Dadurch, dass ich mich mit dem Ganzen nicht so wirklich auskenne, wäre es sehr nett, wenn mir jemand helfen könnte.

Danke!

 

Bisheriger Code:

 

Private Sub Worksheet_Change(ByVal Target As Range)

** Mehrfachauswahl über DropDown-Liste

'** Einfügen im Code-Container des betreffenden Arbeitsblattes

 

'** Dimensionierung der Variablen

Dim rngDV As Range

Dim wert_old As String

Dim wertnew As String

 

'** Errorhandling

On Error GoTo Errorhandling

 

'** Mehrfachauswahl im definierten Bereich "Abteilungen" und "Themen" (Bsp. J2:J2000, I2:I2000) durchführen

If Not Application.Intersect(Target, Range("J2:J2000", "I2:I2000")) Is Nothing Then

 

 '**Range definieren

 Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)

 If rngDV Is Nothing Then GoTo Errorhandling

  

 '** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen

 If Not Application.Intersect(Target, rngDV) Is Nothing Then

   Application.EnableEvents = False

   wertnew = Target.Value

   Application.Undo

   wertold = Target.Value

   Target.Value = wertnew

   If wertold <> "" Then

     If wertnew <> "" Then

       Target.Value = wertold & ", " & wertnew

     End If

   End If

 End If

 Application.EnableEvents = True

End If

 

Errorhandling:

Application.EnableEvents = True

End Sub

Hallo,

ich möchte mit Visual Basic in der Spalte A jeweils die 4 aufeinander folgenden Zellen miteinander verbinden. Also A4 - A7, A8 - A11 usw. In der Zeile mit range spuckt er einen Fehler und ich komme nicht drauf warum. Wäre super, wenn jemand mir helfen könnte 😁

Quellcode:

Option Explicit
Sub Merge()
Dim Counter1 As Integer
Dim Counter2 As Integer
Counter1 = 3
Counter2 = 7
Worksheets(„Tabelle1“).Activate
Do While Counter1 <= 1000
Range(Cells(Counter1,1), Cells(Counter2,1)).Select = True
Selection.Merge
Counter1 = Counter1 + 4
Counter2 = Counter2 + 4
Loop
End Sub

Gibt es dazu eine Formel in Excel oder kann mir jemand einen Visual Basic Code für dessen Berechnung geben?

Danke im Vorraus YSwaggerY

Also eine Combobox bei mir wird unter gewissen bedingungen mit unterschiedlichen Items gefüllt.

Nun soll eine MSGbox kommen wenn ein gewisses Item Vorhanden ist, meine Ansätze waren ganz unterschiedlich aber alle ohne Ergebnis

If combobox9.object(range("J2") then ...

Wichtig ist das es in der Combobox nur vorhanden sein soll und nicht unbedingt ausgewählt

Vielen Dank für die Hilfe

Hallo.

Ich möchte meine Programme die ich in visual Studio für Windows erstelle und unterwegs auf meinem android tablet weiter bearbeiten. Gibt es dafür Möglichkeiten? Wenn man danach googlet bekommt man nur Ergebnisse darüber, dass man über visual Studio auch android apps erstellen kann.

grüße

Ich habe folgendes Problem, bei einer Listview habe ich einer Suchfunktion eingebaut, so das der gesuchte Inhalt (Zeile) makiert wird, das funktioniert auch. Aber ich muss immer noch in der Liste nach unten scrollen um zu der makierten Zeile zu gelangen. Meine Frage ist, wie kann ich es anstellen, damit das Programm selbstständig zu der makierten Zeile springt?

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 ihr,

ich habe ein Problem mit einer Excel Anwendung, die ich machen möchte.

Ich habe einige Zellen in Excel, die jeweils einige Nummern oder Kennzeichnungen enthalten.

Für verschiedene Fälle muss ich einige dieser Nummern in eine Liste herausschreiben.

Ich möchte gerne, dass wenn ich auf eine Zelle Klicke oder Doppelklicke, dass sich der Inhalt dieser Aktiven Zelle in die Zwischenablage kopiert. Im Besten Fall fügt sich die Zwischenablage dann untereinander in einem Excel Blatt wieder ein, sodass ich nacheinander die verschiedenen Zellen anklicken kann und meine Liste so zusammenstellen kann.

Habe in VBA schon versucht, sowas zu realisieren, aber bis jetzt hat das nicht so funktioniert.

Ich hoffe, jemand kann mir weiterhelfen.

Vielen Dank!

Hallo Leute,

ich hätte ein kleines Vorhaben.

Ich möchte eine VBS-Datei schreiben.

Es soll so ablaufen:

1. Man gibt ein Wort ein, nach dem in einer Word-Datei (wenn's nicht geht, dann .txt) gesucht wird.
2. Es wird die gesamte Zeile, in der das Wort steht, ausgegeben.
3. Es wird die darauf folgende Zeile ausgegeben.

Ist eigentlich mega simpel, aber ich krieg es nicht auf die Reihe.

Für Lösungsansätz, Denkanstöße und Lösungen wäre ich dankbar. =)

MfG,

Arthur

Sollte man noch Visual Basic lernen, oder ist die Programmiersprache "tot"?

An alle Visual Basic Experten :P

Habe in Excel ein Makro geschrieben, das mir in verschiedenen Spalten Inch in mm umrechnet und die nicht gewünschte Einheit ausblendet.

Nun habe ich die Funktion aber nur für die Zeile A... :( Kann mir jemand sagen wie ich sich die Funktion nun auf die anderen Zeilen übertragen lässt ?

Mein Makro sieht wie folgt aus:

Sub Schaltfläche1_KlickenSieAuf()

Range("T3") = (Range("S3").Value * (254 / 10))

Range("V3") = (Range("U3").Value * (254 / 10))

Range("R3") = (Range("Q3").Value * (254 / 10))

Range("O3") = (Range("N3").Value * (254 / 10))

Range("J3") = (Range("I3").Value * (254 / 10))

Range("H3") = (Range("G3").Value * (254 / 10))

Range("F3") = (Range("E3").Value * (254 / 10))

Columns("U").Hidden = True

Columns("S").Hidden = True

Columns("Q").Hidden = True

Columns("N").Hidden = True

Columns("I").Hidden = True

Columns("G").Hidden = True

Columns("E").Hidden = True

Columns("F").Hidden = False

Columns("H").Hidden = False

Columns("J").Hidden = False

Columns("O").Hidden = False

Columns("R").Hidden = False

Columns("T").Hidden = False

Columns("V").Hidden = False

End Sub

Bin für jede Antwort dankbar. PS: ist mein erstes Makro :) wäre also nett , wenn die Lösung verständlich wäre :D

Hallo,

ich möchte in meinem "Besucher" DB einen Wert mit Hilfe eines Buttons um Eins erhöhen. Das heißt: Ich habe eine Tabelle für Besucher erstellt. Dort sind folgende Daten vorhanden:

ID, Vorname, Nachname, Alter, Anzahl_Besuche

Und ich habe ein Formular, für diese Tabelle erstellt. Nun möchte ich beim Klick auf dem Button, dass beim ausgewählten Besucher der Wert für Anzahl_Besuche sich um eins erhöht.

Da ich mich mit Access nicht so gut auskenne (Blutiger Anfänger), weiß ich nicht genau, wie ich das realisieren kann. Ich habe eine Schaltfläche in mein Formular hinzugefügt und nun fragt Access mich danach, was dieser Button tun soll. Der Schaltflächen-Assistent schlägt mir verschiedene Operationen vor, aber da ist nirgendwo was von einen Wert erhöhen oder ändern. Von daher komme ich nicht weiter.

Ich suche eine gute alternative zu Visual Basic, weil ich von Windows 7 auf Ubuntu frisch gewechselt habe. Ich gebe zu, ich bin eine blutige Anfänger! :) Ehrlich gesagt, habe ich mit Visual Basic noch nicht richtig angefangen, also habe ich so gut wie keine Ahnung von richtiges programmieren. Übringes ich will nicht über VM arbeiten. :D

Hallo liebe Community,

Ich will mit VBA EInen bereich von Zellen prüfen, ob daten enthalten sind. Dann soll, wenn eine Zelle gefunden wurde, rechts daneben einen wert ausgeben und 3 andere zellen löschen zb:

a1-a20 prüfen. in a5 ist gefüllt, in b5 soll "Erledigt" stehen, und c5, e5 und h5 soll gelöscht werden.

Kann mir da jemand helfen?

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then  

TextBox1.Text = "5"  

End If

End Sub

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

Bisher habe ich mit Microsoft Office gearbeitet, jetzt nutze ich OpenOffice 3.3.0 Mir fehlt folgende Funktion: Entwicklertools -> Visual Basic Gibt es das bei OpenOffice.org Calc nicht oder heißt es da nur anders? Vielen Dank für Ihre Hilfe!

PS: Wenn ich das über Makros mache, soll ich meine "Sicherheitseinstellungen ändern". Vresuche ich aber eben DIESES, funktioniert es trotzdem nicht...

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

Moin zusammen,

folgendes Problem :

ich habe ein 8 Seiten langes Dokument. Seite 1 und 8 sollen immer gedruckt werden.

Bei den anderen Seiten ist es davon abhängig, welche ToggleButtons in der Userform vorab auf TRUE gestellt wurden.

Button1 = Seite 2, 3

Button2 = Seite 4, 5

Button3 = Seite 6, 7

Also auch zum Beipsiel:

Button1 + Button2 = True, Button3 = False --> Seite 2, 3, 4, 5 sollen gedruckt werden.

Da alle möglichen Fälle einzeln zu programmieren sehr unübersichtlich und aufwendig ist, wollte ich mal fragen, ob einer von euch eine einfacherer Lösung kennt.

Danke schonmal ^^

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

Ich will von QBASIC auf eine modernere Programmiersprache umsteigen und wollte fragen, ob Python oder Visual Basic .NET besser ist.

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

Hallo zusammen,

ich habe eine UserForm in der folgendes steht:

    ...
    Spalte = 3
    Zeile = 6
    
    Unload UserForm1
    
    If OptionButton2 = True Then
        UserForm2.Show
    End If
...

In der zweiten UserForm steht dann:

Sub CommandButton1_Click()

If OptionButton1 = True Then
    Spalte = 6
ElseIf OptionButton2 = True Then
    Spalte = 9
ElseIf OptionButton3 = True Then
    Spalte = 12
ElseIf OptionButton4 = True Then
    Spalte = 15
End If

Unload UserForm2

End Sub

Leider funktioniert es nicht und "Spalte" bleibt immer 6.. Kann mir jemand weiterhelfen und sagen wie ich es hin bekomme, dass Spalte geändert wird?

Hallo

Ich habe mir ein Programm in Visual Basic geschrieben mit Visual Studio 2015. Wen ich die fertige Exe nun öffne, das Programm verwende und auf das

X((Beenden) drücke rechts oben) läuft das Programm trotzdem im Hintergrund weiter. Also im Taskmanager erscheint das Programm noch als Aktiven Prozess. Was muss ich machen dass das Programm komplett schliesst, wen ich auf X(Beenden) drücke?

Vielen Dank

Moin Leute,

ich habe da ein Programm in Excel erstellt und auch den Code, um das Blatt als .pdf in ein bestimmtes Verzeichnis zu speichern. Problem ist nun, dass ich in dem Code den Dateinamen eingeben muss. Der Speichert das also immer unter dem im Code angegebenen Namen. Ich möchte jetzt, dass der Dateiname so lautet, wie ein bestimmter Zelleninhalt von z.B. J5

Wie kann ich jetzt in meinem Code sagen, dass der Dateiname einem Zelleninhalt entsprechen soll?

Sheets("Sheetname").Range("A1:G95").ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\Computername\Dokumente\Ablage\Angebote\Angebot.pdf"

anstatt des Fettgedruckten soll hier der Zelleninhalt von J5 rein

Danke schonmal

Hallo, Ich möchte gerne einen Hashrechner erstellen. In excel oder visual basic. Zu den buchstaben A-Z sind die Zahlen 1-26 zugeordnet. Also A=1. Daraus kann man dann halt ein Wort schreiben. Der Rechner soll vom Wort die einzelnen Werte zusammen multiplizieren und daraus dann den Modulo von 4000 berechnen. Ich weiß nicht wie ich es hinkriegen kann, dass Excel zu den Zahlen Buchstaben zuordnet oder Visual basic mit einem Wort es automatisch macht.

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?

Wann verwende ich beim Deklarieren der Variablen was?

Hallo

ich möchte eben etwas installieren. Ein update zu einem Tool welches ich bereits seit Jahren benutze. Nun wollte ich das update dafür installieren und der Setup Klient fragt mich nach der Datei "vc_red.msi". Nur kann ich diese Datei nirgends finden und google Suchergebnisse verwirren mich da die viele Hinweise darauf finde man solle die Datei neu installieren bzw neu runterladen, aber nirgends steht wo der Link dafür sein soll.
Kann mir jemand helfen wie ich das Problem beheb und wie ich diese Datei installiere??

danke

Hallo, ich habe ein Sheet 1 mit X Zeilen. Ich möchte genau diejenigen Zeilen in ein neues Sheet 2 kopieren, die noch keinen Eintrag in der Spalte D haben. Das Ganze soll synconisiert geschehen, sprich, ich trage eine neue Zeile in Sheet 1 ein ohne Eintrag in Spalte D, dann kopiert er die Zeile gleich ins Sheet 2. Sobald etwas in Zeile D in Sheet 1 eingetragen wird, wird die Zeile in Sheet 2 wieder rausgelöscht. Hat jemand eine Idee wie ich das umsetzen kann? Freue mich über jede Hilfe!

Hallo, ich habe ein Programm in Visual Basic bzw. Visual Studio geschrieben. Wenn man die Projektmappe erstellt wird sie ja irgendwo in den Tiefen der VB-Ordner gespeichert. Hier meine Frage: Wie kann ich den Speicherort für die fertige exe ändern?

Lg Agilolfinger

Wie kann ich meine eingetragenen Werte der Kombobox sortieren, die ich mit .addItem eingetragen habe?

Hallo zusammen

 

ich bekomme dauernd diese doofe Fehlermeldung wenn ich eine Simple If anweisung schreiben will : 

 

 

{ if ((Alter >= 18) && (Ziel == 1) && (Datum == 0) && (Dauer == 1)); { preisnachlass = 20; } else if  (Ziel == 2); /*Mit else if sagt er mir dauernd: C2181: Ungültiges "else" ohne zugehöriges if; */ { preisnachlass = 0; } else if (Alter < 18); { preisnachlass = 0; } else if ((Alter >= 2) && (Alter < 18)); { preisnachlass = 30; } else  { preisnachlass = 0;  } }     (Mir ist bewusst, dass ich auch die geschweiften klammern weglassen kann.. )    kann mir einer sagen, was da falsch ist ?

Hallo zusammen, vorweg mir sind "vbNewLine" und Streamwriter.WriteLine bekannt aber ich habe folgendes Problem (vielleicht missverstehe ich auch oben genannte Dinge): Ich arbeite an einem Programm (für den privaten Gebrauch), das Einträge speichern und diese mittels eines Streamwriters in eine Textdatei schreiben soll. entsprechender Code: Try

        Dim fs As New System.IO.FileStream("GamemasterSave.txt", IO.FileMode.Create)
        Dim sw As New System.IO.StreamWriter(fs)


        For Each h As String In oPathList

            sw.WriteLine(h + ",")

        Next
        sw.Close()

    Catch ex As Exception

        MessageBox.Show("Beim Speichern ist ein Fehler aufgetreten.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)

    End Try

Das Problem ist, dass kein einfacher Zeilenumbruch eingefügt wird, sondern neben dem Zeilenumbruch noch eine weitere Zeile, was bei einer Funktion der Anwendung Probleme verursacht, die ich in der Textdatei ausbessern muss. Es funktioniert richtig, wenn ich nur "Write" verwende, aber ich finde es so schöner, wenn ich mal etwas in der Textdatei suchen muss/will. Danke schon mal im voraus.

Hallo,

ich habe gesehen, dass es zwar ähnliche Fragen gibt, aber mein Problem konnte ich mit den Antworten bisher nicht lösen. Ich muss dazu sagen, dass ich noch ziemlicher VBA-Neuling bin.

Ich habe 2 Excel Dateien. Diese sind identisch aufgebaut. Das Ergebnis soll in einer dritten Datei geschrieben werden. In Spalte A steht eine eindeutige ID und Spalte B ist ein Erklärungstext hierzu.

Bsp.: Alt:

BS04 Lisa ist 18 Jahre alt.

BS07 Lisa ist einen Apfel.

Neu:

BS07 Lisa isst einen Apfel.

BS08 Lisa wohnt in einem Haus.

Im neuen Dokument wurde BS04 entfernt. BS07 wurde der Schreibfehler korrigiert. BS08 wurde hinzugefügt.

Mein Ziel ist, dass nicht Zeile für Zeile verglichen wird, sondern anhand der ID der Text verglichen wird. Dann sollen Änderungen rot markiert werden. Entfernte Wörter oder entfernte Spalten sollen rot durchgestrichen werden.

Ergebnis:

BS04 Lisa ist 18 Jahre alt. [rot und durchgestrichen]

BS07 Lisa isst einen Apfel. [BS07 rot, das Wort "isst" rot]

BS08 Lisa wohnt in einem Haus. [rot]

Ich habe mir ein Makro bauen können, was ganze Zeilen rot markiert bei Abweichung, leider wird dann alles rot markiert, sobald eine Zeile hinzugefügt bzw. entfernt wurde. Ist ein solches Makro mit VBA überhaupt zu programmieren?

Ich danke euch für eure Mühe!

Gruß Steffen

Hallo,

Ich würde gerne wissen wie ich es machen kann das man durch Button also interaktive Tasten einen Text denn man im Button definiert hat in Excel oder Sheets in einer bestimmten Zelle einsetzen kann?

Die frage ist dann auch noch ob ich mit Powerpoint diese befehle eingeben kann oder ein Programm nutzen kann wie Adobe Captivate ? Das ding ist das Ich nicht genau weiß wie ich das einbinde sodass ein Button in Powerpoint einen Text in Excel oder Sheets einfügt ? Mir ist klar das man in Excel auch Buttons erstellen kann aber ich ich will das dass einfügen alles im Hintergrund passiert. Oder kann ich vllt. auch über Powerpoint oder Adobe Captivate auch sowas sagen wie bitte diesen Makro in Sheets auslösen also nur denn Befehl durch ein Button geben? Der Button selbst sich aber auf einem anderen Programm sich befindet.

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

Kann ich wenn ich mit double rechne und eine zahl mit stellen nach dem komma ausrechne ein if statement daraus basteln?

Bei Tabellen ist es mir schon gelungen mit ActiveDocument.Tables.

Wie kann ich Checkboxen (Active X Steuerelement) und andere Elemente ansprechen?

Hallo, ich möchte einen leichten Taschenrechner erstellen mit zwei Textfeldern in denen man ganze Zahlen oder Kommazahlen eingeben kann. Es sollen vier Button vorhanden sein mit +,-,* und/. Und mit einem Klick auf einem der Button soll die jeweilige Rechnung durchgeführt werden und in einem weiteren Textfeld ausgegeben werden. Wie kann ich dies realisieren habe Probleme mit den Variablen.

Hi, ich hab folgendes Problem:

Ich soll aus einer komplexen Excel Tabelle jene Zeilen löschen, die nicht zu den anderen passen bzw. eine bestimmte Bedingung nicht erfüllen. Um die riesige Liste nicht händisch durchsuchen zu müssen, suche ich nach einer Möglichkeit, die Datenbereinigung in Excel VBA umzusetzen.

Hier ein Beispiel, welches mein Problem etwas genauer beschreibt.

Zu jedem Beispiel in Spalte A gehören in Spalte B die sortierten Werte 1, 2 und 3. Sind einem Beispiel nur 1 oder 2 Werte zugewiesen (siehe Beispiel 3) oder enthält ein Beispiel falsche Werte (siehe Beispiel 5 - falscher Wert "4"), dann sollen diese Zeilen komplett gelöscht werden.

Am Ende sollen also nur mehr die Zeilen 1,2,3,4,5,6,9,10,11 übrig bleiben.

Kann mir da jemand helfen, wie ich diese Bedingung mit den 3 zugehörigen Werten in VBA umgesetzt bekomme?

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

Ich möchte gerne eine Excel VBA Button erstellen und Makro zuweisen programmieren. und möchte gerne eine BUTON "Eingang" & eine "Ausgang"

Wenn ich Eingang drücke soll +1 (Zählen) und wenn ich Ausgang -1 (Zählen)

Hallo,

ich habe ein Makro aufgezeichnet und ich möchte dass die Formeln welche ich geschrieben habe immer von der aktiven Tabelle genommen werden.

Dadurch, dass ich das Makro aufgezeichnet habe, ist mir erst später aufgefallen, dass in den Formeln in den Zellen immer der Tabellenname steht: =WENNFEHLER(SVERWEIS(30;'42297033'!A5:T5;3;);"")

Ich möchte aber, dass diese Formeln immer die Tabelle nehmen, in der das Makro ausgeführt wurde.

Im Makro steht z.B. folgendes:

ActiveCell.FormulaR1C1 = _

    "=IFERROR(VLOOKUP(30,'42297033'!R[3]C[-2]:R[3]C[17],3,),"""")"

'42297033' ist in dem Fall der Tabellennamen.

Noch zur Info was das gesamte Makro macht:

Ich erstelle eine neue Tabelle -> übertrage gewisse Daten von der alten Tabelle in die neue und das mit Formeln wie SVerweis() oder Wenn()

Kann ich Makro den Tabellenname durch etwas ersetzen, damit es richtig funktioniert?

Wäre schön wenn mir jemand helfen könnte, ich muss das spontan machen und bin ganz neu bei VBA

LG Benni

Hey

Ich möchte in VB einen Powershell-Command ausführen lassen.

Leider funktioniert es mit: Shell(".....") nicht.

Weiß hier jemand wie das funktioniert?

Ich habe schon eine Extension installiert, aber es wird mir irgendwie in VBCode angezeigt (was ich mir auch dafür herunterladen musste) und ich weiß überhaupt nicht wie man damit umgeht und ob es überhaupt etwas mit VB zu tun hat...

Vielen Dank im Voraus!

Btw ich schreibe ein Programm mit dem man die Zeitstempel von Dateien ändern kann (zB Erstellt: 2030). Aber ich glaube das spielt hier keine Rolle...

Hallo,

ich würde gerne mit eine .vbs den Wert aus einer speziellen Zelle einer Excel auslesen und in eine TXT-Datei schreiben. Kann mir jemand ein einfaches Beispiel liefern?
Danke.

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

Hallo, eine Frage zum Abfragen der Pfeiltasten in VB. Ich möchte, dass wenn ich die linke Pfeiltaste drücke ein Label erscheint, wo dann links steht . Wenn ich diese loslasse sollte das Label aber auch wieder verschwinden. Kann mir da jemand helfen?

Wenn ich mein Programm starte kommt der Fehler:

Die Datei "obj\Debug\Projekt3.exe" kann nicht in "bin\Debug\Projekt3.exe" kopiert werden. Der Zugriff auf den Pfad "bin\Debug\Projekt3.exe" wurde verweigert.

Vorher wurde die Datei von Avira in Quarantäne versetzt, ich habe sie aber wiederhergestellt und zur Ausschlussliste hinzugefügt.

Hallo Leute

Ich arbeite zurzeit an einem Visual Basic Project und habe ein Panel erstellt und wenn man einen Button auf diesem drückt sollte sich die "batch" Datei ausführen. Dies passiert aber nicht. Wenn mir jemand helfen kann währe das sehr Nett.

Bild zum Problem/Frage ist angehängt

Lg Hustensaft

Hallo ich hab ein Problem wenn ich in Visual Studio ein Code eingebe und strg+space drücke wird dieser code nicht automatisch vorgeschlagen aber wenn ich auf yt schaue wird der code im video vorgeschlagen an was kann das liegen?

So würde ich es gerne haben:

So siehts bei mir aus:

Das eine Programm ruft bei einem Klick auf den Button die Form 2 mit dem Befehl

form2.show

auf.

Jetzt soll sich das erste Programm schließen. Aber wenn ich den Befehl

close()

verwende schließen sich beide Programme!

und wenn ich in Programm 1 die Befehlskette

 

form2.show

form1.close

 

verwende, kommt die Fehlermeldung dass das Programm 1 sich nicht selbst aufrufen(beenden) kann.

Wie löse ich das Problem?

 

Hallo zusammen,

ich arbeite gerade an einer UserForm, mittels welcher der User Daten zu einer Person eingeben kann, welche automatisch ins Dokument eingefügt werden.

Sollstnad : "Name : Hans Peter" und sobald das Makro nochmal ausgeführt wird, soll Hans Peter z.B. durch Michale Maier ersetzt werden.

Jedoch sieht das beim zweiten Ausführen des Makros so aus : "Name : Hans PeterMichael Maier"

Also die eingabe wird hinter die erste Eingabe gesetzt, statt sie zu erseten

Mein code :

Private Sub CB_Submit_Click()

 Dim v_Name As Range

   Set v_Name = ActiveDocument.Bookmarks("BS_Name").Range

   v_Name.Text = Me.TB_Name.Value

UserForm.Hide

End Sub

Danke schonmal für eure Antworten :)

Guten Tag.

Ich habe zwei Fragen bezüglich Excel VBA.

1. Ich möchte den Text in einer Textbox mit einem Mausklick markieren (Die Textbox kann übrigens nicht von Hand ausgefüllt werden und ist für die Bearbeitung gesperrt). Es soll aber nur ein einziges Wort markieren.

2. Der markierte Text soll in eine andere Textbox erscheinen, sobald man draufgeklickt hat. Das Ganze ist übrigens in einer Userform

Bin noch relativ Neuling im VBA, würde mich über eine Antwort freuen.

Ein Bild ist im Anhang.

Hiii,

ich habe ein Problem, in meiner Batchdatei habe ich @echo off als erstes hingeschrieben - das Verzeichnis wird jedoch angezeigt - vor 5 Minuten wurde es noch nicht angezeigt, jetzt plötzlich?! Und bei anderen wird es auch nicht angezeigt? Wie macht man das wieder weg? Selbst Befehle wie /timeout 2 wird auch angezeigt?

Danke schonmal!

Hi, wie kann ich in VBA prüfen, ob eine Zelle ein Listobject ist oder nicht? Danke für die Antworten schon im Voraus!

Hallo,

ich möcht überprüfen ob ein bestimmter Prozess, in meinem Fall eine .exe Datei schon geöffnet ist.

Ich hatte es bereits mit

    Dim p As process
if p.responding then    
...

Hier finde ich aber einfach keine Möglichkeit den Prozessnamen einzutragen (es liegt wahrscheinlich an meinem Halbwissen)

Der Prozess wird nicht aus dem Programm heraus gestartet.

Ich hoffe ihr könnt mir helfen, am besten mit eienm Code Beispiel.

Danke.

Hallo zusammen,

ich muss in Visual Basic Programmieren, dass entweder die Hintergrundfarbe rot wird (habe ich) oder die Hintergrundfarbe entfernt wird (nicht weiß, sondern weg). Letzteres bekomme ich leider nicht hin..

If Not 15 <= bk2 <= 40 Then Cells(zbk, 11).Interior.Color = vbRed Else: ....

Excel button mit makro erst ausführen wenn Zellen x1 y1 z1 ausgefüllt sind. teilweise >0 teilweise mit text. Ich bekomme es einfach nicht hin. ich kenne mich wenig mit visual basic aus und daher habe ich schwierigkeiten. freue mich über jeden Vorschlag!

Ich weiß, dass ich "Process.start("Pfad zum Programm")" in Visual Basic schreiben kann.

Doch wie kann ich bestimmen, an welcher position das programm starten soll, ob es maximiert oder minimiert starten soll und etc.

Ich freue mich auf Antworten

hi,

ich komme nicht weiter, undzwar habe ich eine Richtextbox mit mehreren Zeilen. Und ich würde gerne von jeder Zeile die letzten 10 Zeichen ablesen. Hat jemand eine Idee?

Ich und ein Kollege haben angefangen mit Visual Studio Code, wir haben auch schon begonnen mit Live Share aber haben noch nicht rausgefunden wie man die Rechte verteilt.(Danke im voraus)

Moin liebe Community,

Ich möchte mir ein kleines Programm schreiben (In VB, weil es für mich relativ einfach war einzusteigen). Mir liegt eine CSV Datei vor (Mit ; getrennt), in diesem Format:

Staffel;VarianteA;VarianteB
1;27,10;15,50
2;31,40;19,95
3;35,50;24,60

Nun Stelle ich mir die Frage, wie ich es schaffe, folgendes Problem zu lösen:

Variable (decimal) ist z. B. 2
Variable (string) ist z.B: VarianteB

Lösung: suche aus der CSV unter Staffel die 2. und gebe den wert für VarianteB (also 19,95) aus.

Nur weiß ich nicht, wie ich dahin komme.

Ist übrgends ein kleines Abfrageprogramm für ein Spiel von mir und ein paar Kollegen entwickelt, was einen Markt hat, wo Preise sich über die API auslesen und als CSV exportieren lassen. (Ist alles noch in der Entwicklung)

Ist es in Excel möglich mit Visual Basic (Makro) den wert einer Checkbox abzurufen ohne diese mit einer Zelle zu verlinken? zB. Über den Namen der Checkbox welcher ja einzigartig sein muss? Ich habe den Namen in dem Feld oben links umbenannt, er beinhaltet Bindestrich, das scheint VBA auch nicht zu gefallen, gibt's da ne Lösung? Es sollte eine If Then Funktion sein «If RM-CKB1 = True Then..... » Vielen Dank im Voraus

Hallo, habe eine ganz einfache Frage aber habe die Frage auf Google nicht gefunden.

Wie rufe ich im Google Scripteditor eine Tabllenfunktion, beispielsweise countif auf?

vg,

Nicolas

guten morgen, bekomme es einfach nicht hin, dass makro 2 nur einmal ausgeführt wird und das nächste mal wieder ausführbar ist wenn ich vorher makro 1 betätigt habe. makro 1 speichert bestimmte daten, die in eingabefelder eingegeben wurde und leert diese anschließend. mit dem 2. makro kann man die zuletzt eingegebene daten zurückrufen und bearbeiten. natürlich soll dies nciht endlos gehen, da sonst alle jemals einegegebene daten gelöscht/ überschriebeen werden indem man oft genug auf makro 2 ("bearbeiten") drückt. hier ist schon mal der anfang den ich mir zusammengebastelt habe:

Sub zurückbutton()



Select Case KlickNr

   Case 0: Call bearbeitenbuttonteil1
   Case 1: Call MsgBox("Nur die zuletzt eingegebene Daten können bearbeitet werden.")

End Select
KlickNr = KlickNr + 1
If KlickNr >= 1 Then
End Sub

nun ist es leider so, dass der button trotzdem unendlich male ausgeführt werden kann. ich habe es mit end with und exit versucht aber dann bekäme ich es ja nciht wieder hin, dass der button aktiviert wird nachdem ich makro 1("speichern") gedrückt habe

gespielt wird 2vs2, der Partner und die Gegner werden jede Runde neu ausgelost. Jedoch soll man nicht den gleichen Partner nochmal bekommen. Es gibt insgesamt 64 Spieler. Heißt eine Matrix mit 4 Spalten und 16 Zeilen. Hat jemand eine Idee wie ich es umsetzen könnte oder hat eine ähnliche Software schon mal programmiert und könnte sie mir zukommen lassen als Vorlage? Es soll so wenig wie möglich VBA benutzt werden.

Hi, Ich habe es soweit geschafft:

Dim wc As New Net.WebClient TextBox1.Text = wc.DownloadString("http://lalala.com/wladkal.txt") 

ABER, der Text ist in einer Reihe, alles auf auf einmal (sind mehrere Zeilen auf der Website) ich will aber bei jedem Knopfdruck die nächste Zeile.

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 zusammen!

Ich möchte bei einem Visual Basic Formular ein Textfeld erstellen wo automatisch der Benutzername eingetragen wird von dem der das Formular ausführt. Wie mach ich das bzw. wie lautet der Befehl?

Danke!

Hallo Ich möchte eine Tabelle mit 2 Spalten per Array in Excel VBA per Array einlesen lassen. Mein Programmcode sieht bisher so aus:

Sub aaaaa()

   Dim bbbb(1 To 8, 1 To 2)

   Dim i As Integer

   For i = 1 To 8

   bbbb(i, 1) = Worksheets("cccc").Range("i1").Value

   bbbb(i, 2) = Worksheets("cccc").Range("i2").Value

   Next i

End Sub

Leider funktioniert das Ganze nicht. Hat jemand eine Idee woran es liegen könnte?

Danke!

Hallo zusammen,

ich bin gerade dabei, eine Datenbank zu erstellen und würde dafür gerne Daten von einer Website automatisch auslesen lassen. Konkret geht es um die Arbeitslosenquoten aller Landkreise und Städte, die von der Bundesagentur für Arbeit monatlich veröffentlicht werden.

Hier ein Link zu einer Beispielstadt: https://statistik.arbeitsagentur.de/Navigation/Statistik/Statistik-nach-Regionen/Politische-Gebietsstruktur/Bayern/Amberg-Stadt-Nav.html

Im Beispiel sollte die Arbeitslosenquote insgesamt (5,9) und der Stand der Angabe (Mai 2016), der über der Tabelle steht, ausgelesen werden.

Im HTML-Code ist die Quote in folgender Zeile angegeben: 5,9 Beim Datum sieht es folgendermaßen aus: Ar­beits­markt im Über­blick - Be­richts­mo­nat Mai 2016 - Am­berg, Stadt

Dabei sollten die ausgelesenen Werte in zwei separaten Excel-Feldern ausgegeben werden. Das muss aber nicht zwingend alles in einem Makro geschehen. Zwei Makros für die unterschiedlichen Felder wären optimal, da ich den Code dann wahrscheinlich auch besser nachvollziehen kann.

Da die direkte Webabfrage über Excel nicht funktioniert, weil die Seite nicht korrekt geladen wird, denke ich, dass VBA hier unumgänglich ist, oder? Ich habe jedoch leider keine Programmierkenntnisse und bin aus den Einträgen in diversen Foren leider auch nicht schlau geworden.

Im Nachhinein müsste das Makro entsprechend anpassbar sein, sodass ich auch die Daten der anderen Städte auslesen kann (die Quellseite ist immer nach dem gleichem Prinzip aufgebaut).

Falls jemand eine Idee hat, wie das Problem zu lösen ist, würde ich mich sehr darüber freuen! Vielen Dank!

Für eine Softwareschnittstelle, die ich gerade selbst in vb.net programmiere muss ich in einen String:

z.B. "Münsterländer Aperitif 16%"

Die Umlaute in Unicode umwandeln. Laut Dokumentation sollte das obige Beispiel dann So aussehen "M\u00fcnsterl\u00e4nder Aperitif 16%"

Zur Zeit versuche ich das so:

  Public Shared Function ToUnicode(Text As String) As String
    Dim UnicodeArray As Byte() = Encoding.Unicode.GetBytes(Text)
    Dim UnicodeString As String = Encoding.UTF8.GetString(UnicodeArray, 0, UnicodeArray.Length)
    Return UnicodeString
  End Function

Leider sieht der Inhalt des Strings dann so aus:

"M" & vbNullChar & "�" & vbNullChar & "n" & vbNullChar & "s" & vbNullChar & "t" & vbNullChar & "e" & vbNullChar & "r" & vbNullChar & "l" & vbNullChar & "�" & vbNullChar & "n" & vbNullChar & "d" & vbNullChar & "e" & vbNullChar & "r" & vbNullChar & " " & vbNu...

Was nicht wirklich hilfreich ist. Ich hab' keine Ahnung warum jedes zweite Zeichen NULL ist und die Coke Bottles "�" sind ja auch wenig hilfreich.

Hat jemand eine Idee für mich

Gutene morgen, ich habe bei excel ein makro, welches beim klicken bestimmt eingegebene Werte aus bestimmten zellen kopiert und in eine tabelle überträgt und anschließend die wert der eingabefeler löscht, sodass ein erneutes eingebne und speichern möglich ist. gerne würde ich ein button haben, der beim betätigen die letzte werte wieder in die eingabefelder macht und der nutzer sie somit bearbeiten kann. ich habe das mit dem aufzeichnen gemacht aber so wäre es jeden nutzer quasi möglich alle jemals eingegebene werte beim öfteren drücken zu ändern und löschen. es soll nur für die letzte eingabe sein. jemand ideen? danke im voraus

Hallo zusammen,

ich habe in Visual Basic eine Variable, die sich mit einer Formel errechnet. Diesen Wert würde ich gerne auf zwei Nachkommastellen runden, weiß aber nicht wie. Kann mir jemand helfen?

Gruß

Hi,

folgendes Szenario: Ich bekomme in unterschiedlichen Zeitabständen CSV Dateien die ich in Excel importieren möchte. An sich ist das ja kein Problem. Jedoch möchte ich den ganzen Schritt automatisieren und die Daten der CSV an das Ende einer formatierten Tabelle setzen. Hat folgenden Hintergrund: Ich möchte über die Daten der CSV Dateien mehrere Auswertungen laufen lassen. Diese müssen nur einmal angelegt werden und danach immer über alle Daten aus allen CSVs laufen. Die Daten aus den CSV Dateien werden einmalig Importiert, also sind keine Dateiverbindungen nötig. Mein erster Gedankengang war ein Excelsheet "Import" in welches ich die Daten lade und dann per Makro ans ende der Tabelle schiebe. Doch da war mein Problem ein VBA-Skript zu schreiben welches immer an die nächste freie Stelle die Daten kopiert. Eventuell gibt es ja auch eine einfachere Lösung und ich finde Sie nicht. Ich habe Excel2016 im Einsatz und keine Einschränkungen in Sachen Makros. Zudem ist es eine 64bit Version welches die Verarbeitung großer Makros relativ zügig funktioniert.

Vielen Dank im Voraus für alle Antworten

Grüße

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

Moin,

ich habe eine Tabelle eine Excel Tabelle eines Händlers, bei welcher ich nach folgendem suchen muss

• Spalte Rücksendung : Wenn ja, dann soll diese Spalte in das Tabellenplatt "Rücksendungen" kopiert werden
• Zielland : Wenn Deutschland, dann in Tabelle Deutschland kopieren, ansonsten in Tabelle Ausland

Wie ich die Zeieln kopiere usw habe ich schon draußen, alelrdings habe ich noch viel mehr Sortierkrietreiun und die beiden nur Beispiele sind, würde ich gerne das ganze in einer Funktion programmieren :

--> If "Spalte" = "Suchkritriterium" Then --> Kopieren nach "Ziel"

Allerdings hapert es hier unter anderem daran, wie ich die Funktion dann mit den jeweiligen Argumenten aufrufe.

Ich hoffe ihr könnt mir helfen .... ist sehr wichtig ^^

Danke schonmal :)

Hallo,

ich habe in meinem Programm ein Label 1 eingebaut und möchte in dem Label gerne einen automatischen Zeilenumbruch einbauen.

Wie geht das?

Ich stehe vor einem Rätsel. Ich möchte grad ein Makro in Word erstellen, um Daten einfacher in das Dokument zu übertragen und alles im gleichen Format zu halten. Es handelt sich hierbei um Rezepte. Und bei jedem Rezept gibt es natürlich auch Bilder dazu.

Bevor die Frage kommt: Nein mir is das einfach zu blöd, ständig das Worddokument umzubasteln. Ständig muss ich ein fertiges Rezept nehmen und es mit einem neuen überschreiben und dann doch hoffentlich daran denken, unter einem anderen Namen zu speichern. Außerdem verrutscht ständig irgendein Format.

ich habe bereits ein Makro erstellt, welches sich automatisch mitstartet beim öffnen der Datei. Auch habe ich schon dafür gesorgt, dass textmarken per buttonklick eingefügt werden (Weil diese dummen dinger ja nach schließen des Worddokuments verschwinden)

Ich habe auch schon eine Textmarke für das Bild. Im Internet habe ich gesucht und gesucht aber ich finde nur Code, in welchen ich schon einen festen Pfad integriere. Ich kann also per Code nur ein bestimmtes Bild einfügen. Nun hätte ich aber per Knopfdruck gerne, dass sich der Explorer öffnet und ich ein Bild aussuchen kann, welches eingefügt werden soll. Eben so wie wenn ich über "Einfügen -> Bild" gehe.

Ist das möglich?

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

---