Thema Datum  Von Nutzer Rating
Antwort
Rot VBA
04.03.2020 02:04:48 Student32
NotSolved
Blau VBA
04.03.2020 02:05:28 Gast16984
NotSolved
Rot VBA
04.03.2020 02:51:11 Student32
NotSolved
Blau VBA
04.03.2020 02:56:59 Gast54445
NotSolved
Rot VBA
04.03.2020 03:25:22 Gast42957
NotSolved
Blau VBA
04.03.2020 06:30:04 Gast93741
NotSolved
Rot VBA
04.03.2020 06:34:30 Gast85618
NotSolved
04.03.2020 06:50:14 Mase
NotSolved
05.03.2020 00:31:16 Gast29014
NotSolved

Ansicht des Beitrags:
Von:
Gast42957
Datum:
04.03.2020 03:25:22
Views:
535
Rating: Antwort:
  Ja
Thema:
VBA
 
'und hier bomme ich die Fehlermeldung:
'ungültiger Verweis auf Next-Steuervariable.
 
Sub Suchen()
Dim neu As String
 Dim i As Integer
 Dim k As Integer
 Dim wb As Workbook
 
 
 
For i = 2 To 200
For k = 2 To 200
 wb = Workbooks("Mappe3")
 
If Left(Cells(i, 5).Value, 2) = "1." And Cells(i, 6) Like "*Nichts gefunden*" Then
 
Cells(i, 6).Value = Workbooks("Mappe3.xls").Sheets("Tabelle1").Cells(k, 5).Value
 
  Next i
Next k
 
End If
End Sub
 

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 VBA
04.03.2020 02:04:48 Student32
NotSolved
Blau VBA
04.03.2020 02:05:28 Gast16984
NotSolved
Rot VBA
04.03.2020 02:51:11 Student32
NotSolved
Blau VBA
04.03.2020 02:56:59 Gast54445
NotSolved
Rot VBA
04.03.2020 03:25:22 Gast42957
NotSolved
Blau VBA
04.03.2020 06:30:04 Gast93741
NotSolved
Rot VBA
04.03.2020 06:34:30 Gast85618
NotSolved
04.03.2020 06:50:14 Mase
NotSolved
05.03.2020 00:31:16 Gast29014
NotSolved