Supportnet / Forum / Tabellenkalkulation

Moin, kann mir jm agen warum das mit den inputboxen so nicht läuft? [code]Sub EingabeMigration() Dim i, h As Integer Dim j, k As Long k = 1 i = InputBox("Abwanderung von:") h = InputBox("nach:") Application.StatusBar = "Gedult!" Application.ScreenUpdating = False For j = 8 To Sheets(2).Range("B65000").End(xlUp).Row If Sheets(2).Range("B" & j) = i And Sheets(2).Range("C" & j) = h Then Sheets(1).Range("B" & j).Copy Sheets(4).Range("A" & k).PasteSpecial xlValues k = k + 1 End If Next j Sheets(4).Select Application.ScreenUpdating = True Application.StatusBar = False End Sub[/code] allerdings ohne die InputBoxen klappt es [code]Sub EingMigartion2() Dim j, k As Long k = 1 For j = 8 To Sheets(2).Range("B65000").End(xlUp).Row If Sheets(2).Range("B" & j) = 6 And Sheets(2).Range("C" & j) = 1 Then Sheets(1).Range("B" & j).Copy Sheets(4).Range("A" & k).PasteSpecial xlValues k = k + 1 End If Next j Sheets(4).Select End Sub[/code] mir ist es aber wichtig die werte selber einzugeben Wäre klasse wenn mir ein excelperte helfen kann Danke und Gruß Bernd_

hi bernd :)

komischerweise war bei mir eine deklarierte integer ein string ?

so behoben

Dim i As integer
Dim h As Integer

gruss nighty

Moin,

besten Dank!

Wie findet man sowas raus? einfach ausprobieren?

hi bernd :)

einzelschrittabarbeitung im vbeditor mit f8 und anschliessender anzeige auf die zu kontrollierende var mit der mouse, zeigt dir dann den momentanen wert an,da die var in "" war,war sie ja ein string,sollte aber eine integer sein

gruss nighty

• kann mir jemand sagen wo das ist?
• IF..Then Bedingung in Makro perfomanter machen
• Abfrage auf ABBRUCH in InputBox
• VBA InputBox Problem
• Speichern geht nicht