Thema Datum  Von Nutzer Rating
Antwort
12.07.2021 14:17:51 Kaan
Solved
12.07.2021 14:39:54 Mase
*****
Solved
Rot Flexibler Spaltenbezug
 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:
13.07.2021 13:26:49		 Views:
610		 Rating:
     
Antwort:
 Nein
Thema:
Flexibler Spaltenbezug

Hi Mase,

guter Ansatz, aber bekomme in der Zeile drei wieder einen Laufzeitfehler. Kannst du mir da helfen? Ich bekomme als msgbox 0.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If SuchErgebnis Is Nothing Then
Else
xlSheet.Cells(i, Spalte("Hallo")).Value = xlSheetDev.Cells(SuchErgebnis.Row, 9).Value
 
    If i = 6 Then
    xlSheet.Cells(i + 1, Spalte("Hallo")).Value = xlSheetDev.Cells(SuchErgebnis.Row, 11).Value
    xlSheet.Cells(i + 18, Spalte("Hallo")).Value = xlSheetDev.Cells(SuchErgebnis.Row, 10).Value
    End If
     
    If i = 8 Then
    xlSheet.Cells(i + 17, Spalte("Hallo")).Value = xlSheetDev.Cells(SuchErgebnis.Row, 10).Value
    End If
 
End If
 
Next i

 

mit der function

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Spalte(Bezug As String) As Integer
 
Dim Bereich, Zelle As Range
 
 
Set Bereich = Range("A1:AAA6")
 
    For Each Zelle In Bereich
    If Zelle.Text Like Bezug Then
            Spalte = Zelle.Column
    End If
                 
    Next
     
    MsgBox Spalte
     
     
End Function

die Messagebox gibt 0 zurück, sodass das mit dem cells nicht funktionieren kann.Komischerweise funktioniert es, wenn ich die function alleine aufrufe.

?
1
2
3
4
5
Sub Test()
 
Spalte ("Hallo")
 
End Sub

Rückgabewert ist 21 somit Spalte H wie ich es will

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
12.07.2021 14:17:51 Kaan
Solved
12.07.2021 14:39:54 Mase
*****
Solved
Rot Flexibler Spaltenbezug
 13.07.2021 13:26:49 Kaan
Solved
13.07.2021 13:35:48 Gast8954
Solved
12.07.2021 18:58:10 Gast76593
*****
Solved