VBA – die besten Beiträge

Ich Möchte ein Tabellenblatt neben das Original kopieren, in dem man nichts mehr ändern kann, aber anschliesssend die Sub Makros aus der Kopie Löschen, da sonnst die Datie zu groß wird. Das Kopieren funktioniert super, nur mit den Makros entfernen noch nicht so.

Das ist mein Code zum Kopieren, Danke

Sub NeuesTabBlatt()
' Monate Soll
 If MsgBox("Wollen Sie wirklich einen neuen Sollplan erstellen?", vbYesNo) = vbYes Then
 If InputBox("geben sie Bitte das Passwort zum Entsperren ein", "  Sollplanerstellung") = "1234" Then
        MsgBox "OK, der Sollplan wird erstellt"
 Else
 MsgBox "Hier kommst Du net rein!"
 ActiveSheet.Range("$A$1").Select
 Exit Sub
 End If
Application.ScreenUpdating = False
Application.Calculation = False
Dim NewName As String
ActiveWorkbook.Unprotect Password:="1234"
NewName = ActiveSheet.Range("$CW$1")
ActiveSheet.Copy After:=ActiveSheet
 ActiveSheet.Name = "Soll" & " " & ActiveSheet.Range("CW1")
  ActiveSheet.Range("AT127:AV134,AQ133:AS133, AT183:AV186, AT228:AV232").Clear
       ZeilenEinUndAusblenden
    ActiveSheet.EnableSelection = xlNoSelection
   ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
   ActiveSheet.Visible = False
  ActiveWorkbook.Protect "1234", Structure:=True
  Application.Calculation = xlAutomatic
 Application.ScreenUpdating = True
 MsgBox "ein neues SOLL Tabellenblatt wurde erstellt"
 End If
 'BlätterSollEinAus
 ActiveSheet.Range("$A$1").Select
End Sub 

Hallo, ich muss eine IP in eine Excel Datei einfügen und habe folgendes Problem:

Ich muss die Datei in Python wieder aufgreifen und es sollte als IP (bsp. 123.22.33.291) gelesen werden. Excel allerdings wandelt diese Zahl mit den wichtigen Punkten in eine ganze Zahl, also aus 123.22.33.291 wird 1232233291...

Weiß jemand, wie ich das Deaktiviere?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

Hallo allerseits,

seit mehreren Wochen versuche ich mit Excel einen Algorithmus zu finden, um aus einer Reihe bestimmter/vorgegebener Zahlen (z.B. 32 Zahlen in Spalte A) alle mathematischen 5-er oder 6-er Varianten zu berechnen und in den darauffolgenden 5 bzw. 6 Spalten darzustellen.

Bin inzwischen nur verzweifelt. Gibt es eine elegante Lösung dafür (verformelt oder mit VBA)?

Vielen Dank im Voraus!

Hallo, ich hätte eine Frage bezüglich Excel VBA:

Ich versuche folgendes zu erreichen:

Damit soll der Zellinhalt von (in dem Fall) Zelle A1 geändert werden.
Wenn man "x = 2" verwendet, dann soll der Inhalt in Zelle A2 geändert werden usw.

Gibt es da eine Spezielle Syntax oder geht es gar nicht so?

Danke für eure Hilfe!

Hallo, ich hätte eine Frage bezüglich Excel Makros.

Ich habe eine Tabelle (siehe Bild unten). Bei Klick auf Sortieren wird ein Makro ausgeführt das den Bereich der Liste1 Sortiert.

Jetzt zur Frage: Wenn die Liste1 einen neuen Eintrag bekommt, wird dieser natürlich nicht mitsortiert. (Wie) kann man das lösen, auch wenn sich der Bereich vergrößert?

(Man könnte einfach die gesamte Spalte sortieren indem man die Liste2 und Liste3 woanders hinverschiebt, das ist aber nicht gewollt in dem Fall. Die Listen müssen untereinander sein; neue einträge würden durch "Zellen einfügen" hinzufügt werden)

Danke für eure Hilfe.

Hallo, wie kann ich ausgewählte Zellen einer Spalte in EINE Zelle verschieben? Die Werte sollen mit Zeilenumbrüchen dargestellt werden. Am besten als Script?!

Hey Leute habe ein Problem... leider kann ich es nicht erklären da mein "wissen" zu wenig ist. :( Laufzeitfehler 9 und "Sheets(ws).Select wird gekennzeichnet...

danke schonmal im vorraus !!

Hallo Leute,

ich habe ein VBA Userform mit einer Listbox und möchte den ausgewählten Eintrag abfragen für eine If-Verzweigung.

Der Code soll folgendes tun:

Wenn z.B der erste Beitrag der Liste ausgewählt, dann ...

Habe es bereits mit If Listbox.Selected(0) = True Then .... versucht, geht aber nicht.

Hat jemand Vorschläge?

Danke im voraus!

Grüße

Hallo zusammen,

ich habe mehrere Makros in einer Datei gesammelt und diese anschließend verschlüsselt. VBA Projekt Passwort.

Einer Jahr später habe ich es wieder benötigt. Problem jetzt ist ich weiß das Passwort nicht mehr und es war recht Komplex.

Wie kann ich es anzeigen lassen oder sogar es abschalten ?

Bitte ohne die Datei zu beschädigen. Werde so oder so eine Kopie machen, aber das alles ganz bleibt.

Nach langem Googeln und ausprobieren mit DPB funktioniert es auch nicht. Da das neue Exel die Datei dann sozusagen löscht beim Wiederherstellen und alle Makros sind futsch.

Danke schonmal :)

Hallo Zusammen,

Ich will mittels VBA ein Excel modifizieren, damit möglichst wenige Tabellenblätter angezeigt werden. In einem Tabellenblatt (z.B. "Auswahl") habe ich die Zellen C62, C88 und C114, die jeweils ein spezielles Tabellenblatt anzeigen sollen. Jedoch gibt es im Moment nur LZF-Meldungen.

Es soll jeweils bei "Yes" nichts angezeigt, bei "No" die entsprechende Tabelle eingeblendet werden.

Ansonsten sollen die "nicht betroffenen" Tabellen ausgeblendet bleiben

Hier der Code im Worksheet "DieseArbeitsmappe":

Private Sub Worksheet_Open()

'Beim Öffnen des Excels die betroffenen Blätter ausblenden
    ThisWorkbook.Worksheets("Tabelle4").Visible = False 
    ThisWorkbook.Worksheets("Tabelle5").Visible = False
    ThisWorkbook.Worksheets("Tabelle6").Visible = False
    
End Sub

In Blatt "Auswahl" (Tabelle7) habe ich folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   

‘Hier sind vorher noch andere IF-Regeln hinterlegt, die nur Reihen in Tabelle7 ein/ausblenden

   

    If Range("C62").Value = "No" Then 'Tabellenblätter einblenden, sobald in der jeweiligen Zelle "No" ausgewählt wird

        ThisWorkbook.Worksheets("Tabelle6").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle6").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C88").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle5").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle5").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C114").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle4").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle4").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

End Sub

Weshalb gibt es jeweils einen Fehler und wie kann ich diesen am einfachsten beheben?

Vielen Dank, Michael

Hallo ich habe eine Eingabemaske erstellt, wo ich Daten eintragen kann und diese Automatisch eingefügt werden. Jetzt habe ich das Problem das dieses "Einfügen" immer in der Arbeitsmappe passiert wo das Fenster geöffnet wird.

Ich würde es gerne so machen das Ich in Tabellenblatt "A" den Button habe um das Fenster zu Öffnen, und das diese eingetragenen Daten in Tabellenblatt "Datenbank" eingefügt werden.

Hier ist mein aktueller Code.

Danke schonmal im voraus :D

Hallo Leute,

folgendes: ich habe ein Word Datei mit Makros (.docm) und möchte einen Code in VBA schreiben der mir eine Kopie dieser Datei erstellt, am selben Ort speichert und anschließend öffnet. Hat jemand eine Idee wie das geht?

Danke im voraus!

Grüße

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

Ich habe in Excel VBA ein Modul "Test" geschrieben, das ich gerne löschen würde. Das gelingt mir nicht mit Rechts-Click ... Test entfernen. Es kommt die Fehlermeldung "Ungültiges Dateiformat". Die gleiche Fehlermeldung kommt auch sporadisch in der Arbeitsmappe, ohne dass ich es reproduzieren konnte. Seit einiger Zeit kann ich die Arbeitsmappe nicht mehr speichern. Auf der Suche nach der Fehlerursache stieß ich im VBA Editor auf besagtes Modul, das sich mit der genannten Fehlermeldung nicht löschen lässt. Wer kann mir helfen, damit ich die Arbeitsmappe wieder speichern kann?

Hallo zusammen,

ich würde gerne den Text aus meiner Textbox kopieren anhand eines Buttons.

Zudem muss ich sagen das die Textbox nicht aktiv ist (vlt. ein Problem?)

Folgendes funktioniert leider nicht ..

Private Sub CopyPhLoc1_Click()

   Dim MyData As New DataObject

   MyData.SetText PhLoc1Text.Text

   MyData.PutInClipboard

End Sub

genauso wie Me.PhLoc1Text.Copy bzw. Me.PhLoc1Text.text.copy

bitte um Hilfe!

Falls es keine möglichkeit gibt überlege ich den Text in ein worksheet umzuleiten und daraus zu kopieren. Direkt kopieren allerdings wäre natürlich besser.

Hey, ich würde gerne einen Text kopieren und in Excel ab einer bestimmten Zeichenanzahl einfügen.. Heißt der Text soll erst dort erscheinen, wenn vorher bspwl. 20 Buchstaben, Leerzeichen etc. geschrieben wurden. Oder auch wenn die Zeile komplett leer ist, erst ab der bestimmten Zeichenanzahl. Welche Funktion bräuchte ich dabei?

Hi,

momentan habe ich in meiner Tabelle1 einen Code, welcher bei änderungen in spezifischen Spalten, die Zeilenzahl in das Worksheet "Tabelle7" schreibt.

Eigentlich möchte ich es aber so schreiben, dass wenn ich jezt auf die Zelle im Worksheet "Kontrolle" klicke, ich ganz automatisch zu der Zeile springe, welche momentan in "Tabelle7" steht.

Ich habe überlegt, dass mit einem Makro zu machen, welchen man anklickt, dann die entsprechende Zelle in "Tabelle7" auswählt und somit zum Worksheet "Tabelle1" in die richtige Zeile wechselt. Scharfen Beobachtern wird nun allerdings auffallen, dass ich keine Ahnung habe, wie ich den Zellenwert von Tabelle7 als Zeilenziel für Tabelle1 einstelle. ;D

Wäre echt super wenn mir da jmd helfen könnte. Alternative Lösungsvorschläge sind auch immer gerne gesehen.

PS: Ich rufe über Tabelle7 das Makro auf, da ich es nciht hinbekomme, ohne Modul worksheetübergreifende Makros zu schreiben.

Hallo!

Ich möchte in VBA bei einer mehrspaltigen Listbox die Header der einzelnen
Columns beschriften. Die Daten bezieht die Listbox allerdings nicht aus einer
vorformatierten Tabelle (RowScoure) sondern übere eine weitere Instanz im Code.

Die Eigenschaften der Listbox definiere mit einer With Anweisung wie folgt:

With ListBox1

.ColumnCount = 3

.ColumnWidths = "40;300;200"

.ColumnHeads = True

 .IntegralHeight = False

.TextColumn = 1

.BoundColumn = 2

End With

Bei der Beschriftung der Header komme ich nun einfach nicht weiter.

Weiß hier eventuell jemand wie man das realisieren könnte?

Vielen Dank im Voraus!

Mfg

Hallo an Alle,

kurz zur Erklärung: Ich füge Daten (immer 4 Zeilen) in eine "Datenbank" ein, allerdings, wenn nicht alles ausgefüllt wird, erscheint als Platzhalter "leer". Diese möchte ich gleich im Anschluss löschen, dass es keine weiteren Formeln durcheinander bringt bzw. weil er mir dann bei der nächsten Suche von einer leeren Zeile immer unterhalb der 4 Zeilen springt (wenn ich nicht mit "leer" fülle). :(

Ich habe jetzt schon mehreres probiert, aber entweder es löscht mir die Zeilen nicht oder es löscht auch Zeilen die eingefügt bleiben sollen... Bitte um fachmännische Hilfe. Bitte, DANKE!

Gerne umgehe ich auch "leer", wenn ich dann zumindest wirklich immer in der letzten freien Zeile bin...

Hier der momentan Code:

  Range("N3:AE6").Select

  Selection.Copy

  Sheets("Datenbank").Select

  Range("A520").Select

  Cells(65000, 1).End(xlUp).Offset(1, 0).Select

  Dim last As Integer

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

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

    :=False, Transpose:=False

  If Cells(last).Value = "leer" Then

  Rows(last).Delete Shift:=xlUp

  End If

  Sheets("BestandsKunde").Select

  Range("H43").Select

End Sub

Lg, B