Thema Datum  Von Nutzer Rating
Antwort
Rot Flexibler Spaltenbezug
12.07.2021 14:17:51 Kaan
Solved
12.07.2021 14:39:54 Mase
*****
Solved
13.07.2021 13:26:49 Kaan
Solved
13.07.2021 13:35:48 Gast8954
Solved
12.07.2021 18:58:10 Gast76593
*****
Solved

Ansicht des Beitrags:
Von:
Kaan
Datum:
12.07.2021 14:17:51
Views:
38
Rating: Antwort:
 Nein
Thema:
Flexibler Spaltenbezug

Hallo zusammen,

ich habe bereits einen Code geschrieben mit dem ich Daten aus einer Access DB ziehe, in anderen Excellsheets zwischenspeichere und dann die benötigten Daten in das Ziel Worksheet einfüge. Jedoch passiert es ab und zu, dass ein Kollege eine weitere Spalte einfügt. Deshalb möchte ich gerne eine flexible Spaltenbeziehung implementieren. Mein Idee: Ich markiere die Spalte mit einem String und die Funktion unten gibt immer den jeweiligen Sapltenbuchstaben zurück:

Function Spalte(Bezug As String) As String

Dim Spaltenzeichen As String
Dim Bereich, Zelle As Range
Dim SpaltenNummer As Integer

Set Bereich = Range("A1:AAA6")

    For Each Zelle In Bereich
    If Zelle.Text Like Bezug Then
            SpaltenNummer = Zelle.Column
    End If
                
    Next
    
    Spaltenzeichen = Columns(SpaltenNummer).Address(0, 0) <--- Laufzeitfehler 1004 Anwendungs/Objektdefinierter Fehler , diese Spalte ist markiert. Spaltenzeichen = "" , wenn ich mit dem Cursor drüber gehe
    Spaltenzeichen = Left(Spaltenzeichen, InStr(Spaltenzeichen, ":") - 1)
    
    
End Function

 

Wo die Function aufgerufen wird:

.........

If SuchErgebnis Is Nothing Then
Else
xlSheet.Range(Spalte("Hallo") & i).Value = xlSheetDev.Cells(SuchErgebnis.Row, 9).Value

    If i = 6 Then
    xlSheet.Range(Spalte("Hallo") & i + 1).Value = xlSheetDev.Cells(SuchErgebnis.Row, 11).Value
    xlSheet.Range(Spalte("Hallo") & i + 18).Value = xlSheetDev.Cells(SuchErgebnis.Row, 10).Value
    'test = xlSheetDev.Cells(SuchErgebnis.Row, 11).Value
    End If
    
    If i = 8 Then
    xlSheet.Range(Spalte("Hallo") & i + 17).Value = xlSheetDev.Cells(SuchErgebnis.Row, 10).Value
    End If

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

 

Danke im vorraus!

 

Gruß

Kaan


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Flexibler Spaltenbezug
12.07.2021 14:17:51 Kaan
Solved
12.07.2021 14:39:54 Mase
*****
Solved
13.07.2021 13:26:49 Kaan
Solved
13.07.2021 13:35:48 Gast8954
Solved
12.07.2021 18:58:10 Gast76593
*****
Solved