VBA für Excel Verknüpfungen aktualisieren?

Hallo alle zusammen,

ich bin am verzweifeln.. :-(

Ich möchte über VBA Verknüpfungen in einem aktiven Tabellenblatt ändern. Ich finde aber immer nur Antworten wie man Verknüpfungen der gesamten Arbeitsmappe ändert.

Die Verknüpfungen beziehen sich auf ein anderes (nicht aktives) Tabellenblatt in der selben Arbeitsmappe.

In der Zelle steht zum Beispiel =WENN(ISTFEHLER('04.2016'!$C8);"";'04.2016'!$C8) und VBA soll mir aus '04.2016' nun '06.2016' machen.

Bei meiner VBA Idee kommt immer der Fehler 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht) und kennzeichnet Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks) an

Hier meine VBA Idee. Wer kann mir helfen? Dank Euch im Voraus.... :-)

Sub Verknüpfungenaktualisieren()

Dim Vardat As Variant Dim strNeuerLink As String

strNeuerLink = "'06.2016'" strAlterLink = "'04.2016'"

Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks)

If IsEmpty(Vardat) Then

MsgBox "Keine Verknüpfungen enthalten!"

Exit Sub

End If

For intz = 1 To UBound(Vardat)

If Vardat(intz) = ActiveSheet.Path & "(" & strAlterLink Then ActiveSheet.ChangeLink ActiveSheet.Path & "(" & strAlterLink, _ ActiveSheet.Path & "(" & strNeuerLink, xlExcelLinks

Exit For

End If

Next intz

End Sub

2 Antworten

daCypher

28.06.2016, 12:12

Meine Idee dazu wäre, dass du gar nicht die Formel änderst, sondern mit =INDIREKT() arbeitest. Du wirst ja wahrscheinlich eine Art Hauptseite haben, wo du halt immer die Daten aus den anderen Tabellenblättern drin haben willst, oder?

Mach doch eine Zelle, wo du einfach den Namen des Tabellenblatts reinschreiben kannst. Z.B. in A1 schreibst du dann "04.2016" rein. In A2 kannst du dann ein ausgeblendetes oder mit weißer Schrift formatiertes Feld machen, was dir den String zum Ziel zusammenbaut (also ="'" & A1 & "'!C8") und an der Stelle, wo die Daten dann drinstehen sollen nimmst du die Formel

=WENN(ISTFEHLER(INDIREKT(A2));"";INDIREKT(A2))

Wenn du stattdessen trotzdem lieber die Formeln an sich ändern willst, geht das z.B. damit:

Public Sub LinksAktualisieren(Von As String, Nach As String)
Dim alleZellen As Range
Dim aktuelleZelle As Range

Set alleZellen = ActiveSheet.Range("A:IV").SpecialCells(xlCellTypeFormulas) ' Auf dem aktuellen Tabellenblatt nach allen Zellen mit Formeln suchen

For Each aktuelleZelle In alleZellen
    If InStr(1, aktuelleZelle.Formula, Von) > 1 Then ' Bei jeder Zelle, die zu ändernde Formel ändern
        aktuelleZelle.Formula = Replace(aktuelleZelle.Formula, Von, Nach)
    End If
Next aktuelleZelle

End Sub

Biggy2016

Beitragsersteller

28.06.2016, 12:34

Leider ist es nicht ganz das, was ich brauche. Trotzdem vielen Dank für Deine prompte Antwort.

Die Formel muss so bleiben. VBA soll mir "nur" das Datum in allen Verknüpfungen in meinem aktiven Tabellenblatt von '04.2016' auf '06.2016' ändern.

daCypher

28.06.2016, 13:10

@Biggy2016

Wenn ich das richtig sehe, ist das Datum doch der Name des Tabellenblatts, auf das du zugreifen willst, oder?

Dann ist das Datum ein Teil der Formel. Genau das kann man mit der Prozedur, die ich geschrieben habe, umändern.

Im Prinzip kannst du sie so nehmen, wie sie ist und einfach mit

LinksAktualisieren("04.2016", "06.2016")

aufrufen. Dadurch wird in den Formeln von allen Zellen des aktuellen Formulars der Teil mit "04.2016" ersetzt durch "06.2016". Und dadurch ändert sich natürlich auch die Verknüpfung vom Tabellenblatt '04.2016' auf das Tabellenblatt '06.2016', ohne dass die grundlegende Funktion der Formel verändert wird.

Iamiam

28.06.2016, 14:59

@daCypher

DH!

vllt FormulaLocal , wenn es ein NICHT-Englisches Excel ist ?

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

28.06.2016, 17:14

Ich habe mich jetzt mal etwas mit LinkSources beschäftigt.
Ich denke, das funktioniert nur bei Verknüpfungen zu anderen Arbeitsmappen.
Schau mal ob Dir hiermit:

Sub Test()
Dim varDat As Variant
varDat = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(varDat) Then
    For i = 1 To UBound(varDat)
        MsgBox "Link " & i & ":" & Chr(13) & varDat(i)
    Next i
End If
End Sub

...deine Verknüpfungen überhaupt angezeigt werden.

DaCyphers Lösungsweg scheint mir eigentlich zu passen.

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)

Ähnliche Beiträge

Das Tabellenblatt öffnet sich nicht?

Hallo, ich habe Button womit ich eine Datei und darin direkt eine Eingabemaske öffnen will. Mein bisheriger Code aktiviert / öffnet die Datei, was mir fehlt, ist die direkte Anzeige der Eingabemaske. Ich stelle den Code mal hier ein, um vielleicht eine Lösung zu erhalten. Ich komme einfach nicht weiter.


Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim passwort As String
    Dim pfad_zur_datei As String
    Dim wb As Workbook
    Dim bestaetigung As VbMsgBoxResult

    ' Bestätigungsnachricht anzeigen und Passwort abfragen
    bestaetigung = MsgBox("Möchten Sie fortfahren?", vbQuestion + vbYesNo, "Bestätigung")

    ' Wenn der Benutzer auf "Ja" klickt
    If bestaetigung = vbYes Then
        passwort = InputBox("Geben Sie das Passwort ein:", "Passwortabfrage")

        ' Überprüfe das eingegebene Passwort
        If passwort = "123" Then ' Ersetze "dein_passwort" durch das gewünschte Passwort
            ' Konstruiere den vollständigen Pfad zur Datei
            pfad_zur_datei = "G:\NEU Reduziert für DEMO.xlsm" ' Passe den Pfad an

            ' Überprüfe, ob das Arbeitsblatt "Auswahlklick" existiert
            On Error Resume Next
            Set ws = Workbooks.Open(pfad_zur_datei).Worksheets("Auswahlklick")
            On Error GoTo 0

            ' Wenn das Arbeitsblatt existiert, aktiviere es
            If Not ws Is Nothing Then
                ws.Activate
            Else
                MsgBox "Das Arbeitsblatt 'Auswahlklick' wurde nicht gefunden.", vbExclamation
                Exit Sub
            End If
        Else
            MsgBox "Falsches Passwort. Der Zugriff wurde verweigert.", vbExclamation
            Exit Sub
        End If
    Else
        MsgBox "Vorgang abgebrochen.", vbInformation
        Exit Sub
    End If

    ' Hier den restlichen Code ausführen, der auf dem geöffneten Arbeitsblatt "ws" basiert

End Sub

...zum Beitrag

VBA Counter Problem?

Hallo Zusammen,

ich hab ein Problem in VBA. Ich muss bei jedem klicken auf Raten den counter +1 erhöht werden. Leider ergibt sich bei mir eine Endlos-Schleife. Brauche Hilfe.

Private Sub btnRaten_Click()
Dim Userzahl As Integer 'Eingegebene Zahl
Dim PCzahl As Integer 'Zufallszahl
Dim anzahl As Integer
Dim Ende As Boolean


anzahl = 0


PCzahl = Int((Rnd() * 100) + 1)


Userzahl = Val(tbxEingabe.Value)


Ende = False


Do Until Ende = True


anzahl = anzahl + 1


If Userzahl < PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu klein"
Ende = False


ElseIf Userzahl > PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu groß"
Ende = False


ElseIf Userzahl = PCzahl Then
lblAusgabe = "Gewonnen!"
Ende = True


End If


lblCounter.Caption = anzahl
Loop


End Sub

Danke für eure Hilfe.

...zum Beitrag

Hallo, ich möchte in einer Excel Datei per vba code bis zur ersten leeren zeile gehen, wie tue ich das?

ich möchte zur ersten leeren Zeile gehen und dann den rest markieren und löschen, also den kompletten Bereich ab da? BSp. A10 ist leer, dann möchte ich ab A10:z10 und abwärts alles markieren und löschen

Wie??

Sub FIND_EMPTY_CELL()

    Dim zeil As Integer
    Dim z As Integer
    Dim leerAbWo As Long

    zeil = ActiveSheet.UsedRange.Rows.Count 'letzte ausgefüllte Zeile

    For z = 8 To zeil

            If Cells(z, 1) = "" Then
                'leere Zelle gefunden
                leerAbWo = Cells(z, 1).Select 'gefundene Zelle selektieren
                'jetzt ab da an bis AA markieren und rest löschen!!!
                MsgBox leerAbWo
                Exit Sub
            End If
    Next z
End Sub

...zum Beitrag

VBA Wenn eine Zelle mehrerer Spalten leer dann msgbox?

Hallo zusammen,

ich habe vor in mehreren Spalten zu kontrollieren, ob sich eine leere Zelle befindet. Wenn ja soll eine Msgbox angezeigt werdne und der Sub soll beendet werden. Wenn nicht soll er fortfahren. Allerdings kommt es bei mir zu einer Fehlermeldung "Typen unverträglich". Wo hat sich der Fehler eingeschlichen? End If befindet sich weiter unten.

Sub SendMeetingRequest_2()

Dim Bereich As Range

Set Bereich = Range("F2:H41", "B2:B41") 'Zellbereich

With Application.WorksheetFunction

Dim objOL As Object 'As Outlook.Application

Dim objAppt As Object 'As Outlook.AppointmentItem

'Const olAppointmentItem = 1

Const olMeeting = 1

Dim ReminderTime As Long

Dim lfdnr As Integer

lfdnr = 2

'Überprüfung erstellen falls Aufgaben leer sind

'lfdnr = 4

If Bereich.Value = "" Then

MsgBox "Bitte fehlende Daten eintragen"

Call Leere_zellen_hervorheben

Exit Sub

Else

Danke für eure Hilfe!

...zum Beitrag

Wie setze ich das richtig in VBA um?

Hallo,

ich habe folgenden Code in Excel VBA. Leider komme ich nicht weiter.

Ich suche einen Wert der Zelle E1 in Spalte A1.

Ist der Wert aus E1 vorhanden, soll ein Sub geöffnet werden.

Ist dieser Wert nicht vorhanden, soll eine MsgBox geöffnet werden und nach dem Schließen der Box die UserForm1.

Aktuell macht der Code folgendes: Egal ob der Wert vorhanden ist oder nicht, es wird die MsgBox geöffnet und der Code wird auch bei richtiger Zahl nicht ausgeführt.

Ich würde mich freuen, wenn mir einer helfen kann bei meiner Spielerei. Danke.

Sub suche()
Dim zelle As Range


For Each zelle In Sheets("Tabelle1").Range("A1:A1000").Cells
    If zelle.Value = Sheets("Tabelle1").Range("E1") Then
    'Sheets("Tabelle1").Activate
    zelle.Activate
    Call create
    Exit For
    Else

    MsgBox "Nr. ist nicht vorhanden!", vbExclamation
    UserForm1.Show
    Exit Sub
    End If
    'Call create
    Next
End Sub

...zum Beitrag

VBA: Zwei Spalten mit Wert multiplizieren und dann addieren mit Hilfe von Makros

Hallöchen,

ich habe folgendes Problem Ich habe zwei Spalten die ich jeweils miteinander addieren möchte. Doch bevor ich diese addiere, möchte ich Spalte B mit dem Wert aus der TextBox1 multiplizieren und Spalte C mit dem Wert aus Textbox2. Danach sollen beide Spalten miteinander addiert und dann sortiert werden. Spalte D ist in diesem Fall die Ergebnisspalte. Das Programm hat auch schon funktioniert, jedoch habe ich vorher nur die spalten addiert und sortiert.

HIer mein bereits geschriebener Code:

Private Sub CommandButton1_Click()



' Prüfen ob Lastspitzen eingetragen wurden, ansonsten Fehlermeldung

        If TextBox1.Value = "" Or TextBox2.Value = "" Then
        MsgBox "Bitte geben Sie eine Lastspitze ein!"
     
Else
        
Dim wks As Excel.Worksheet
Dim lngLetzteZeile As Long
Dim Last1 As Integer
Dim Last2 As Integer
Last1 = TextBox1.Value
Last2 = TextBox2.Value  

Set wks = ActiveWorkbook.Worksheets("Vergleich")


With wks
 
lngLetzteZeile = .Cells(.Rows.Count, "B").End(xlUp).Row
If lngLetzteZeile < 15 Then Exit Sub

 With .Range("D15:D" & lngLetzteZeile)
 'berechne: D := B + C
 .FormulaR1C1 = "=RC[-2]*Last1+RC[-1]*Last2"
 'Formeln durch deren Ergebnis ersetzen
 .Value = .Value
 End With
 
With .Range("B15:D" & lngLetzteZeile)
 .Sort Key1:=.Cells(2), Order1:=xlDescending, _
 DataOption1:=xlSortTextAsNumbers, _
 SortMethod:=xlPinYin
End With

End With
End If


End Sub

...zum Beitrag

Excel VBA Zellen in ein anderes Tabellenblatt Kopieren wenn Bedingung erfüllt?

Hallo,

ich habe ein problem und habe keine Ahnung von VBA.

Ich habe eine Tabelle in "A" steht der Name in "P" der Kurs und in "Y" ist die Bedingung "ja" oder "nein".

Das war das einzige das ich gefunden habe was auch funktionierte. Allerdings Kopiert es die komplette Zeile.

Sub BedingteKopieZeilen()

Dim Zeile As Long

Dim ZeileMax As Long

Dim n As Long

With Tabelle2

ZeileMax = .UsedRange.Rows.Count

n = 7

For Zeile = 3 To ZeileMax

If .Cells(Zeile, 25).Value = "Kurtaxe" Then

.Rows(Zeile).Copy Destination:=Tabelle10.Rows(n)

n = n + 1

End If

Next Zeile

End With

End Sub

Ich bedanke mich für eure Hilfe

Bernd

...zum Beitrag

VBA Input-Eingabe in Zelle eintragen?

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

...zum Beitrag

Excel VBA Button Enable?

Hallo Freunde,

Ich habe einen Button in Excel implementiert, der sichtbar sein soll wenn meine Zelle A1 die Zahl 2 enthält.

Der Code dafür lautet:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  On Error GoTo ErrHandler
  Dim rngButton1 As Integer
  rngButton1 = A1
  If rngButton1 = 2 Then
  CommandButton1.Enabled = False
  Else
  CommandButton1.Enabled = True
  End If
  Application.EnableEvents = True
Exit Sub
ErrHandler:
Application.EnableEvents = True
End Sub

Der Code funktioniert an und für sich, es kommt zu keiner Fehlermeldung.
Aber der Button bleibt egal was ich einstelle, Sichtbar.

Wo liegt der Fehler?

...zum Beitrag

Tabellen mit vba nebeneinander anstatt untereinander anordnen?

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

...zum Beitrag

Excel VBA Blattschutz Passwort umgangen?

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

...zum Beitrag

VBA Code Erklärung

Guten Abend zusammen. Könnte mir jemand weiterhelfen bei diesem Code. Was macht er genau in Excel? Also Die einzelnen Schritte die er durchläuft,.

Option Explicit

Public Sub Double_Red()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String

lngZeile = Cells(Rows.Count, 4).End(xlUp).Row

  For lngZeilenSprung = lngZeile To 1 Step -1
    strSuchwert = Cells(lngZeilenSprung, 4).Value
      If Application.WorksheetFunction.CountIf(Range(Cells(1, 4), Cells(lngZeile, 4)), strSuchwert) <> 1 Then
        Cells(lngZeilenSprung, 4).Interior.ColorIndex = 3
      End If
  Next lngZeilenSprung

End Sub

...zum Beitrag

VBA Objektvariable oder With Blockvariable nicht festgelegt?

Hallo habe folgenden Code:

Bekomme beim debuggen nach der Zeile "Objektvariable oder With-Blockvariable nicht festgelegt" Ich sehe mein Fehler leider nicht, hat jemand eine Ahnung?

Dim wbSAP As Workbook
Dim wbStamm As Workbook
Dim sapSheet As Worksheet
Dim stammSheet As Worksheet
Dim sapRange As Range
Dim stammRange As Range
Dim curSapCell As Range
Dim foundStammCell As Range
Dim nextStammRowNr As Integer
Set wbSAP = Workbooks.Open(ThisWorkbook.Path & "\SAP-Abfrage_GEN-User_SUIM.xls") 
Set wbStamm = ThisWorkbook


Set sapSheet = wbSAP.Sheets("SAP-Abfrage_GEN-User_SUIM") 
Set stammSheet = wbStamm.Sheets("Tabelle1")


Set sapRange = sapSheet.Range("B29:B105") 
Set stammRange = stammSheet.Range("F2:F81")


For Each curSapCell In sapRange  
   
foundStammCell = stammRange.Find(curSapCell.Value, LookAt:=xlWhole)     
If Not foundStammCell = curSapCell.Value Then  
       
stammSheet.Range("M" & nextStammRowNr) = sapSheet.Range("M" & curSapCell.Row).Value        
 nextStammRowNr = nextStammRowNr + 1     
Else        
stammSheet.Range("M" & foundStammCell.Row) = sapSheet.Range("M" & curSapCell.Row).Value     
End If
Next curSapCell

...zum Beitrag

Excel VBA UserForm "Passwort ändern" funktioniert nicht?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen